?? edit_login.asp
字號:
<!--#include file="config.asp" -->
<%
dim id,city,lx
id=trim(request("id"))
city=trim(request("ct"))
'+++++++++++++++++++++++++++++++++++++
'◆模塊名稱： 管理員登陸檢查
'+++++++++++++++++++++++++++++++++++++
sub admin_login()
quhao=trim(request.form("quhao"))
guanli=trim(request.form("guanli"))
if quhao<>"" and guanli<>"" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from city where 區號='"&quhao&"'",conn,1,1
if rs.eof or rs.bof then
response.write "<font color=red>×</font>城市區號或密碼錯誤！"
response.redirect "edit_login.asp"
end if
str=rs("管理")
checkgl=false
if str="" then errwrite
str=split(Cstr(str),"|")
for i=0 to Ubound(str)
if guanli=Lcase(str(i)) then
checkgl=true
exit for
else
checkgl=false
end if
next
if checkgl=false then
response.write "<font color=red>×</font>城市區號或密碼錯誤！"
else
session("quhao")=rs("區號")
session("guanli")=rs("管理")
response.redirect "edit_about.asp"
response.end
end if
end if
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理登陸</title>
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<br>
<br>
<br>
<br>
<br>
<table width="480" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"></td>
</tr>
<tr>
<td>
<table width="400" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#0066CC">
<form name="adminform" method="post" action="edit_login.asp">
<tr>
<td><font color="#FFFFFF">管理登陸 <%call admin_login()%></font></td>
</tr>
<tr>
<td height="36" bgcolor="#FFFFFF" class="fontline1">
<table width="100%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="middle">
<td height="40" align="center">城市區號：
<input name="quhao" type="text" id="quhao" size="12" maxlength="20" value="<%=city%>">
密 碼：
<input name="guanli" type="password" size="13" maxlength="20" value=""><br>
<input type="hidden" name="id" size="15" maxlength="20" value="<%=id%>"><br>
<input type="submit" name="bubu" value="提 交">
<input type="reset" name="sss" value="重 寫"></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="43" align="center"><font face="Geneva, Arial, Helvetica, sans-serif">Powered By 第１同志網</font></td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -