📄 user_pass2.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
If mdbFile = Empty Then mdbFile = "12.mdb"
If u_type = Empty Then u_type = "0"
Passed = Session( mdbFile )
If Passed = "Passed" Then
u_name = Session("u_name")
u_password = Session("u_password")
u_type = Session("u_type")
u_no = Session("u_no")
u_id = Session("u_id")
else
u_name =Request("u_name")
u_password =Request("u_password")
End If
If Passed <> "Passed" Then
Passed = Checkemail(u_name,u_password,mdbFile,u_type,u_no)
End If
If Passed <> "Passed" Then
%>
<% If Passed = "NotPassedIDPa" Then ' 不是第一次进入 %>
<script>alert('请输入用户帐号和邮箱!');history.back();</Script>
<%End If%>
<% If Passed = "NotPassedID" Then ' 不是第一次进入 %>
<script>alert('请输入用户帐号!');history.back();</Script>
<%End If%>
<% If Passed = "NotPassedPa" Then ' 不是第一次进入 %>
<script>alert('请输入用户邮箱!');history.back();</Script>
<%End If%>
<% If Passed = "NotPassed" Then ' 不是第一次进入 %>
<script>alert('帐号或邮箱错误,无法取回密码!');history.back();</Script>
<%End If%>
<% Else
Session("u_name")=u_name
Session("u_password")=u_password
Session("u_type")=u_type
Session("u_no")=u_no
Session("u_id")=u_id
response.redirect"user_display.asp"
End If %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -