Question

inputbox 默认值可不可以从文件中读取

具体代码怎么实现
<script language="vbscript">
Function Encrypt(strSource,Key1,Key2)
For i = 1 To Len(strSource) //从待加（解）密字符串中取出一个字符
strChar = Mid(strSource,i,1) //取字符的低字节和Key1进行异或运算
bLowData = AscB(MidB(strChar, 1, 1)) Xor Key1 //取字符的高字节和K2进行异或运算
bHigData = AscB(MidB(strChar, 2, 1)) Xor Key2 //将运算后的数据合成新的字符
strEncrypt = strEncrypt & ChrB(bLowData) & ChrB(bHigData)
Next
Encrypt = strEncrypt
End Function

aa=inputbox("输入明文","输入明文")//这里不知道怎么写
k1=55
k2=78
bb=Encrypt(aa,k1,k2)
msgbox "密文是："&bb
cc=Encrypt(bb,k1,k2)
msgbox "明文是："&cc
Dim FileObject
Dim TextFile
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile=FileObject.OpenTextFile("f:\myweb\2.txt",8,True)
TextFile.WriteLine(bb)//文本上传成功但bb的内容没有显示在文本中
TextFile.Close
</script>

Answer 1

可以通过下边的方法实现：
把文件中的数据，赋值给一个变量，
然后引用这个变量，设置inputbox 的“默认值”

追问

要怎么实现呢，读取文件内容 赋给变量