📄 admin.asp

📁 不错的asp论坛,大家可以看看啊和呵呵.
💻 ASP
字号:
<!--#include file="../inc/config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<title>流星情缘</title>
<%
dim founderr,errmsg
founderr=false
errmsg=""
dim adminname
dim adminpwd
dim flag
if request("action")="adminlogin" then
adminname=trim(replace(request("adminname"),"'",""))
adminpwd=trim(replace(request("adminpwd"),"'",""))
flag=trim(replace(request("flag"),"'",""))

if adminname="" and adminpwd="" then
   founderr=true
   errmsg=errmsg+"<br>"+"<li>请输入用户名或密码！"
end if
if founderr then
call diserror
response.end
end if
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("flag")=rs("flag")
   session.timeout=50
   rs.close
   set rs=nothing
end if
elseif request("action")="logout" then
  session("adminlogin")=""
  session("flag")=""
  session("issuper")=""
end if
if session("adminlogin")<>sessionvar and session("flag")="" then%>
<HTML><HEAD><TITLE>如影驿站</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="inc/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))><br><br><br> 
      <table width="280" border="0" cellspacing="1" cellpadding="10" align="center" bgcolor="#000000">
<form name="form1" method="post" action="admin.asp?action=adminlogin">
  <tr> 
    <td bgcolor="#E8E8E8" align="center"  colspan="2">
      流星情缘</td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF" width="80">用 户： 
              </td><td bgcolor="#FFFFFF" width="200"><input type="text" name="adminname" class="textarea" size="20"></td>
  <tr> 
    <td bgcolor="#FFFFFF">密 码：</td><td bgcolor="#FFFFFF"><input type="password" name="adminpwd" class="textarea" size="20"></td>
  </tr>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"  colspan="2" align="center"><input type="submit" name="Submit" value="登录" class="button"></td>
  </tr>
</table>
      <%else%>
<html>
<head>
<title>流星情缘</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset id="frame" frameborder="NO" border="0" framespacing="0" rows="*"> 
  <frameset id="frame" cols="140,*" frameborder="NO" border="0" framespacing="0"> 
  <frame name="menu" target="main" scrolling="AUTO" noresize src="menu.asp" marginwidth="0" marginheight="0">
<frameset rows="35,*"  framespacing="0" border="0" frameborder="0" frameborder="no" border="0">
<frame src="top.asp" name="top" target="main" scrolling="NO" NORESIZE frameborder="0" marginwidth="10" marginheight="0" border="no">
<frame name="main" src="body.asp" scrolling="AUTO" NORESIZE frameborder="0" marginwidth="10" marginheight="10" border="no">
</frameset>
	</frameset>
</frameset>
　<noframes>
　<body>
　　<p>本页使用了框架结构，但是您的浏览器不支持它。请将您的浏览器升级为IE5.0或更高的版本！</p>
　　<p><a href="contents.html">进入</a></p>
　</body>
　</noframes>
</html>
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -