⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 post.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<%
else
	if (lcase(strNoCookies) = "1") or _
	(strDBNTUserName = "" or _
	strCkPassWord = "") then
%>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">用户名：</font></td>
        <td bgColor="<% =strPopUpTableColor %>">
        <input name="UserName" maxLength="25" type="text" value="<% =strDBNTUserName %>" size="20"> &nbsp; <A href="policy.asp"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>">您没有注册？</FONT></A></td>
      </tr>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">密码：</font></td>
        <td bgColor="<% =strPopUpTableColor %>" valign="top">
        <input name="Password" maxLength="13" type="password" value="<% =strCkPassWord %>" size="20"> &nbsp; <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><a href="JavaScript:openWindow('pop_pword.asp')">忘记密码？</A></FONT></td>
      </tr>
<%
	end if
end if

if strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then
%>
<!--#INCLUDE FILE="inc_post_face.asp" -->
<!--#INCLUDE FILE="inc_post_buttons.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 %>"><B>论坛：</B></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
        	Response.Write "<B>&lt;=-</B>&nbsp;需要转移贴子时，请选择" & vbcrlf
	end if
end if
%>

<% if (strRqMethod = "SortCategory") then %>
      <tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="center" align="center" colspan=2><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">

      设定分类排序</font></tr>
      <tr>
        <td align="right" bgcolor="<% =strPopUpTableColor %>" nowrap valign="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">排序</font></td>
        <td align="left" 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 %>" align="right">
<%			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
			%>
				<option value="<% =i %>">请选择</option>
        		</select></TD>
        	<TD bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="left"><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 %>"><B>论坛排序：</B><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 %>"><B>内容：</B><br>
        <br>
        <table border=0 width="100%">
          <tr>
            <td align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if strAllowHTML = "1" then %>
            * HTML语法开启<br>
<% else %>
            * HTML语法关闭<br>
<% end if %>
<% if strAllowCODE = "1" then %>
            * <a href="JavaScript:openWindow3('pop_config_help.asp#AllowCODE')">[code]标签开启</A><br>
<% else %>
            * [code]标签关闭<br>
<% end if %>
<% if strAllowFLASH = "1" then %>
            * <a href="JavaScript:openWindow3('pop_config_help.asp#AllowFLASH')">[flash]标签开启</A><br>
<% else %>
            * [flash]标签关闭<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 %>">
<% if strAllowHTML = "1" then %>
	&nbsp;&nbsp;推荐使用HTML代码标签:『<A href="javascript:openscriphtml()"><FONT color="<% =strInsistFontColor %>">WF3000II HTML 编辑器</FONT></A>』 插入JS尽量手工输入[code]...[/code]标签<BR>
<% end if %>
	&nbsp;&nbsp;<textarea cols="88" rows="15" name="Message" wrap="VIRTUAL" onkeydown="ctlent()"><% =Trim(CleanCode(TxtMsg))%></textarea><br>
	&nbsp;　模式:
	<input type="radio" name="font" value="1" onClick="thelp(1)"> 帮助
	<input type="radio" name="font" value="2" CHECKED onClick="thelp(2)"> 完全
	<input type="radio" name="font" value="0" onClick="thelp(0)"> 基本

        </td>
      </tr>
<% end if %>
<% if strRqMethod <> "SortCategory" and strRqMethod <> "Category" and _
 strRqMethod <> "EditCategory" then %>
<!--#INCLUDE FILE="inc_post_smilie.asp" -->
<% end if %>
<%
	if intAllowUploads = 1 and STRdbntUserName <> "" and _
	(strRqMethod = "Topic" or strRqMethod = "Reply" or _
	strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote") then
		if ((mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") or (getAllowUploads(strDBNTUserName) = 1)) then
%>
	<input name="strFileUpLoadID" type="hidden" value="">
	<tr>
	<td bgcolor="<% =strPopUpTableColor %>" valign="top" align="right"><b>上传附件或图片：</b></td>
	<td bgcolor="<% =strPopUpTableColor %>">
<%
			Response.Write "&nbsp;附加文件&nbsp;&nbsp;<input name=strFileUpLoad size=25 value=>"
			Response.Write "&nbsp;<a href =" & """" & "pop_upload.asp?Method=" & strRqMethod & "&FORUM_ID=" & strRqForumID & "&CAT_ID=" & strRqCatID & "&TOPIC_ID=" & Request.Querystring("TOPIC_ID") & "&REPLY_ID=" & Request.Querystring("REPLY_ID") & "&MEMBER_ID=" & strMemberID & """  onClick=""return openAdminWindow(this.href);"" >"
			Response.Write "<img alt=""文件上传"" src=""" & strImageURL & "icon_paperclip.gif"" align=absmiddle width=23 height=22 border=0 ></a>"
			Response.Write "<BR>&nbsp;允许上传文件类型(" & strFileType & ") 文件大小上限 <FONT color=""" & strInsistFontColor & """><B>" & intMaxFileSize & "</B></FONT> KB"
%></td>
	</tr>
<%		end if %>
<%	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 %>" valign=top align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><B>选项：</B></FONT></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>
<%
'#################################################################################
'## File Attachment Stuff
'#################################################################################
	if strMemberID<>"" then
		if strRqMethod = "Topic" or _
		strRqMethod = "Reply" or _
		strRqMethod = "Edit" or _
		strRqMethod = "ReplyQuote" or _
		strRqMethod = "TopicQuote" then

			if intAllowUploads = 1 and STRdbntUserName <> "" then
				if ((mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") or (getAllowUploads(strDBNTUserName) = 1)) _
				and (strRqMethod = "Topic" or strRqMethod = "Reply" or _
				strRqMethod = "ReplyQuote" or strRqMethod = "TopicQuote") then
' ###					Response.Write "&nbsp;附加文件：&nbsp;"
' ###					Response.Write "<a href =" & """" & "pop_upload.asp?TOPIC_ID=" & Request.Querystring("TOPIC_ID") & "&REPLY_ID=" & Request.Querystring("REPLY_ID") & "&MEMBER_ID=" & strMemberID & """  onClick=""return openAdminWindow(this.href);"" >"
'					Response.Write "<a href =" & """" & "javascript:openWindow('pop_upload.asp?TOPIC_ID=" & Request.Querystring("TOPIC_ID") & "&REPLY_ID=" & Request.Querystring("REPLY_ID") & "&MEMBER_ID=" & strMemberID & "');"" >"
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -