⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 loginbook.asp

📁 一个很好的ASp.net论坛程序
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="config.asp" -->
<!-- #include file="function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<title><%= bodytitle %></title>
<script language="javascript">
<!--
function check(){
 if(document.myform.admin.value==""){
 alert("管理员姓名不能空")
 return false;
}
 if(document.myform.password.value==""){
 alert("密码不能空")
 return false;
}
return true;
}
//-->
</script>
</head>
<body topmargin="5" leftmargin="0" bgcolor="<% =bodycolor %>">
<div align="center">
<br>
<!-- #include file="include/top.asp" -->
<table border="0" cellspacing="1" cellpadding="0" width="<%=tablewidth%>" bgcolor="<%= tablebg %>">
<tr>
<td width="98%" height="20" valign="bottom" background="background/td1.gif">
<table border="0" width="100%" cellspacing="0" cellspadding="0"><tr><td width="87%">
&nbsp&nbsp<img src="pic/arrow.gif" border="0"></img>&nbsp当前位置:
<a href="http://www.21pcnet.com" target="_blank">世纪电脑网</a> → <a href="index.asp">查看留言</a> → <a href="loginbook.asp">管理登录</a>
</td>
<td width="13%">
[ 管理留言]</td></tr></table>
</td></tr></table>
<table border="0" bgcolor="<%=tablebg%>" width="<%=tablewidth%>" cellspacing="1" cellpadding="0" height="60%">
<tr bgcolor="<%=tdbg%>">
<td align="center">


<table border="0" cellspacing="0" cellpadding="2" width="540" bgcolor="<%= tablebg %>">
<tr>
<td width="540" height="22" valign="bottom" background="background/maintd1.gif">&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp留言板管理员登录</td></tr>
<tr align="center">
<td width="540" height="140" valign="middle" background="background/maintd2.gif">
<table border="0" bgcolor="<%=tdbg%>" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" width="30%">
<img src="pic/login.jpg" border="0"></img>
</td>
<td width="70%" align="center" valign="middle"> 

<table width="95%" border="0" cellspacing="1" cellpadding="5" bgcolor="a1a1a1">
<form action="loginbook.asp" method="post" name="myform" onsubmit="javascript:return check()">
<tr bgcolor="ffffff">
<td height="20" width="35%" align="right">管理员ID</td>
<td><input type="text" name="admin" size="20"></td></tr>
<tr bgcolor="ffffff">
<td height="20" width="35%" align="right">管理Password</td>
<td><input type="password" name="password" size="20"></td></tr>
<tr bgcolor="dedede">
<td height="30" valign="middle" align="center" colspan="2">
<input type="submit" name="a1" value=" 登 录 " class="button">&nbsp&nbsp
<input type="button" value="退出管理" onclick="javascript:window.document.location.href='exit.asp'"></td></tr>
</form>
</table>

</td></tr></table>
</td></tr>
<tr>
<td width="540" height="23" valign="middle" background="background/maintd3.gif">&nbsp</td></tr>
</table>

</td></tr>
</table>
<table style="border:#484848 1px solid;" width="<%=tablewidth%>" cellspacing="0" cellpadding="2" background="background/tdbg.gif">
<tr>
<td height="23">

</td></form></tr>
</table>
<br>
<!-- #include file="include/bottom.asp" -->
</div>
</body>
</html>
<%
  if trim(request("admin"))<>"" and trim(request("password"))<>"" then
  dim rs,strsql,admin,password
  admin=request("admin")
  password=request("password")
  session("admin")=admin
  strsql="select admin,password from admin where admin='"& admin &"' and password='"& password &"'"
  set rs=db.execute(strsql)
  if not rs.eof and not rs.bof then
  response.redirect "index.asp"
  else
  response.write "<script language='javascript'>"& chr(13) &"alert('密码错误,请重新输入');"&"history.back() "&"</script>"
  end if
end if
%>

⌨️ 快捷键说明

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