📄 pwd.asp

📁 一套很早的多用户电子商务程序

💻 ASP

字号:

<%
Function CheckPwd( ID, Pwd )
   sql = " Select * From users Where ID='" & ID & "' And Pwd = '" & Pwd & "'"
   Set rs = conn.Execute( sql )
   If rs.EOF Then
      CheckPwd = False
   Else
      sid= rs("id")
      spwd=rs("pwd")
      susername=rs("username")
      CheckPwd = True
   End If
End Function

If IsEmpty(Session("Passed")) Then
   Session("Passed") = False
   Head = "请输入用户名和密码"
else
   ID = Request("ID")
   Pwd = Request("Pwd")
ID=replace(ID,"'","k")
ID=replace(ID,",","k")
Pwd=replace(Pwd,"'","k")
Pwd=replace(Pwd,",","k")
   If ID = "" Or Pwd = "" Then
      Head = "用户名和密码不能为空"
   Else
      If Not CheckPwd( ID, Pwd ) Then
         Head = "用户名或密码错误！"
      Else
         Session("Passed") = True
      End If
   end if
end if

If Not Session("Passed") Then 

%>
<html>

<head>
<style type="text/css">
<!-
td{font-size:12px;}
body{font-size:12px;line-height:17px;}
a:link{text-decoration:none;color:#008040}
a:visited{text-decoration:none;color:#008040}
a:active{text-decoration:none}
a:hover {  color:#FF8040; text-decoration: underline}
->
</style>
<title>管理员页面</title>
</head>

<body background="002.gif">

<form Action="<%=Request.ServerVariables("PATH_INFO")%>" Method="POST">
  <div align="center"><center><p><strong><font size="3" color="#0000FF"><%=head%></font></strong></p>
  </center></div><div align="center"><center><table BORDER="1" cellpadding="4"
  bordercolordark="#FFFFFF" bordercolorlight="#C0C0C0" bordercolor="#FFFFFF"
  bgcolor="#F2D395">
    <tr>
      <td ALIGN="RIGHT"><div align="center"><center><p>用户名：</td>
      <td align="center"><input Type="Text" Name="ID" Size="12" Value="<%=ID%>"></td>
    </tr>
    <tr align="center">
      <td ALIGN="RIGHT"><div align="center"><center><p>密&nbsp; 码：</td>
      <td align="center"><input Type="Password" Name="Pwd" Size="12" Value="<%=Pwd%>"></td>
    </tr>
  </table>
  </center></div><div align="center"><center><p><input Type="submit" Value=" 确定 "
  style="font-size: 9pt"> </p>
  </center></div>
</form>
</body>
</html>
<% 
   Response.End
End If
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -