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

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > move.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>2 or forumadmin="yes" then
Dim tfselect,types,forum,movef,movet,id,forumid,typeid,i,rsa
id=Request.QueryString("id")
if IsNumeric(id) then
id=Clng(id)
else
id=0
end if
movet=Request.Form("movet")
if IsNumeric(movet) then
movet=Clng(movet)
else
movet=0
end if
if id>0 and movet>0 then
rs.Open "Update topic Set forumid="& movet &" Where id="& id,conn,1,3
rs.Open "forum Where id="& id,conn,1,1
id=rs("id")
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>已成功将贴子 "& id &" 移动到版面 "& movet &"。<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.movet.value.length==0){"&_
"alert(""请选择帖子要移动到的版面名称，请不要选择分类。"");"&_
"document.topicmove.movet.focus();"&_
"return false;"&_
"}"&_
"</script>"&_
"<form name=""topicmove"" method=""post"" onsubmit=""return validmove();"">"&_
"<tr class=""tds""><td>"&_
"移动到："&_
"<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>"
end if
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->