📄 manage.asp

📁 功能强大的一个b/s工作站
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
If session("kenanbook")="" Then
   Response.Redirect("login.asp")
End If
 %>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<% ipcheck()
select case Request.QueryString("style")
   case "del"
       call del()
	   titlemsg="留言删除成功..."
	   managemsg="<a href=index.asp>留言已经删除，请返回... ...</a>"
	   url="index.asp"
   case "reply"
       call reply()
	   titlemsg="留言已回复..."
	   managemsg="<a href=index.asp>留言已经回复，请返回... ...</a>"
	   url="index.asp"
   case "edit"
       call edit()
	   titlemsg="留言已编辑..."
	   managemsg="<a href=index.asp>留言已经成功编辑，请返回... ...</a>"
	   url="index.asp"
   case "delip"
       call delip()
	   titlemsg="IP已删除..."
	   managemsg="<a href=adminindex.asp>IP已经成功删除，请返回... ...</a>"
	   url="adminindex.asp"
   case Else
       Response.Redirect("error.asp?err=106")
End select
sub del()
    sql="delete * from content where ID="&Request("id")
	conn.execute(sql)
	connclose()
end sub
sub reply()
   title=Request.Form("title")
   guestcontent=Request.Form("guestcontent")
   sql="select replytitle,reply,time2,ID from content where ID="&Request.Form("id")
   set rs=server.CreateObject("adodb.recordset")
   rs.open sql,conn,1,3
   rs("replytitle")=title
   rs("reply")=guestcontent
   rs("time2")=now()
   rs.update
   'rsclose()
   connclose()
end sub
sub edit()
    id     =Request.Form("id")
	user   =Request.Form("name") 
	sex    =Request.Form("sex")
	email  =Trim(Request.Form("email"))
	url    =Trim(Request.Form("homepage"))
	adress =Request.Form("from")
	title  =Request.Form("title")
    content=request.Form("guestcontent")
	faceimg=request.Form("face")
	qq     =Trim(Request.Form("oicq"))
	hide   =Request.Form("hide")
	if user="" then Response.Redirect"error.asp?err=101"
	'content=ubbcode(content)
	bad=split(badstr,"|")
	for i=0 to UBound(bad)
		content=Replace(content,bad(i),"**")
	next
	title=server.htmlencode(title)
		bad=split(badstr,"|")
	for i=0 to UBound(bad)
		title=Replace(title,bad(i),"**")
	next
	sql="select * from content where ID="&id
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("user")=user
	rs("sex")=sex
	rs("mail")=email
	rs("url")=url
	rs("adress")=adress
	rs("title")=title
	rs("QQ")=qq
	rs("content")=content
	rs("face")=faceimg
	rs("hide")=hide
	rs.update
	'rsclose()
	connclose()
end sub
sub delip()
   conn.execute("delete * from iplock where ID="&Request.QueryString("id"))
   connclose()
End sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="2;URL=<%=url%>">
<title>无标题文档</title>
</head>
<body>
<br><br><br>
<p>&nbsp;</p>
<table width="345" height="154" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="263" height="21" background="images/iebg.gif"><IMG 
      src="images/ie.gif" width="17" height="16"><a href="index.asp"><font color="#FFFFFF"><%=titlemsg%> 
      ...</font></a></td>
    <td width="82" height="21" align="right" valign="middle" background="images/iebg.gif"><IMG src="images/bbs_off.gif" width="21" height="21" border=0 align=absMiddle><IMG src="images/bbs_mid.gif" name=mid width="21" height="21" border=0 align=absMiddle><IMG src="images/bbs_close.gif" width="21" height="21" border=0 align=absMiddle> 
    </td>
  </tr>
  <tr> 
    <td colspan="2" align="center" background="images/xp_mid.jpg"> <table width="85%" height="92" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="37%" height="50" align="center"><img src="images/mouse.gif" width="32" height="32"></td>
          <td width="63%"><img src="images/loading.gif" width="94" height="27"></td>
        </tr>
        <tr> 
          <td colspan="2" align="center"><%=managemsg%></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="9" colspan="2"><img src="images/xp_bot.jpg" width="345" height="9"></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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