📄 movepostto.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
Dim strTopicSubject
Dim lngTopicID
Dim lngMoveToForumID
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.Form("pid"))
lngMoveToForumID = CLng(Request.Form("forum"))
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
adoCon.Close
Set adoCon = Nothing
Response.Redirect("index.asp")
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>移动帖子</title>
<!--#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">移动帖子</div>
<div align="center" class="text"><br />第二步: 给你的帖子重新命名</div>
<form method="post" name="frmMovePost" action="move.asp">
<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="topicSelect"><%
strSQL = "SELECT TOP 400 timestopic.topicid, timestopic.Subject FROM timestopic WHERE timestopic.bbsid = " & lngMoveToForumID & " ORDER BY timestopic.lastdtm DESC;"
rsConn.Open strSQL, adoCon
Do while NOT rsConn.EOF
strTopicSubject = rsConn("Subject")
lngTopicID = Cint(rsConn("topicid"))
Response.Write vbCrLf & " <option value=""" & lngTopicID & """>" & strTopicSubject & "</option>"
rsConn.MoveNext
Loop
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
</select>
<input type="hidden" name="pid" value="<% = lngPostID %>">
<input type="hidden" name="tofid" value="<% = lngMoveToForumID %>">
</td>
</tr>
</table>
</td>
</tr>
</table>
<br />
<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 %>">
<input type="text" name="subject" size="30" maxlength="41">
</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="移动">
</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 />
<!--#include file="includes/footer.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -