orumtopic.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > forumtopic.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="sub.asp"-->
<%
On Error Resume Next
contents=contents &"<title>帖子移删－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if bbsadmin>4 then
Dim tfselect,types,forum,movef,movet,delf,i,rsa
movef=Request.Form("movef")
if IsNumeric(movef) then
movef=Clng(movef)
else
movef=0
end if
movet=Request.Form("movet")
if IsNumeric(movet) then
movet=Clng(movet)
else
movet=0
end if
delf=Request.Form("delf")
if IsNumeric(delf) then
delf=Clng(delf)
else
delf=0
end if
if movef>0 and movet>0 then
rs.Open "Update topic Set forumid="& movet &" Where forumid="& movef,conn,1,3
rs.Open "forum Where id="& movef,conn,1,1
movef=rs("forumname")
rs.Close
rs.Open "forum Where id="& movet,conn,1,1
movet=rs("forumname")
rs.Close
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">移动帖子</td></tr>"&_
"<tr><td><br>已成功将版面 "& movef &" 的所有帖子移动到版面 "& movet &"。<br><a href=""JavaScript:history.back();"">返回帖子移删页面</a>。<br><br></td></tr>"
elseif delf>0 then
Set rsa=Server.CreateObject("ADODB.Recordset")
rs.Open "topic Where forumid="& delf,conn,1,3
For i=1 to rs.RecordCount
rsa.Open "Delete From reply Where topicid="& rs("id"),conn,1,3
call topicdel(rs("link"))
rs.Delete
rs.MoveNext
Next
rs.Close
Set rsa=Nothing
rs.Open "forum Where id="& delf,conn,1,1
delf=rs("forumname")
rs.Close
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">删除帖子</td></tr>"&_
"<tr><td><br>已成功将版面 "& delf &" 的所有帖子都删除了。<br><a href=""JavaScript:history.back();"">返回帖子移删页面</a>。<br><br></td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">移动帖子</td></tr>"&_
"<script language=""JavaScript"">"&_
"function validmove()"&_
"{"&_
"if (document.topicmove.movef.value.length==0){"&_
"alert(""请选择要移动帖子的版面名称，请不要选择分类。"");"&_
"document.topicmove.movef.focus();"&_
"return false;"&_
"}"&_
"if (document.topicmove.movet.value.length==0){"&_
"alert(""请选择帖子要移动到的版面名称，请不要选择分类。"");"&_
"document.topicmove.movet.focus();"&_
"return false;"&_
"}"&_
"if (document.topicmove.movef.value==document.topicmove.movet.value)"&_
"{"&_
"alert(""请不要选择相同版面，这样只是浪费服务器资源。"");"&_
"document.topicmove.movet.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"<form name=""topicmove"" method=""post"" onsubmit=""return validmove();"">"&_
"<tr class=""tds""><td>"&_
"从版面："&_
"<select name=""movef"" size=""1"">"
%>
<!--#include file="sforum.asp"-->
<%
contents=contents &"</select> 移动到："&_
"<select name=""movet"" size=""1"">"
%>
<!--#include file="sforum.asp"-->
<%
contents=contents &"</select>　"&_
"<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_
"</td></tr>"&_
"</form>"&_
"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">删除帖子</td></tr>"&_
"<script language=""JavaScript"">"&_
"function validdel()"&_
"{"&_
"if (document.topicdel.delf.value.length==0){"&_
"alert(""请选择要删除帖子的版面名称，请不要选择分类。"");"&_
"document.topicdel.delf.focus();"&_
"return false;"&_
"}"&_
"if (confirm('确实要删除该版面的所有帖子吗？\n此操作将物理删除该版面的帖子，不能恢复。\n确定要继续？')==false){"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</script>"&_
"<form name=""topicdel"" method=""post"" onsubmit=""return validdel();"">"&_
"<tr class=""tds""><td>"&_
"删除版面："&_
"<select name=""delf"" size=""1"">"
%>
<!--#include file="sforum.asp"-->
<%
contents=contents &"</select> 的所有帖子　"&_
"<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_
"</td></tr>"&_
"</form>"
end if
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->