admin_body.asp

一个很COOL的按钮FLASH,满不错的!

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

if GetCode="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>请输入校验码！"
elseif GetCode<>valicode then
founderr=true
errmsg=errmsg+"<br>"+"<li>验证码输入错误，请重输入！"
end if

if founderr then
call diserror
response.end
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  align=center>
<tr>
<td  height="8" ></td>
</tr>
<tr>
<td  valign="top" >
<%if session("adminlogin")<>sessionvar then%>&nbsp;
<p>
<br>
</p>
<div align="center">
<center>
<table width="50%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="10%" background="images/anbg.gif" height="40" style="border-left-style: solid; border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<p align="center"><font color="#CCCCCC">西部<br>
设计</font></td>
<td width="81%" background="images/anbg.gif" class="newshead" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<font color="#000000">&nbsp;<font size="2">..:: <%=sitename%>后台管理 ::..&nbsp;
</font></font></td>
<td width="9%" align="right" background="images/anbg.gif" style="border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<p align="center"><font color="#CCCCCC">创意无限</font></td>
</tr>
</table></center>
</div>
<div align="center">
<table width="50%" cellspacing="3" cellpadding="0" style="border-left: 1px solid #000000; border-right: 1px solid #000000; border-bottom: 1px solid #000000">
<form name="form1" method="post" action="admin_login.asp?action=adminlogin">
<tr>
<td bgcolor="#F1F1F1"  class="chinese" align="center">
<fieldset>
<br><br>
<table width=80% border=0 cellspacing="8" cellpadding="0">
<tr><td width=30% align=right>
用 户 名 ：</td><td width=70%>
<input type="text" name="adminname"  size="15"  maxlength="15" onFocus="this.value=''" >
</td></tr>
<tr><td width=30% align=right>
密&nbsp;&nbsp;　码 ：<td width=70%>
<input type="password" name="adminpwd"  size="15" maxlength="15" onFocus="this.value=''" >
</td></tr>
<tr><td width=30% align=right>
验&nbsp; &nbsp;  证 ：</td><td width=70%>
<input name="GetCode" type="text" size="9" maxlength="4">&nbsp;<img src="code.asp"></td></tr>
<tr><td colspan=2 align=center valign="bottom"><br>
<input type="submit" name="Submit" value="登  录">&nbsp;&nbsp;<input type="reset" value="重  填" name="B2">
<br>
</td></tr></table>
　</td>
</tr>
</form></fieldset>
</table>
</div>
<p>　</p><p>　</p>
<%else%>
<table width="774" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width=201>
<%call adminmenu()%></td>
<td width="1" background="images/dotlinev.gif"></td>
<td bgcolor="#FFFFFF" valign=top width=567 style="background-image:url('images/web_bg.jpg');background-repeat: no-repeat;background-position: right bottom"> 
<table width="98%" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td bgcolor="#FFFFFF" height="200" align="center"><h4><%=adminname%>，恭 喜 登 录 成 功！</h4>
</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%>