ببين اين كد به دردت مي خوره يا نه.
اين يه صفحه html هست که می تونی ازش استفاده کنی. ببین ازش سر در میاری یا نه ؟
[code:1]
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title></title>
</head>
<body>
<script language="VBScript" >
Sub button1_onclick
dim fff
fff = inputbox("Enter the path for save the file , TXT","HWP")
if fff = "" then exit sub
if ucase(right(fff,3) ) <> "TXT" then
msgbox "I told you just TXT"
exit sub
end if
dim a
set a = CreateObject ("scripting.filesystemobject")
dim b
set b = a.CreateTextFile (fff,true,true)
b.writeline hhhh.value
b.close
set a= nothing
End Sub
Sub button2_onclick
if file1.value = "" or ucase(right(file1.value ,3)) <> "TXT" then exit sub
dim fs3
dim f2
dim ts1
set fs3 = CreateObject ("scripting.filesystemobject")
set f2 = fs3.GetFile (file1.value )
set ts1 = f2.openastextstream(1,-1)
hhhh.value = ts1.readall
ts1.close
set f = nothing
set fs = nothing
End Sub
</script>
<p><input type="checkbox" name="checkbox1" id="checkbox1" value="ON">If you
want to type English check the Check Box</p>
<p><font size="7"><TEXTAREA cols=41 dir=rtl id=hhhh name=S1 rows=9></TEXTAREA></font></p>
<table border="1" cellspacing="1" width="45%">
<tr>
<td><input type="button" name="button2" value="Load"
id="button2">
<INPUT id=file1 name=file1 type=file size="20"></td>
</tr>
<tr>
<td><input type="button" name="button1" value="Save"
id="button1"></td>
</tr>
</table>
<p> </p>
<p> </p>
<script language="VBScript">
'Copyright 2001
[email protected]
sub hhhh_onkeypress()
dim k
if checkbox1.checked = true then exit sub
k = window.event.keycode
select case chr(k)
case "h"
window.event.keycode = 1575
case "H"
window.event.keycode = 1570
case "s"
window.event.keycode = 1587
case "F" ,"f"
window.event.keycode = 1576
case "`"
window.event.keycode = 1662
case "j" ,"J"
window.event.keycode = 1578
case "e","E"
window.event.keycode = 1579
case "["
window.event.keycode = 1580
case "]"
window.event.keycode = 1670
case "P" ,"p"
window.event.keycode = 1581
case "o" ,"O"
window.event.keycode = 1582
case "n","N"
window.event.keycode = 1583
case "b" ,"B"
window.event.keycode = 1584
case "V","v"
window.event.keycode = 1585
case "C","c"
window.event.keycode = 1586
case ""
window.event.keycode = 1688
case "s" ,"S"
window.event.keycode = 1587
case "a","A"
window.event.keycode = 1588
case "w","W"
window.event.keycode = 1589
case "q" ,"Q"
window.event.keycode = 1590
case "X" ,"x"
window.event.keycode = 1591
case "Z" ,"z"
window.event.keycode = 1592
case "U" ,"u"
window.event.keycode = 1593
case "Y" ,"y"
window.event.keycode = 1594
case "t" ,"T"
window.event.keycode = 1601
case "R" ,"r"
window.event.keycode = 1602
case ";"
window.event.keycode = 1603
case "'"
window.event.keycode = 1711
case "G" ,"g"
window.event.keycode = 1604
case "l","L"
window.event.keycode = 1605
case "k" ,"K"
window.event.keycode = 1606
case ","
window.event.keycode = 1608
case "i" ,"I"
window.event.keycode = 1607
case "d"
window.event.keycode = 1610
case "D"
window.event.keycode = 1609
case "m" ,"M"
window.event.keycode = 1574
case "?"
window.event.keycode = 1567
end select
end sub
</script>
</body>
</html>
[/code:1]