login.asp

ASPTest 网络基础网页设计

<!-- #include file="Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<%
Dim rsUser
Set rsUser = Server.CreateObject("ADODB.RecordSet")

If Request("txtUserID") = "" And Request("txtUserPWD") = "" Then
%>
  <p align="center">请输入登录信息！
  <!-- #include file="LoginInfo.asp" -->
<% 
ElseIf Request("txtUserID") = "" And Request("txtUserPWD") = "" Then
%>
  <p align="center">用户名与密码不能为空，请重新输入登录信息！
  <!-- #include file="LoginInfo.asp" -->
<%
Else
  rsUser.Open "SELECT * FROM Lily_Users WHERE UserID='"&Request("txtUserID")&"' AND UserPWD='"&Request("txtUserPWD")&"'",cn
  If Not rsUser.Eof Then
    Session("UserID") = rsUser("UserID")
    %>
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="600" height="116" align="center">
      <tr>
        <td width="100%" height="34"><p align="center">登录成功！</td>
      </tr>
      <tr>
        <td width="100%" height="37" align="center"><a href="index.asp">返回论坛</a>
        <a href="EditUserInfo.asp">修改用户资料</a></td>
      </tr>
    </table>
    <%
  Else  
  %>
  <p align="center">用户名/密码错，请重新输入登录信息！
  <!-- #include file="LoginInfo.asp" -->
  <%
  End If
  rsUser.Close 
End If
%>
<% 
Set rsUser = Nothing
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="Bottom.htm" -->