📄 getpassword.asp

📁 asp游戏点卡销售系统,基本东西,代码+实现
💻 ASP
字号:

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<head>
<LINK href="images/css.css" type=text/css rel=stylesheet>    
<%menu=request.querystring("menu")          
select case menu          
case""          
%>

</head>
<center>
<br>
<form method=POST name=getname action=?menu=getname>
                                     <font size=2>请输入用户名：</font><input name="username" type="text" size="21" class="td1"><br>
<br>
<input type="submit" value="提交" name="B1" class="botton">
</form>                                                                             
</center>
<%case"getname"              
getpassword=true              
username=trim(Request.Form("username"))              
set rs=conn.execute("select wenti from [users] where userid='"&username&"'")              
if rs.eof then              
mes="·该用户不存在·"              
getpassword=false           
          
else              
wenti=rs("wenti")            
           
end if             
set rs=nothing               
if getpassword=false then             
           
%>                                                                               
       <center><%=mes%> </center>            
  <%else%>                                
                                                                             
    <form method="POST" action="?menu=get">             
                                       <p align="center">            
                                       <input type="hidden" name="username" size="20" value="<%=username%>">                                            
                                       &nbsp;<br>
                                问题：<%=wenti%> 
              
                                                                                                          
                                       &nbsp;<br> 
               
                                                                                                           
                                       <br> 
               
                                                                                                           
                                        请输入答案：                                                                      
                 
                                                                               
                                       <input name="daan" type="text" class="td1" size="21">                                                                             
                                                                                                                  
                                       &nbsp;<br> 
                                                                                                                 
&nbsp;<br> 
                                                                                                                
                                        <input type="submit" value="确定" name="B1" class="botton"> <input type="reset" value="重写" name="B2" class="botton">                                                                             
                                          </form>  <%end if %>       
<% case"get"          
username=trim(Request.Form("username"))          
daan=trim(Request.Form("daan"))          
          
set rs=conn.execute("select * from [users] where userid='"&username&"' and daan='"&daan&"'")          
if rs.eof then          
response.write"<center>答案错误</center>"         
else        
%>                                         
                                  <form method="POST" action="?menu=change">             
                                                            
                 
                                          <p align="center">             
                                                            
                 
                                          <input type="hidden" name="username" size="20" value="<%=username%>"><input type="hidden" name="anser" size="20" value="<%=daan%>">                                
                                               
                                          <br> 
                                          <br> 
                                          输入新密码：<input name="newpass" type="text" class="td1" size="21">                                                                            
                                                  
                                                                            
                                          &nbsp;<br>
                                          <br>  
                                                 
                                                                           
                                        确认新密码：<input name="repwd" type="text" class="td1" size="21">          
                                             
                                          &nbsp;<br> 
                                              
                                          <br> 
                                              
 <input type="submit" value="提交" ></form> 
<p align="center"><%end if%>     
                                      <br>  
                                      &nbsp;       
                              <%case"change"          
username=trim(Request.Form("username"))          
daan=trim(Request.Form("daan"))          
newpass=trim(Request.Form("newpass"))          
repwd=trim(Request.Form("repwd"))          
function strLength(str)          
       ON ERROR RESUME NEXT          
       dim WINNT_CHINESE          
       WINNT_CHINESE    = (len("论坛")=2)          
       if WINNT_CHINESE then          
          dim l,t,c          
          dim i          
          l=len(str)          
          t=l          
          for i=1 to l          
             c=asc(mid(str,i,1))          
             if c<0 then c=c+65536          
             if c>255 then          
                t=t+1          
             end if          
          next          
          strLength=t          
       else           
          strLength=len(str)          
       end if          
       if err.number<>0 then err.clear          
end function          
if isnull(newpass) or newpass="" or strlength(newpass)>16 or Instr(newpass,"=")>0 or Instr(newpass,"%")>0 or Instr(newpass,chr(32))>0 or Instr(newpass,"?")>0 or Instr(newpass,"&")>0 or Instr(newpwd,";")>0 or Instr(newpass,",")>0 or Instr(newpass,"'")>0 or Instr(newpass,",")>0 or Instr(newpass,chr(34))>0 or Instr(newpass,chr(9))>0 or Instr(newpass,"
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -