📄 post.asp
字号:
strRqMethod = "TopicQuote" then
if strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then
%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="Sig" type="checkbox" value="yes" checked>包含个人签名<br>
</font>
<%
end if
if lcase(strEmail) = "1" then
if strRqMethod = "Topic" or _
strRqMethod = "EditTopic" then
%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="rmail" type="checkbox" value="1" <%=Chked(boolTopic)%>>当有人回复你的主题时以E-mail通知<br>
</font>
<%
else
if strRqMethod = "Reply" or _
strRqMethod = "Edit" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "TopicQuote" then
%>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="rmail" type="checkbox" value="1" <%=Chked(boolReply)%>>当有新回复时以E-mail通知<br>
</font>
<%
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 %>">
<input name="lock" type="checkbox" value="1">发表后锁定本主题<br>
</font>
<%
end if
end if
end if
%>
</td>
</tr>
<tr>
<td bgColor="<% =strPopUpTableColor %>"> </td>
<td bgColor="<% =strPopUpTableColor %>"><input name="Submit" type="submit" value="<% =btn %>">
<%
if strRqMethod = "Reply" or _
strRqMethod = "Edit" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then
%>
<input name="Preview" type="button" value=" 预览 " onclick="OpenPreview()">
<%
' ########################## SpellCheck MOD ##############################
if intSpellCheck then %>
<input name="Preview" type="button" value=" 拼字检查（英文）" onclick="OpenPreview2()">
<% End if
' ########################## SpellCheck MOD ############################## %>
<%
end if
%>
<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")
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>
<%'#################%>
<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()"> <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="95%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="<% =strTableBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
<tr>
<td bgcolor="<% =strHeadCellColor %>" colspan="2" align="center"><b><font <% =strDefaultFontFace %> size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">原 文</font></b></td>
</tr>
<%
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_MESSAGE "
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)
Response.Write " <tr>" & vbCrLf
Response.Write " <td bgcolor='" & strForumFirstCellColor & "' valign=top width='" & strTopicWidthLeft & "'"
if lcase(strTopicNoWrapLeft) = "1" then
Response.Write " nowrap"
end if
Response.Write "><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'><b>" & ChkString(rs("M_NAME"),"display") & "</b></font></td>" & vbCrLf
Response.Write " <td bgcolor='" & strForumCellColor & "' valign='top' width='" & strTopicWidthRight & "'"
if lcase(strTopicNoWrapRight) = "1" then
Response.Write " nowrap"
end if
Response.Write "><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'>" & formatStr(rs("T_MESSAGE")) & "</font></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
'## Forum_SQL - Get all replies to Topic from the DB
strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "REPLY.R_MESSAGE "
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"
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
Response.Write " <TR>" & vbCrLf & _
" <TD bgcolor='" & CColor & "' valign='top'"
if lcase(strTopicNoWrapLeft) = "1" then
Response.Write " nowrap"
end if
Response.Write "><b><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'>" & ChkString(rs("M_NAME"),"display") & "</font></b></td>" & vbCrLf & _
" <TD bgcolor='" & CColor & "' valign='top'"
if lcase(strTopicNoWrapRight) = "1" then
Response.Write " nowrap"
end if
Response.Write "><font color='" & strForumFontColor & "' face='" & strDefaultFontFace & "' size='2'>" & formatStr(rs("R_MESSAGE")) & "</font></td>" & vbCrLf & _
" </tr>" & vbCrLf
rs.MoveNext
strI = strI + 1
if strI = 2 then
strI = 0
end if
loop
end if
Response.Write " </table>" & vbCrLf & _
" </td>" & vbCrLf & _
" </tr>" & vbCrLf & _
"</table>" & vbCrLf & _
"</font>" & vbCrLf
end if
%>
<!--#INCLUDE FILE="inc_footer.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -