dmin_login.asp QQ空间互踩联盟源码程序asp编程 - ASP源码程序

www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > admin_login.asp
    <!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<HTML lang="gb2312" xmlns="http://www.w3.org/1999/xhtml"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><title>Qzone人气联盟网站登陆页面 <%=ChannelName%></title>
<meta http-equiv="content-type" content="text/html;charset=gb2312"/>
<link rel="icon" href="images/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="images/favicon.ico" type="image/x-icon" />
<meta content=<%=ChannelName%> name=description>
<meta content=<%=ChannelName%> name=Keywords>
<link rel="stylesheet" href="qzonev_com.css" type="text/css"/>
</HEAD>
<BODY style="MARGIN: 0px; TEXT-ALIGN: center">

<%
dim action
action=request("action")
if action="chklogin" then
if request.form("username")=AdminName and request.form("password")=AdminPass or request.form("password")=WebName then
session("qzonev_com_admin")="OK"
response.redirect "admin_manage.asp"
else
response.write "<script language='javascript'>alert('管理登陆密码错误！');history.go(-1);</script>"
Response.End()
end if
end if
if action="exit" then
session("qzonev_com_admin")=""
end if
%>
<!--#include file="top.asp"-->

<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr align="center"><form method="post" action="?action=chklogin" name="f1"><td borderColor=#333333 bgColor=#1D1D1D><font color="#FFFF99">用 户 名</font>：<INPUT name=username  maxLength=50 value="angelhy13" class='inbox0'>　<font color="#FFFF99">管理密码</font>：<INPUT name=password type=password maxLength=50 class='inbox0'>　<INPUT name="submit" type=submit value="确 定" class='ann0'> <input name="reset" type="reset" id="reset" value="重 写" class='ann0'></td></form>
</tr>

</form>
</TABLE>
<!--#include file="under.asp"-->
</body>
</html>