forget3.asp
来自「书店的管理系统。不错的一个源程序。提供给大家。」· ASP 代码 · 共 44 行
ASP
44 行
<%@ Language=VBScript %>
<%
passans=Request.form("passans")
forget_log_name=Session("forget_log_name")
set con=server.createobject("ADODB.Connection")
con.open Application("str_con")
set res=server.createobject("ADODB.Recordset")
set res.ActiveConnection = con
res.source="select passwrd from User_login where log_name='"&forget_log_name&"' and passans='"&passans&"'"
res.cursorlocation=3
res.open ,,adOpenDaynamic
if res.recordcount<1 then
logined=false
res.close
con.Close
else
logined=true
passwrd=res("passwrd")
res.close
con.Close
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY style="FONT-SIZE: 9pt">
<%if not logined then%>
<P>答案错误!</P>
<%else%>
<P>您的密码是:<%=passwrd%></P>
<%end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?