📄 post.asp
字号:
if strSelectSize = "4" then Response.Write(" selected")
Response.Write ">1280 x 1024</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if mlev = 4 or _
mlev = 3 or _
mlev = 2 or _
mlev = 1 then
Response.Write " <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
" <input name=""Password"" type=""hidden"" value=""" & strCkPassWord & """>" & vbNewLine
else
if (lcase(strNoCookies) = "1") or _
(strDBNTUserName = "" or _
strCkPassWord = "") then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>UserName:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input name=""UserName"" maxLength=""25"" size=""25"" type=""text"" value=""" & Request.Form("UserName") & """></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Password:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""top""><input name=""Password"" maxLength=""25"" size=""25"" type=""password"" value=""" & Request.Form("password") & """></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
end if
if strAllowForumCode = "1" and strShowFormatButtons = "1" then
if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
%>
<!--#INCLUDE FILE="inc_post_buttons.asp" -->
<%
end if
end if
if strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Category:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <select name=""Category"" size=""1"">" & vbNewLine
'## Forum_SQL
strSql = "SELECT CAT_ID, CAT_NAME "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
if mlev = 3 then
strSql = strSql & " WHERE CAT_ID = " & strRqCatID
end if
strSql = strSql & " ORDER BY CAT_ORDER, CAT_NAME ASC;"
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsCat.EOF then
recCatCount = ""
else
allCatData = rsCat.GetRows(adGetRowsRest)
recCatCount = UBound(allCatData,2)
end if
rsCat.close
set rsCat = nothing
if recCatCount <> "" then
cCAT_ID = 0
cCAT_NAME = 1
for iCat = 0 to recCatCount
CatID = allCatData(cCAT_ID,iCat)
CatName = allCatData(cCAT_NAME,iCat)
Response.Write " <option value=""" & CatID & """"
if cLng(strRqCatID) = CatID then
Response.Write " selected"
end if
Response.Write ">" & ChkString(CatName,"display") & "</option>" & vbNewline
next
end if
Response.Write " </select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#category')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if (strRqMethod = "EditTopic") then
Dim MoveTopicAllowed
if (mLev = 4) or (mLev = 3 and strMoveTopicMode = "0") or ((mLev = 3) and (strMoveTopicMode = "1") and (strAuthor = MemberID)) then
MoveTopicAllowed = "1"
else
MoveTopicAllowed = "0"
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Forum:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
if mlev = 3 or mlev = 4 then
Response.Write " <select name=""Forum"" size=""1"">" & vbNewLine
end if
'## Forum_SQL
strSql = "SELECT C.CAT_NAME, F.CAT_ID, F.FORUM_ID, F.F_SUBJECT, F_PRIVATEFORUMS, F_PASSWORD_NEW " &_
" FROM " & strTablePrefix & "CATEGORY C, " & strTablePrefix & "FORUM F" &_
" WHERE F.F_TYPE = 0 " & _
" AND C.CAT_ID = F.CAT_ID "
if mLev = 4 then
'## Do Nothing
else
if MoveTopicAllowed = "1" then
else
strSql = strSql & " AND F.FORUM_ID = " & rs("FORUM_ID")
end if
end if
strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT ASC;"
set rsForum = Server.CreateObject("ADODB.Recordset")
rsForum.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
if rsForum.EOF then
recForumCount = ""
else
allForumData = rsForum.GetRows(adGetRowsRest)
recForumCount = UBound(allForumData,2)
end if
rsForum.close
set rsForum = nothing
if mlev = 3 or mlev = 4 then
if recForumCount <> "" then
cCAT_NAME = 0
fCAT_ID = 1
fFORUM_ID = 2
fF_SUBJECT = 3
fF_PRIVATEFORUMS = 4
fF_PASSWORD_NEW = 5
for iForum = 0 to recForumCount
ForumCat_Name = allForumData(cCAT_NAME, iForum)
ForumCatID = allForumData(fCAT_ID, iForum)
ForumID = allForumData(fFORUM_ID, iForum)
ForumSubject = allForumData(fF_SUBJECT, iForum)
ForumPrivateForums = allForumData(fF_PRIVATEFORUMS,iForum)
ForumFPasswordNew = allForumData(fF_PASSWORD_NEW,iForum)
if ChkDisplayForum(ForumPrivateForums,ForumFPasswordNew,ForumID,MemberID) then
Response.Write " <option value=""" & ForumCatID & "|" & ForumID & """"
if cLng(strRqForumId) = ForumID then
Response.Write " selected"
end if
Response.Write ">" & ChkString(ForumSubject,"display") & "</option>" & vbNewline
end if
next
end if
else
fCAT_ID = 1
fFORUM_ID = 2
fF_SUBJECT = 3
ForumCatID = allForumData(fCAT_ID, 0)
ForumID = allForumData(fFORUM_ID, 0)
ForumSubject = allForumData(fF_SUBJECT, 0)
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(ForumSubject,"display") & "</font>" & vbNewLine & _
" <input type=""hidden"" name=""Forum"" value=""" & ForumCatID & "|" & ForumID & """>" & vbNewLine
end if
set rsForum = nothing
if mlev = 3 or mlev = 4 then
Response.Write " </select>" & vbNewline
end if
Response.Write " </td>" & vbNewline & _
" </tr>" & vbNewLine
end if
if strRqMethod = "Forum" or _
strRqMethod = "EditForum" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Default Days:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><select name=""DefaultDays"" size=""1"">" & vbNewLine & _
" <option value=""0"""
if fDefaultDays = "0" then Response.Write(" SELECTED")
Response.Write ">Show all topics</option>" & vbNewLine & _
" <option value=""-1"""
if fDefaultDays = "-1" then Response.Write(" SELECTED")
Response.Write ">Show all open topics</option>" & vbNewLine & _
" <option value=""1"""
if fDefaultDays = "1" then Response.Write(" SELECTED")
Response.Write ">Show topics from last day</option>" & vbNewLine & _
" <option value=""2"""
if fDefaultDays = "2" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 2 days</option>" & vbNewLine & _
" <option value=""5"""
if fDefaultDays = "5" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 5 days</option>" & vbNewLine & _
" <option value=""7"""
if fDefaultDays = "7" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 7 days</option>" & vbNewLine & _
" <option value=""14"""
if fDefaultDays = "14" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 14 days</option>" & vbNewLine & _
" <option value=""30"""
if fDefaultDays = "30" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 30 days</option>" & vbNewLine & _
" <option value=""60"""
if fDefaultDays = "60" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 60 days</option>" & vbNewLine & _
" <option value=""120"""
if fDefaultDays = "120" then Response.Write(" SELECTED")
Response.Write ">Show topics from last 120 days</option>" & vbNewLine & _
" <option value=""365"""
if fDefaultDays = "365" then Response.Write(" SELECTED")
Response.Write ">Show topics from the last year</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#defaultdays')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strRqMethod = "Forum" or _
strRqMethod = "EditForum" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Increase Post Count:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><select name=""ForumCntMPosts"" size=""1"">" & vbNewLine & _
" <option value=""0"""
if fForumCntMPosts = "0" then Response.Write(" selected")
Response.Write ">No</option>" & vbNewLine & _
" <option value=""1"""
if fForumCntMPosts = "1" or fForumCntMPosts = "" then Response.Write(" selected")
Response.Write ">Yes</option>" & vbNewLine & _
" </select>" & vbNewLine & _
" <a href=""Javascript:openWindow3('pop_help.asp?mode=options#forumcntmposts')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
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
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Subject:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""50"" name=""Subject"" value=""" & Trim(ChkString(TxtSub,"edit")) & """ size=""40""></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <script language=""JavaScript"" type=""text/javascript"">document.PostTopic.Subject.focus();</script>" & vbNewLine
end if
if strRqMethod = "URL" or _
strRqMethod = "EditURL" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Address:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""150"" name=""Address"" value="""
if (TxtURL <> "") then Response.Write(TxtURL) else Response.Write("http://")
Response.Write """ size=""40""><a href=""Javascript:openWindow3('pop_help.asp?mode=options#address')"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -