<%if session("user")="" then
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"window.close();</SCRIPT>"
response.end
end if
if session("id")="" then 
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"window.close()';</SCRIPT>"
response.end
end if%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../conn/nosql.asp"-->
<!--#include file="../conn/config.asp"-->
<%
act=nosql(request("act"))
if isChkInteger(request("id")) then
id=request("id")
else
Response.Redirect ("../../index.asp")
end if

if act="zy" then
classid=nosql(request("classid"))
bbsclassid=nosql(request("bbsclassid"))
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open"select * from snsn_bbs where id="&id,conn,1,3
rs("bbsclass")=bbsclassid
rs.update
response.write "<script language=javascript>alert('转移成功,本页将会关闭！');window.close();window.opener.location.reload();</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>论坛帖子转移</title>

<style type="text/css">
<!--
.wenbenkuang {color: #333333;border: 1px solid #cccccc;font-family: "??";font-size: 9pt;}
.go-wenbenkuang {font-family: "??";font-size: 9pt;color: #333333;background-color: #eeeeee;cursor: hand;padding: 1px;height: 19px;border-top: 1px solid #FFFFFF;border-right: 1px solid #a2a2a2;border-bottom: 1px solid #a2a2a2;border-left: 1px solid #FFFFFF;}
.z12 {
	font-size: 12px;
}
.style1 {color: #FF0000}
-->
</style>
</head>

<body onload="javascript:form1.jifen.select()">
<%Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open"select * from snsn_bbs where id="&id,conn,1,1
set rs3=conn.execute("select * from [snsn_bbsclass] where id="&rs("bbsclass")&"")
if rs3.eof or rs3.bof then
Response.Redirect ("../../index.asp")
else
bbsname=rs3("bbsname")
end if
if session("bbsbz")="yes" or session("user")=rs("username")  then
%>
<form name="form1" method="post" action="?act=zy">
  <table width="262"  border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="z12">
    <tr align="center" bgcolor="#FFFFFF">
      <td width="260" height="26" bgcolor="efefef">论坛帖子转移</td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF">
      <td height="25">现在类别:<%=bbsname%>
      <input name="classid" type="hidden" id="classid" value="<%=bbsname%>">
      <input name="id" type="hidden" id="id" value="<%=id%>"></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF">
      <td height="25">转移类别:
        <select name="bbsclassid" size="1" id="bbsclassid"  class="wenbenkuang">
          <%Set rs1 = Server.CreateObject("ADODB.Recordset")

        rs1.open "select * from snsn_bbsclass order by id",conn,1,1
	if rs1.eof and rs1.bof then
%>
          <option selected value="0">没有分类</option>
          <% 
	else
%>
          <option  value="<%=rs1("id")%>"><%=trim(rs1("bbsname"))%></option>
          <% 
        rs1.movenext
        do while not rs1.eof
%>
          <option value="<%=rs1("id")%>"><%=trim(rs1("bbsname"))%></option>
          <%
        rs1.movenext
        loop
	end if
        rs1.close
%>
        </select></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF">
      <td height="25"><input name="Submit" type="submit" class="go-wenbenkuang" value="转移">      
      &nbsp;
      <input name="Submit2" type="button" class="go-wenbenkuang" onClick="window.close()" value="取消"></td>
    </tr>
  </table>
</form>
<%else
response.write "<script language='javascript'>"
response.write "alert('您没有权限，请登录后再访问本页！');"
response.write"window.close();</SCRIPT>"
response.end
end if%>
</body>
</html>
