?? login.asp
字號:
<%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="#7C96B8">
<TR align="center">
<TD colspan="2"><font color="#FF0000">-- <font color="#0000FF">朝陽</font>在線調(diào)查系統(tǒng)管理登錄
--</font></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="50%" align="right">用戶名:</TD>
<TD width="50%">
<input name="username" type="text" size="12" maxlength="20">
</TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="50%" align="right">密 碼:</TD>
<TD width="50%">
<input name="password" type="password" size="12" maxlength="20">
</TD>
</TR>
<TR align="center" >
<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 "密碼輸入錯(cuò)誤。"
else
session("MoonDowner_Poll") = "MoonDowner_Poll"
Response.Redirect "admin_poll.asp"
end if
Set rs = Nothing
Call CloseDB()
end if
end if
End Sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -