login.asp

运用asp知识设计在线投票系统

<!--#include file="name.txt"-->
<%If session("MoonDowner_Poll") = "MoonDowner_Poll" Then Response.Redirect "admin_poll.asp"%>
<!--#include file="config.asp"-->
 <% 
  Call Chklogin() 		
 %>
<!--#include file="top.asp" -->
  <br>
  <br>
  <br>
  <form method="post" action="login.asp">
  <TABLE cellSpacing=1 cellPadding=5 width="60%" border=0 align="center" bgcolor="#cccccc">
    <TR bgcolor="#EEEEEE" align="center"> 
      <TD colspan="6" background="images/网络12班_bt.gif"><%=redcaff%>调查系统管理登录 
      </font></TD>
          </TR>
          <TR bgcolor="#FFFFFF"> 
            <TD width="50%" align="right">Username：</TD>
            <TD width="50%"> 
              <input name="username" type="text" size="12" maxlength="20">
            </TD>
          </TR>
          <TR bgcolor="#FFFFFF"> 
            <TD width="50%" align="right">Password：</TD>
            <TD width="50%"> 
              <input name="password" type="password" size="12" maxlength="20">
            </TD>
          </TR>
          <TR align="center" bgcolor="#EEEEEE"> 
            <TD colspan="2"> 
              <input type="submit" name="Submit" value=" 登录 ">
            </TD>
          </TR>
        </TABLE>
                  
  <br>
  <br>
  <br>
  <br>
  <br>
</form>
<!--#include file="foot.asp" -->
<%
Sub Chklogin()
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
	dim username	
   	dim password	
   	dim rs
   	username = RequestText(Request.Form("username"))
   	password = RequestText(Request.Form("password"))
	if username = "" then
  		out "请输入用户名。"
    elseif password = "" then
		out "请输入登录密码。"
    else
  		call OpenDB()
         set rs = DbConn.Execute("select * from Admin where Adminname='" & username & "'")
         if rs.eof then
             out "用户不存在。"
         elseif  password <> rs("adminpassword") then
             out "密码输入错误。"
	   	 else
			session("MoonDowner_Poll") = "MoonDowner_Poll"
			Response.Redirect "admin_poll.asp"
         end if
		 Set rs = Nothing
		 Call CloseDB()
	end if
end if
End Sub
%>