📄 thread.asp

📁 BBS论坛的开发和设计

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "BBSConfig.asp"-->
<!--#include file="Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>论坛贴子管理</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
  return eval(jsStr)
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
Sub errorMsg(theError)
response.write"<script language=javascript>alert('"& theError &"');history.back();</script>"
response.End
End Sub
'---------------------------------------
action = trim(request.QueryString("action"))
SELECT CASE action
	Case "Del"
		Call Del()
End SELECT
'=============================
Sub Del()
	userid = trim(request.QueryString("userid"))
		if Not(IsNumeric(userid)) then ErrorMsg "参数错误!~"
	Conn.ExeCute("delete from JBB_thread where postuserid="&userid)
	Conn.ExeCute("delete from JBB_post where user_id="&userid)
	response.Write("<br><br>　　删除完毕!~,<a href=""javascript:history.back()"">点击这里返回继续操作</a>")
End Sub
%>
</body>
</html>
<%
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -