admin_body.asp

情缘天空美化版 v3.68 强大的公告

<%sub admin_body()
dim adminname
dim adminpwd
if request("action")="adminlogin" then
adminname=trim(replace(request("adminname"),"'",""))
adminpwd=CfsEncode(trim(replace(request("adminpwd"),"'","")))
if adminname="" and adminpwd="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请输入用户名或密码！"
end if
if founderr then
call diserror
response.end
end if

If request("reaction")="chklogin" then
dim GetCode,valicode
GetCode=int(request("GetCode"))
valicode=int(Session("GetCode"))
if GetCode<>valicode then
response.write ("验证码输入错误，请重输入")
response.end
end if
Else
End If

openadmin
sql="select * from admin where admin_name='"&adminname&"' and admin_password='"&adminpwd&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
set rs=nothing
founderr=true
errmsg=errmsg+"<br>"+"<li>您输入的用户名和密码不正确!"
else
session("adminlogin")=sessionvar
session("issuper")=rs("admin_id")
session.timeout=50
rs.close
set rs=nothing
end if
elseif request("action")="logout" then
session("adminlogin")=""
session("issuper")=""
end if
%>
<link rel="stylesheet" href="Sams.css" type="text/css">
<table width="774" border="0" cellspacing="0" cellpadding="0" background=images/web_bg.gif style="border-collapse: collapse" align=center>
<tr>
<td colspan="3"  height="8" ></td>
</tr>
<tr>
<td width="205"  valign="top">
<%call adminmenu()%>
</td>
<td width="1" background="images/dotlinev.gif"></td>
<td width="554"  valign="top" style="background-image:url('images/web_bg.jpg');background-repeat: no-repeat;background-position: right bottom">
<%if session("adminlogin")<>sessionvar then%><br>
<div align="center">
  <center>
<table width="98%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="3%" background="images/tablebg.gif"><img src="images/mleft.gif"></td>
<td width="38%" background="images/tablebg.gif" class="newshead">&nbsp;:::::
管理 ::::::</td>
<td width="54%" align="right" background="images/tablebg.gif">&nbsp; </td>
<td width="5%" align="right" background="images/tablebg.gif"><img src="images/mright.gif"></td>
</tr>
</table></center>
</div>
<br>
<br>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="admin_login.asp?action=adminlogin&reaction=chklogin">
<tr>
<td bgcolor="#FFFFFF"  class="chinese" align="center"><font color="#FF0099">用户名:</font>
<input type="text" name="adminname" class="input" size="15" style="border: 1px dotted #FF00FF" ><br>
<br><font color="#FF0099">密　码:</font>
<input type="password" name="adminpwd" class="input" size="15" style="border: 1px dotted #FF00FF"><br>
<br>
<font color="#FF0099">验&nbsp; 证:</font>
<input name="GetCode" type="text" size="7" style="border: 1px dotted #FF00FF">&nbsp;<img src="code.asp">
<br>
<br>
<br>
<input type="submit" name="Submit" value="登  录" class="input" style="border:1px solid #000000; ">
</td>
</tr>
</form>
</table>
<%else%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="3%" background="images/tablebg.gif"><img src="images/mleft.gif"></td>
<td width="38%" background="images/tablebg.gif">&nbsp;::::: <b>情缘天空娱乐吧管理</b> ::::::</td>
<td width="54%" align="right" background="images/tablebg.gif">&nbsp; </td>
<td width="5%" align="right" background="images/tablebg.gif"><img src="images/mright.gif"></td>
</tr>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td bgcolor="#FFFFFF"> 登录成功！
</td>
</tr>
</table>
<%end if%>
<br>
</td>
</tr>
<tr>
<td colspan="3" height="1" background="images/dotlineh.gif"></td>
</tr>
</table>
  </center>
</div>

<%end sub%>