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 + -
显示快捷键?