post.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

' ###					Response.Write "<img src=""" & strImageURL & "icon_paperclip.gif"" width=23 height=22 border=0 ></a>&nbsp;"
				end if
			end if
		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 _
	strRqMethod = "TopicQuote" then
		if strRqMethod = "Reply" or _
		strRqMethod = "ReplyQuote" or _
		strRqMethod = "Topic" or _
		strRqMethod = "TopicQuote" then
%>
	<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
	&nbsp;&nbsp;<input id="Sig" name="Sig" type="checkbox" value="yes" checked><label for="Sig">&nbsp;是否显示您的签名？</label><br>
	</font>
<%
		end if
		if lcase(strEmail) = "1" then
			if strRqMethod = "Topic" or _
			strRqMethod = "EditTopic" then
%>
	<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
	&nbsp;&nbsp;<input id="rmail" name="rmail" type="checkbox" value="1" <%=Chked(boolTopic)%>><label for="rmail">&nbsp;当有人回复你的主题时以E-mail通知</label></font><br>
<%
			else
				if strRqMethod = "Reply" or _
				strRqMethod = "Edit" or _
				strRqMethod = "ReplyQuote" or _
				strRqMethod = "TopicQuote" then
%>	<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
	&nbsp;&nbsp;<input id="rmail" name="rmail" type="checkbox" value="1" <%=Chked(boolReply)%>><label for="rmail">&nbsp;当有新回复时以E-mail通知</label></font><br>
