post.asp

一个不错的ASP论坛源码

end if
if strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum" then 
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">分类：</font></td>
        <td bgColor="<% =strPopUpTableColor %>">
        <select name="Category" size="1">
<%
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " & strTablePrefix & "CATEGORY.CAT_NAME "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
if mlev = 3 then 
	strSql = strSql & " WHERE CAT_ID = " & strRqCatID
end if 
strSql = strSql & " ORDER BY " & strTablePrefix & "CATEGORY.CAT_NAME ASC;"

set rsCat = my_Conn.execute (strSql)

'On Error Resume Next
do until rsCat.eof
	Response.Write "          <option value=""" & rsCat("CAT_ID") & """"
	if cint(strRqCatID) = rsCat("CAT_ID") then
		Response.Write " selected"
	end if
	Response.Write ">" & ChkString(rsCat("CAT_NAME"),"display") & "</option>" & vbCrLf
	rsCat.movenext
loop
set rsCat = nothing
%>
        </select>
        </td>
      </tr>
<%
end if

if (strRqMethod = "EditTopic") then
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">论坛：</font></td>
        <td bgColor="<% =strPopUpTableColor %>">
<%
	if mlev = 3 or _
	mlev = 4 then 
%>
        <select name="Forum" size="1">
<%
	end if 
	'## Forum_SQL
	strSql = "SELECT " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.F_TYPE "
	strSql = strSql & " FROM " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE F_TYPE = 0 "
	if mLev = 4 then
		'## Do Nothing
	else
		if mLev = 3 and _
			strMoveTopicMode = "1" then
		else
			if (mLev < 3) then
				strSql = strSql & " AND   FORUM_ID = " & rs("FORUM_ID")
			end if
		end if
	end if
	strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.F_SUBJECT ASC;"

	set rsForum = my_Conn.execute (strSql)

	if mlev = 3 or _
	mlev = 4 then
		on error resume next
		do until rsForum.eof
			Response.Write "          <option value='" & rsForum("CAT_ID") & "|" & rsForum("FORUM_ID") & "'"
			if cint(strRqForumId) = rsForum("FORUM_ID") then
				Response.Write " selected"
			end if
			Response.Write ">" & ChkString(rsForum("F_SUBJECT"),"display") & "</option>" & vbCrLf
			rsForum.movenext
		loop
	else
		Response.Write "          <font face='" & strDefaultFontFace & "' size=" & strDefaultFontSize & ">" & ChkString(rsForum("F_SUBJECT"),"display") & "</font>"
		Response.Write "<input type='hidden' name='Forum' value='" & rsForum("CAT_ID") & "|" & rsForum("FORUM_ID") & "'>"
	end if
		
	set rsForum = nothing

	if mlev = 3 or _
	mlev = 4 then 
        Response.Write "</select>" & vbcrlf
	end if
end if 

if strRqMethod = "Category" or _
strRqMethod = "EditCategory" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "Forum" or _
strRqMethod = "EditForum" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Topic" then
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">主题：</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><input maxLength="50" name="Subject" value="<% =Trim(ChkString(TxtSub,"display")) %>" size="40"></td>
      </tr>
<% end if %>

<% if (strRqMethod = "SortCategory") then %>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="center" align="center" colspan=2><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">设定分类排序
      </tr>
      <tr>
        <td align=center bgcolor="<% =strPopUpTableColor %>" nowrap valign="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">排序</font></td>
        <td align=center bgcolor="<% =strPopUpTableColor %>" nowrap valign="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">分类</font></td>
      </tr>
<%		'## Forum_SQL
		strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " 
		strSql = strSql & strTablePrefix & "CATEGORY.CAT_NAME, "
		strSql = strSql & strTablePrefix & "CATEGORY.CAT_ORDER"
		strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
		strSql = strSql & " ORDER BY " & strTablePrefix & "CATEGORY.CAT_ORDER"
		strSql = strSql & ", " & strTablePrefix & "CATEGORY.CAT_NAME"
		set rslist = Server.CreateObject("ADODB.Recordset")
		rslist.cachesize = 20
		rslist.open  strSql, my_Conn, 3

		If not (rslist.EOF or rslist.BOF) then  '## Forums found in DB for this category
			rslist.movefirst
			rslist.pagesize = 1
			categorycount = cint(rslist.pagecount)
			ordercount = 1 %>
		<input name="NumberCategories" type="hidden" value="<% =categoryCount %>"> 
<%			i = 1
		do while not rslist.eof %>
			<tr><td bgColor="<% =strPopUpTableColor %>">
<%			SelectName = "SortCategory" & ordercount
			SelectID   = "SortCatID" & ordercount %>
			<input name="<% =SelectID %>" type="hidden" value="<% =rslist("CAT_ID") %>"> 
			<SELECT readonly name="<% =SelectName %>">
<%			i = 1
			do while i <= categorycount  %>
				<option value="<% =i %>" <% if (i = rslist("CAT_ORDER")) or (i = ordercount) then Response.Write(" selected") %>><% =i %></option>
<%				i = i + 1
			loop 
			%>
        		</select></td>
        	<td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rslist("CAT_NAME"),"display") %></font></td>
		</tr>
<%		rslist.movenext
		ordercount = ordercount + 1
		loop %>
<%		end if
		set rslist = nothing %>
<% end if %>

<% if (strRqMethod = "EditCategory") then %>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">论坛排序：<br></font></td>
	<td bgColor="<% =strPopUpTableColor %>">
<%		'## Forum_SQL
		strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " 
		strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, "
		strSql = strSql & strTablePrefix & "FORUM.FORUM_ORDER"
		strSql = strSql & " FROM " & strTablePrefix & "FORUM "
		strSql = strSql & " WHERE Cat_ID = " & Request.QueryString("Cat_ID")
		strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.FORUM_ORDER"
		strSql = strSql & ", " & strTablePrefix & "FORUM.F_SUBJECT"
		set rslist = Server.CreateObject("ADODB.Recordset")
		rslist.cachesize = 20
		rslist.open  strSql, my_Conn, 3

		If not (rslist.EOF or rslist.BOF) then  '## Forums found in DB for this category
			rslist.movefirst
			rslist.pagesize = 1
			forumcount = cint(rslist.pagecount)
			ordercount = 1 %>
		<input name="NumberForums" type="hidden" value="<% =ForumCount %>"> 
		<table>
<%			i = 1
		do while not rslist.eof %>
			<tr><td bgColor="<% =strPopUpTableColor %>">
<%			SelectName = "SortForum" & ordercount
			SelectID   = "SortForumID" & ordercount %>
			<input name="<% =SelectID %>" type="hidden" value="<% =rslist("FORUM_ID") %>"> 
			<SELECT readonly name="<% =SelectName %>">
<%			i = 1
			do while i <= forumcount  %>
				<option value="<% =i %>" <% if (i = rslist("FORUM_ORDER")) or (i = ordercount) then Response.Write(" selected") %>><% =i %></option>
<%				i = i + 1
			loop 
			%>
        		</select></td>
        	<td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rslist("F_SUBJECT"),"display") %></font></td>
		</tr>
<%		rslist.movenext
		ordercount = ordercount + 1
		loop %>
		</table>
<%		end if
		set rslist = nothing %>
	</td>
      </tr>
<% end if %>

<%
if strRqMethod = "URL" or _
strRqMethod = "EditURL" then 
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">地址：</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><input maxLength="150" name="Address" value="<% if (TxtURL <> "") then Response.Write(TxtURL) else Response.Write("http://") %>" size="40"></td>
      </tr>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">图形连接：</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><input maxLength="150" name="URLImage" value="<% if (TxtURLImage <> "") then Response.Write(TxtURLImage) %>" size="40"></td>
      </tr>
	  
<%
end if
 
if strRqMethod = "Edit" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "Forum" or _
strRqMethod = "EditForum" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then 
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">内容：<br>
        <br>
        <table border=0>
          <tr>
            <td align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if strAllowHTML = "1" then %>
            * HTML语法开启<br>
<% else %>
            * HTML语法关闭<br>
<% end if %>
<% if strAllowForumCode = "1" then %>
            * <a href="JavaScript:openWindow3('pop_forum_code.asp')">本版专用代码</a>开启<br>
<% else %>
            * 本版专用代码关闭<br>
<% end if %>
            </font>  
            </td>
          </tr>
        </table>
        </font>    
        </td>
        
        <td bgColor="<% =strPopUpTableColor %>"><textarea cols="<%=intCols %>" name="Message" rows="<%=intRows %>" wrap="VIRTUAL"><% =Trim(CleanCode(TxtMsg))%></textarea><br>
        

        </td>
      </tr>
<% 
end if
 
if strRqMethod = "Edit" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Forum" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then 
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>">&nbsp;</td>
        <td bgColor="<% =strPopUpTableColor %>">
<% 
	if strRqMethod = "Edit" or _
	strRqMethod = "EditTopic" or _
	strRqMethod = "Reply" or _
	strRqMethod = "ReplyQuote" or _
	strRqMethod = "Topic" or _
	strRqMethod = "TopicQuote" then 
%>
        <table border=0>
         <tr>
          <td>
          <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">模式：
		      <select name="font" onChange="thelp(this.options[this.selectedIndex].value)">
				<option value="1">帮助&nbsp;</option>
				<option selected value="2">完全&nbsp;</option>
				<option value="0">基本&nbsp;</option>
	  		  </select>          
<% 
'#################################################################################
'## File Attachment Stuff
'#################################################################################
		if strRqMethod = "Reply" or _
		strRqMethod = "Edit" or _ 
		strRqMethod = "ReplyQuote" or _
		strRqMethod = "TopicQuote" then

			if intAllowUploads = 1 and STRdbntUserName <> "" then 
				response.write "&nbsp;附加文件：&nbsp;"
				Response.Write "<a href =" & """" & "javascript:openWindow('Mods/pop_upload.asp?TOPIC_ID=" & Request.Querystring("TOPIC_ID") & "&REPLY_ID=" & Request.Querystring("REPLY_ID") & "&MEMBER_ID=" & getMemberID(STRdbntUserName) & "')"" >"
				Response.Write "<img src=""" & strImageURL & "icon_paperclip.gif"" width=23 height=22 border=0 ></a>&nbsp;"
			end if
		end if
'#################################################################################
'## File Attachment Stuff
'#################################################################################
%>
			</font></td>
          </tr>
        </table>
<%
	end if

	if strRqMethod = "Edit" or _
	strRqMethod = "EditTopic" or _
	strRqMethod = "Reply" or _
	strRqMethod = "ReplyQuote" or _
	strRqMethod = "Topic" or _