checkpass.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 33 行

<%
Response.Buffer=true
username=Request.form("username")
tishi=Request.form("ljl_tishi")
key=Request.form("ljl_pwd")
if username="" or tishi="" or key="" then	Response.Redirect "../error.asp?id=220"
set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="SELECT * FROM 用户 WHERE 姓名='" & username & "'"
Set Rs=conn.Execute(sql)
	If Rs.Bof OR Rs.Eof Then response.redirect "../error.asp?id=423"
	ljl_ts=rs("ljl_pwd")
	ljl_key=rs("ljl_key")
	if ljl_ts=tishi and ljl_key=key then
	Session("wangbadan99163")=rs("姓名")
	Session("danbawang36199")="heiheinihuai" 
	%>
		<script language=vbscript>
                                        MsgBox "身份确认成功，按此初始化密码！"
                                        location.href = "config/changepwd.asp"
                                        </script>
	<%else%>
				        <script language=vbscript>
                                        MsgBox "身份非法，取回密码失败！"
                                        window.close()
                                        </script>
				<%end if
				rs.close
conn.close
set rs=nothing
set conn=nothing%>