<%				end if
			end if
		end if

		if ((mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1")) _
		and (strRqMethod = "Topic" or strRqMethod = "Reply" or _
		strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote") then %>
	<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
	&nbsp;&nbsp;<input id="lock" name="lock" type="checkbox" value="1"><label for="lock">&nbsp;发表后锁定本主题</label><br>
	&nbsp;&nbsp;<input id="locktop" name="locktop" type="checkbox" value="1"><label for="locktop">&nbsp;发表后将主题固定于论坛顶端</label></font><br><br>
<%		end if
	end if
end if %></td>
      </tr>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>">　</td>
        <td bgColor="<% =strPopUpTableColor %>"><input name="Submit" type="submit" value="<% =btn %>" onClick="return clckcntr();">
<%
		if strRqMethod = "Reply" or _
		strRqMethod = "Edit" or _
		strRqMethod = "ReplyQuote" or _
		strRqMethod = "Topic" or _
		strRqMethod = "TopicQuote" then
%>
		&nbsp;<input name="Preview" type="button" value=" 预览 " onclick="OpenPreview()">
<%
' ##########################  SpellCheck MOD  ##############################
	if intSpellCheck then %>
		&nbsp;<input name="Preview" type="button" value=" 拼字检查（英文）" onclick="OpenPreview2()">
<% 	End if
' ##########################  SpellCheck MOD  ############################## %>

<%
		end if
%>
        &nbsp;<input name="Reset" type="reset" value="全部清除"></td>
      </tr>
<%
if strPrivateForums <> "0" then
	if strRqMethod = "Forum" or _
	strRqMethod = "URL" or _
	strRqMethod = "EditURL" or _
	strRqMethod = "EditForum" then
		if strRqMethod = "EditForum" or _
		strRqMethod = "EditURL" then
'			ForumAuthType = rs("F_PRIVATEFORUMS")
			ForumAuthType = IsPrivateType
			ForumHide = rs("F_HIDDEN")
		else
			ForumAuthType = 0
			ForumHide = 0
		end if
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">授权模式：</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><SELECT readonly name="AuthType">
        <option value="0" <% if ForumAuthType = 0 then Response.Write(" selected") %>>任何人（包括游客跟会员）</option>
        <option value="4" <% if ForumAuthType = 4 then Response.Write(" selected") %>>只有会员</option>
        <option value="5" <% if ForumAuthType = 5 then Response.Write(" selected") %>>只有会员（隐藏）</option>
<%
		if strRqMethod = "Forum" or _
		strRqMethod = "EditForum" then
%>
        <option value="2" <% if ForumAuthType = 2 then Response.Write(" selected") %>>密码登陆</option>
        <option value="7" <% if ForumAuthType = 7 then Response.Write(" selected") %>>只有会员＆密码保护</option>
        <option value="3" <% if ForumAuthType = 3 then Response.Write(" selected") %>>授权的会员＆密码登陆</option>
<%		end if %>
        <option value="1" <% if ForumAuthType = 1 then Response.Write(" selected") %>>授权的会员</option>
        <option value="6" <% if ForumAuthType = 6 then Response.Write(" selected") %>>授权的会员（隐藏）</option>
<%	If strNTGroups = "1" then %>	
        <option value="9" <% if ForumAuthType = 9 then Response.Write(" selected") %>>NT Global Group</option>
        <option value="8" <% if ForumAuthType = 8 then Response.Write(" selected") %>>NT Global Group（隐藏）</option>
<%	end if%>
<%'############### READ/WRITE ACCESS ###########################%>
        <option value="10" <% if ForumAuthType = 10 then Response.Write(" selected") %>>只有版主和管理员可以回复</option>				
        <option value="11" <% if ForumAuthType = 11 then Response.Write(" selected") %>>任何会员都可以回复</option>
        <option value="12" <% if ForumAuthType = 12 then Response.Write(" selected") %>>只有版主和管理员可以发表及回复</option>		
<%'############### READ/WRITE ACCESS ###########################%>
        </select>
<%'#################%>
		&nbsp;<input type="checkbox" name="HideForum" value="1" <% if ForumHide = 1 then Response.Write(" checked") %>>隐藏
<%'#################%>
<%
		if strRqMethod = "Forum" or _
		strRqMethod = "EditForum" then
			if strRqMethod = "EditForum" then
				If rs("F_PASSWORD_NEW") <> " " Then
					strPassword = ChkString(rs("F_PASSWORD_NEW"),"password")
				else
					strPassword = " "
				end if
			else
				strPassword = " "
			end if
%>
        <br><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">密码<% if strNTGroups = "1" then Response.Write("或 Global Groups") %>：<br></font>
        <input maxLength="255" type="text" name="AuthPassword" size="60" value="<%=strPassword%>">
<%
		end if
%>
        </td>
      </tr>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">授权会员名单：</font></td>
<%
			'#################################################################################
			'## Allowed User - listbox Code
			'#################################################################################
		if strRqMethod = "EditForum" or strRqMethod = "EditURL" then
			strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
			strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
			strSql = strSql & " WHERE NOT EXISTS (SELECT *"
			strSql = strSql & " FROM " & strTablePrefix & "ALLOWED_MEMBERS "
			strSql = strSql & " WHERE " & strTablePrefix & "ALLOWED_MEMBERS.FORUM_ID = " & strRqForumID
			strSql = strSql & " AND " & strTablePrefix & "ALLOWED_MEMBERS.MEMBER_ID = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID) "
		else
			strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
			strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
		end if
		strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME ASC;"
		on error resume next
		set rsMember = my_Conn.execute (strSql)

		strSql = "SELECT " & strTablePrefix & "ALLOWED_MEMBERS.MEMBER_ID "
		strSql = strSql & " FROM " & strTablePrefix & "ALLOWED_MEMBERS "
		strSql = strSql & " WHERE " & strTablePrefix & "ALLOWED_MEMBERS.FORUM_ID = " & strRqForumID

		set rsAllowedMember = my_Conn.execute (strSql)

		tmpStrUserList  = ""
		if strRqMethod = "EditForum" or strRqMethod = "EditURL" then
		do while not (rsAllowedMember.EOF or rsAllowedMember.BOF)
			if tmpStrUserList = "" then
				tmpStrUserList = rsAllowedMember("MEMBER_ID")
			else
				tmpStrUserList = tmpStrUserList & "," & rsAllowedMember("MEMBER_ID")
			end if
			rsAllowedMember.movenext
		loop
		end if
		uSelectSize = 10
%>
<td bgColor="<% =strPopUpTableColor %>">
	<table><tr>
		<td>
			<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">论坛成员：</font><br>
			<select name="AuthUsersCombo" size="<%=uSelectSize %>" multiple >
<%
	'## Pick from list
	rsMember.movefirst
	do until rsMember.eof
		if not(Instr(tmpStrUserList ,rsMember("MEMBER_ID")) > 0) then
			Response.Write "<option value=""" & rsMember("MEMBER_ID") & """" & isSel & ">" & ChkString(rsMember("M_NAME"),"display") & "</option>" & vbCrLf
		end if
		rsMember.movenext
	loop
%>
	    	<option value="<% if tmpStrUserList <> "" then Response.Write tmpStrUserList end if %>"></option>
		</select>
	</td>
	<td width="15" align="center" valign="middle">
		<a href="javascript:MoveWholeList('Del')"><img src="<%=strImageURL %>icon_Private_remall.gif" width="23" height="22" border="0" alt=""></a>
		<a href="javascript:InsertSelection('Del')"><img src="<%=strImageURL %>icon_Private_remove.gif" width="23" height="22" border="0" alt=""></a>
		<a href="javascript:InsertSelection('Add')"><img src="<%=strImageURL %>icon_Private_add.gif" width="23" height="22" border="0" alt=""></a>
		<a href="javascript:MoveWholeList('Add')"><img src="<%=strImageURL %>icon_Private_addall.gif" width="23" height="22" border="0" alt=""></a>
	</td>
	<td>
		<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">授权会员：</font><br>
		<select name="AuthUsers" size="<%=uSelectSize %>" multiple >
<%
	'## Selected List
	rsAllowedMember.movefirst
	if strRqMethod = "EditForum" or strRqMethod = "EditURL" then	
	do until rsAllowedMember.EOF
		Response.Write "          <option value=""" & rsAllowedMember("MEMBER_ID") & """>" & ChkString(getMemberName(rsAllowedMember("MEMBER_ID")),"display") & "</option>" & vbCrLf
		rsAllowedMember.movenext
	loop
	end if
	set rsAllowedMember = nothing
%>
        	<option value="<% if tmpStrUserList <> "" then Response.Write tmpStrUserList end if %>"></option>
		</select>
    </td>
  </tr>
</table>
	</td>
      </tr>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>">　</td>
        <td bgColor="<% =strPopUpTableColor %>"><input name="Submit" type="submit" value="<% =btn %>" onclick="selectUsers()">&nbsp;<input name="Reset" type="reset" value="全部清除"></td>
      </tr>
<%
		'#################################################################################
		'## Allowed User - End of listbox code
		'#################################################################################
	end if
end if
%>
    </table>
    </td>
  </tr>
</table>
</form>

<%
if strRqMethod = "Reply" or _
strRqMethod = "TopicQuote" or _
strRqMethod = "ReplyQuote" then
%>
<table border="0" width="<% =strTableWidth %>" cellspacing="0" cellpadding="0" align="center" style="TABLE-LAYOUT: fixed; word-break:break-all">
  <tr>
    <td bgcolor="<% =strTableBorderColor %>">
    <table border="0" width="100%" cellspacing="0" cellpadding="0">
      <TR>
        <TD colspan="2" align="left">
<TABLE border="0" cellpadding="5" cellspacing="1" width="100%">
 <TBODY>
   <TR>
	<TD width="100%" bgcolor="<% =strHeadCellColor %>"><FONT face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><B>贴子一览&nbsp;<A href="Link.asp?Topic_ID=<% =Request.QueryString("TOPIC_ID") %>"><% =Request.QueryString("Topic_Title") %></A> (主题在最前，再按最新回复排列，最多列出 8 个)</B></FONT></TD>
   </TR>
 </TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE style="TABLE-LAYOUT: fixed" cellpadding="8" cellspacing="1" border="0" width="100%">
<%
	'## Forum_SQL
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_MESSAGE, " & strTablePrefix & "TOPICS.T_DATE "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR AND "
	strSql = strSql & "       " & strTablePrefix & "TOPICS.TOPIC_ID = " &  Request.QueryString("TOPIC_ID")

	set rs = my_Conn.Execute (strSql)
%>
<TR>
<TD bgcolor="<% =strForumFirstCellColor %>" rowspan="2" valign="top" width="<% =strTopicWidthLeft %>" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write " nowrap" %>><FONT color="<% =strForumFontColor %>"><B><% =ChkString(rs("M_NAME"),"display") %></B></FONT></TD>
<TD bgcolor="<% =strForumFirstCellColor %>"><FONT color="<% =strForumFontColor %>" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write " nowrap" %>><B>发表于： <% Response.Write ChkDate(rs("T_DATE")) & ChkTime(rs("T_DATE")) %></B></FONT></TD>
</TR>
<TR>
<TD bgcolor="<% =strForumFirstCellColor %>" style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write " nowrap" %>><FONT face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =formatStr(rs("T_MESSAGE")) %></FONT></TD>
</TR>
<%
	'## Forum_SQL - Get all replies to Topic from the DB
	strSql ="SELECT TOP 8 " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "REPLY.R_MESSAGE, " & strTablePrefix & "REPLY.R_DATE "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR "
	strSql = strSql & " AND   TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
	strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE DESC"

	set rs = Server.CreateObject("ADODB.Recordset")

'	rs.cachesize=15
	rs.open  strSql, my_Conn, 3

	strI = 0
	if rs.EOF or rs.BOF then
		Response.Write ""
	else
		rs.movefirst
		do until rs.EOF
			if strI = 0 then
	 			CColor = strAltForumCellColor
			else
				CColor = strForumCellColor
			end if
%>
<TR>
<TD colspan="2" bgcolor="<% =strCategoryCellColor %>">　</TD>
</TR>
<TR>
<TD bgcolor="<% =strForumFirstCellColor %>" rowspan="2" valign="top" width="<% =strTopicWidthLeft %>"><FONT color="<% =strForumFontColor %>"><B><% =ChkString(rs("M_NAME"),"display") %></B></FONT></TD>
<TD bgcolor="<% =strForumFirstCellColor %>"><FONT color="<% =strForumFontColor %>"><B>发表于： <% Response.Write ChkDate(rs("R_DATE")) & ChkTime(rs("R_DATE")) %></B></FONT></TD>
</TR>
<TR>
<TD bgcolor="<% =strForumFirstCellColor %>" style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><FONT face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =formatStr(rs("R_MESSAGE")) %></FONT></TD>
</TR>
<%
			rs.MoveNext
			strI = strI + 1
			if strI = 2 then
				strI = 0
			end if
		loop
	end if
end if
%>
<TR>
<TD colspan="2" bgcolor="<% =strCategoryCellColor %>">　</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<%
function getAllowUploads(fUser_Name)
	'## Forum_SQL
	getAllowUploads = 0
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_ALLOWUPLOADS "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE M_NAME = '" & fUser_Name & "'"

	Set rsGetAllowUploads = my_Conn.Execute(strSql)
	if not (rsGetAllowUploads.eof or rsGetAllowUploads.bof) then
		if rsGetAllowUploads("M_ALLOWUPLOADS") <> "" or rsGetAllowUploads("M_ALLOWUPLOADS") <> 0 then
			getAllowUploads = rsGetAllowUploads("M_ALLOWUPLOADS")
	        end if
        end if
	rsGetAllowUploads.Close
	Set rsGetAllowUploads = Nothing
end function
%><!--#INCLUDE FILE="inc_footer.asp" -->