📄 movepost.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True

Dim rsSelectForum
Dim strCatName	
Dim intBoardID	
Dim strForumName
Dim lngfid	
Dim intForumID
Dim lngPostID	

If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If
lngPostID = CLng(Request.QueryString("pid"))
strSQL = "SELECT timestopic.bbsid "
strSQL = strSQL & "FROM timestopic, timespost "
strSQL = strSQL & "WHERE timestopic.topicid = timespost.topicid AND timespost.postid = " & lngPostID & ";"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	intForumID = CInt(rsConn("bbsid"))
End If
rsConn.Close

If blnAdmin = False Then blnModerator = isModerator(intForumID, intGroupID)
If blnAdmin = False AND blnModerator = False Then
	Set rsConn = Nothing
	Set adoCon = Nothing
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If
%>
<html>
<head>
<title>移动帖子</title>
<script language="JavaScript">
function CheckForm () {
	if (document.frmMovePost.forum.value==""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改:\n";
		alert(msg + "\n\t论坛\t- 请选择一个放置这个贴子的论坛")
		
	}

	return true
}
</script>
<!--#include file="includes/skin.asp" -->

</head>
<body bgcolor="<% = strBgColour %>" text="<% = strTextColour %>" background="<% = strBgImage %>" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0" OnLoad="self.focus();">
<div align="center" class="heading">
  <p>&nbsp;</p>
  <p>移动帖子</p>
</div>
<div align="center" class="text"><br />第一步: - 选择一个你想放置这个贴子的论坛.然后按继续.</div>
   <form method="post" name="frmMovePost" action="movepostto.asp" onSubmit="return CheckForm();">
    <table width="400" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<% = strTableBorderColour %>" height="8">
     <tr>
      <td height="24" width="680">
       <table width="100%" border="0" align="center"  height="8" cellpadding="4" cellspacing="1">
        <tr >
         <td align="left" width="57%" height="2"  bgcolor="<% = strTableTitleColour %>" class="tHeading" background="<% = strTableTitleBgImage %>">选择一个你想放置这个贴子的论坛</td>
        </tr>
        <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
         <td align="left" width="57%"  height="12" bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>">
          <select name="forum"><%
Set rsSelectForum = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT timesboard.boardname, timesboard.boardid FROM timesboard ORDER BY timesboard.boardnum ASC;"
rsConn.Open strSQL, adoCon
Do while NOT rsConn.EOF
	strCatName = rsConn("boardname")
	intBoardID = Cint(rsConn("boardid"))
	Response.Write vbCrLf & "		<option value="""">" & strCatName & "</option>"
	strSQL = "SELECT timesbbs.bbsname, timesbbs.bbsid FROM timesbbs WHERE timesbbs.boardid = " & intBoardID & " ORDER BY timesbbs.bbsnum ASC;"
	rsSelectForum.Open strSQL, adoCon
	Do while NOT rsSelectForum.EOF
		strForumName = rsSelectForum("bbsname")
		lngfid = CLng(rsSelectForum("bbsid"))
		Response.Write vbCrLf & "		<option value=""" & lngfid & """"
		If CInt(Request.QueryString("fid")) = lngfid OR intForumID = lngfid Then Response.Write " selected"
		Response.Write ">&nbsp;&nbsp;-&nbsp;" & strForumName & "</option>"
		rsSelectForum.MoveNext
	Loop
	rsSelectForum.Close
	rsConn.MoveNext
Loop
rsConn.Close
Set rsConn = Nothing
Set rsSelectForum = Nothing
adoCon.Close
Set adoCon = Nothing
%>
          </select>
          <input type="hidden" name="pid" value="<% = lngPostID %>">
         </td>
        </tr>
       </table>
      </td>
    </tr>
  </table>
  <br />
  <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
    <tr>
      <td align="center">
       <input type="submit" name="Submit" value="下一步 &gt;&gt;">
      </td>
    </tr>
  </table>
</form>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
    <tr>
      <td align="center">
        <a href="JavaScript:window.close();">关闭窗口 </a>
      </td>
    </tr>
  </table>
  <br /><br />
<br />
<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

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