📄 manager.asp

📁 大家好

💻 ASP

字号:

<%@ language="vbscript"%>
<!-- #include file="adovbs.inc" -->
<%	function fixQuotes(theString)
			fixQuotes=Replace(theString,"'","''")
	end function
	On Error Goto 0
if trim(session("3508"))="" then
	manager=trim(request("admid"))
	admpassword=trim(request("admpw"))
	Set con=Server.CreateObject("ADODB.Connection")
	con.Open Application("DBCon_ConnectionString")
	strSql="SELECT * FROM forumadm WHERE adm='"+fixquotes(manager)+"' and pw='"+fixquotes(admpassword)+"'"
	set rs=con.execute(strsql)
	if rs.eof then
		response.write "您非管理员，没有这种权限！"
		response.write "<a href='"&"../default.asp"&"'>返回主页</a>"
		response.end
	else
		session("3508")=manager
	end if
end if
%>
<html>
<head>
<title>用户发布权限管理设置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../html/3508.css">
</head>
<body bgcolor="#FFFFFF">
<table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="center"> 
    <td height="95">
      <h1>后台管理</h1>
    </td>
  </tr>
  <tr align="center"> 
    <td><a href="usermanager.asp">用户权限设置</a></td>
  </tr>
  <tr align="center"> 
    <td><a href="ad.asp">后台新闻发布</a></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -