📄 repass.asp

📁 用ASP写的电子购物系统

💻 ASP

字号:

<%@ LANGUAGE = vbscript %>
<!--#INCLUDE FILE = "include/shop.asp" -->
<!--#INCLUDE FILE = "include/util.asp" -->
<% REM ##########################################################################%>
<% REM                                                                          #%>
<% REM   Repass.ASP                                                             #%>
<% REM   取回密码                                                               #%>
<% REM                                                                          #%>
<% REM   Copyright (c) 1999-2000 Epro Corporation.  All rights reserved.        #%>
<% REM                                                                          #%>
<% REM ##########################################################################%>
<%
 dim errorList
    
 shopper_id =checklength(Request("shopper_id"),20)
 if isnull(shopper_id) then
    errorList=errorList & "错误的用户号。<br>"
 end if
 answer = checklength(Request("answer"),20)
 if isnull(answer) then
    errorList=errorList & "回答问题为空。<br>"
 end if 
 cmdTemp.CommandText = "SELECT * FROM shopper where shortname='" & shopper_id & "' and answer='" & answer & "'" 
    
 Set recordSet = Server.CreateObject("ADODB.Recordset") 
 recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
  
 if  recordSet.EOF  then  
    errorList=errorList & "答案错误。<br>"
 else
    pa = recordSet("password")
 end if

    if errorList <> "" then
%>
        <!--#INCLUDE FILE="include/error.asp" -->
<%
    else
    %>
    <html> 
    <head><title>取回密码</title>
    <meta content="text/html; charset=gb2312" http-equiv="Content-Type">
    <link REL="stylesheet" HREF="ecom.css" TYPE="text/css">
    </head>
	<BODY topMargin="0">
	<!--#INCLUDE FILE = "include/toolbar.asp" -->
    <br>
    <br>
    <% Response.Write "<p align='center'><b>你的密码是：</b>"&pa%>
       <br><br><input type="button" value="重新登陆" onclick="javascript:document.location='login.asp';"></p>
       <!--#INCLUDE FILE="include/footer.asp" -->
</BODY>
</HTML>
    <%end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -