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

📄 post.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
			document.PostTopic.Message.cols = 60;
			document.PostTopic.Message.rows = 8;		
		}
		if (objform.SelectSize.value == 2)
		{			
			document.PostTopic.Message.cols = 80;			
			document.PostTopic.Message.rows = 12;		
		}		
		if (objform.SelectSize.value == 3)
		{			
			document.PostTopic.Message.cols = 90;			
			document.PostTopic.Message.rows = 12;		
		}		
		if (objform.SelectSize.value == 4)
		{			
			document.PostTopic.Message.cols = 130;			
			document.PostTopic.Message.rows = 15;		
		}	
		document.PostTopic.SelectSize.value = objform.SelectSize.value;		
		document.cookie =  tmpCookieURL + "strSelectSize=" + objform.SelectSize.value;

}
function OpenPreview()
{
	var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
	document.cookie = curCookie;
	popupWin = window.open('pop_preview.asp', 'preview_page', 'scrollbars=yes,width=550,height=380')	
}
function OpenPreview2()
{
	var curCookie = "strMessagePreview=" + escape(document.PostTopic.Message.value);
	document.cookie = curCookie;
	popupWin = window.open('pop_spellcheck.asp', 'preview_page', 'scrollbars=yes,width=750,height=450')
}

ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.PostTopic.submit();}}
}

clckcnt = 0;
function clckcntr() {
clckcnt++;
if(clckcnt > 1) {
    if(clckcnt > 2) { return false; }
    alert('贴子已经发出了......\n\n' + '请等待片刻......\n\n' + '不要重复按提交键，谢谢！');
    return false;}
return true;}
//-->
</script>

	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <tr>
    <td width="33%" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<a href="default.asp"><% =strForumTitle %></a>
<% if strRqMethod = "EditCategory" then %>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<% =ChkString(strCategoryTitle,"display") %>
<% else
	if strRqMethod = "Edit" or _
	strRqMethod = "EditTopic" or _
	strRqMethod = "Reply" or _
	strRqMethod = "ReplyQuote" or _
	strRqMethod = "Topic" or _
	strRqMethod = "TopicQuote" then
%>
		<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<a href="FORUM.asp?CAT_ID=<% =strRqCatID %>&FORUM_ID=<% =strRqForumId %>"><% =ChkString(strSubForumTitle,"display") %></a>
<%	end if %>
<% end if %>
<% if strRqMethod = "Edit" or _
	strRqMethod = "EditTopic" or _
	strRqMethod = "ReplyQuote" or _
	strRqMethod = "TopicQuote" then
%>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;<a href="topic.asp?TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&CAT_ID=<% =strRqCatID %>&FORUM_ID=<% =strRqForumId %>"><% =ChkString(strTopicTitle,"title") %></a>
<% end if %>
<% if strRqMethod = "Reply" then %>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;<A href="Link.asp?Topic_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>">发表回复</A>
<% end if %>
<% if strRqMethod = "Topic" then %>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;发表新主题
<% end if %>
<% if strRqMethod = "Forum" then %>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;建立新论坛
<% end if %>
<% if strRqMethod = "EditForum" then %>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="Link.asp?FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>"><% Response.Write strSubForumTitle %></A>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;修改论坛属性
<% end if %>
<% if strRqMethod = "URL" then %>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;建立新链接
<% end if %>
<% if strRqMethod = "EditURL" then %>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<%=strImageURL %>icon_folder_open_Topic.gif" border="0">&nbsp;修改联盟论坛链接
<% end if %>
</FONT></TD></TR></TABLE>
</TD></TR></TABLE>
<%
if strRqMethod = "EditForum" then
	if (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") then
		'## Do Nothing
	else
		Response.Write "<p align=center>错误：只有版主和管理员可以编辑论坛</p>" & vbcrlf
%>
<!--#INCLUDE FILE="inc_footer.asp"-->
<%
		Response.End
	end if
end if

Msg = ""
select case strRqMethod
	case "Reply"
		Msg = "<b>主题标题：</b><A href=""Link.asp?Topic_ID=" & Request.QueryString("TOPIC_ID") & """>" & strTopicTitle & "</A>"
		if (strNoCookies = 1) or (strDBNTUserName = "")  then
			Msg = "<b>注意：</b>回复文章之前必须先注册成会员。"
			Msg = Msg & "注册请<a href=""policy.asp"">按这里注册</a>。注册是完全免费的！<br>"
		end if
		if (mLev <> 4) and (chkForumModerator(strRqForumId, strDBNTUserName) <> "1") then
			if IsPrivateType = 10 or IsPrivateType = 12 then
				Msg = "<B>注意：</B>你不能在此论坛回复主题"
			end if
		end if
	case "ReplyQuote"
			Msg = "<b>主题标题：</b><A href=""Link.asp?Topic_ID=" & Request.QueryString("TOPIC_ID") & """>" & strTopicTitle & "</A>"
			if (strNoCookies = 1) or (strDBNTUserName = "") then
				Msg = "<b>注意：</b>回复文章之前必须先注册成会员。"
				Msg = Msg & "注册请<a href=""policy.asp"">按这里注册</a>。注册是完全免费的！<br>"
			end if
			if (mLev <> 4) and (chkForumModerator(strRqForumId, strDBNTUserName) <> "1") then
				if IsPrivateType = 10 or IsPrivateType = 12 then
					Msg = "<B>注意：</B>你不能在此论坛回复主题"
				end if
			end if
	case "Topic"
			if (strNoCookies = 1) or (strDBNTUserName = "") then
				Msg = "<b>注意：</b> 发表文章之前必须先注册成会员。"
				Msg = Msg & "注册请<a href=""policy.asp"">按这里注册</a>。注册是完全免费的！<br>"
			end if
			if (mLev <> 4) and (chkForumModerator(strRqForumId, strDBNTUserName) <> "1") then
				if IsPrivateType = 11 or IsPrivateType = 12 then
					Msg = "<B>注意：</B>你不能在本论坛发表新主题"
				end if
			end if
	case "TopicQuote"
			Msg = "<b>主题标题：</b><A href=""Link.asp?Topic_ID=" & Request.QueryString("TOPIC_ID") & """>" & strTopicTitle & "</A>"
			if (strNoCookies = 1) or (strDBNTUserName = "") then
				Msg = "<b>注意：</b>回复文章之前必须先注册成会员<br>"
				Msg = Msg & "注册请<a href=""policy.asp"">按这里注册</a>。注册是完全免费的！<br>"
			end if
			if (mLev <> 4) and (chkForumModerator(strRqForumId, strDBNTUserName) <> "1") then
				if IsPrivateType = 11 or IsPrivateType = 12 then
					Msg = "<B>注意：</B>你不能在本论坛发表新主题"
				end if
			end if
	case "Forum"
		Msg = "<b>注意：</b>只有管理员才能建立新论坛<br>"
	case "URL"
		Msg = "<b>注意：</b>只有管理员才能建立新连接<br>"
	case "Edit"
		Msg = "<b>注意：</b>只有作者、版主和管理员可以编辑此文章"
	case "EditTopic"
		Msg = "<b>注意：</b>只有作者、版主和管理员可以编辑此文章"
	case "EditForum"
		Msg = "<b>注意：</b>只有版主才能编辑此讯息"
	case "EditCategory"
		Msg = "注意：只有管理员可以编辑此标题"
end select

strEditInfoHead = "[这个贴子最后由"

if strRqMethod = "Edit" or strRqMethod = "ReplyQuote" then
	'## Forum_SQL
	strSql = "SELECT * "
	strSql = strSql & " FROM " & strTablePrefix & "REPLY "
	strSql = strSql & " WHERE " & strTablePrefix & "REPLY.REPLY_ID = " & Request.QueryString("REPLY_ID")

	set rs = my_Conn.Execute (strSql)

	strAuthor = rs("R_AUTHOR")
	strMsgDate = rs("R_DATE")

	if strRqMethod = "Edit" then
		TxtMsg = rs("R_MESSAGE")
		TxtMsg = CleanCode(TxtMsg)
		if Instr(TxtMsg, strEditInfoHead) then TxtMsg = Left(TxtMsg, InstrRev(TxtMsg, strEditInfoHead)-34) end if
	else
		'Edited by -  [这个贴子最后由 Jacky Lee 在 2001/05/28 01:07pm 编辑]
		if strRqMethod = "ReplyQuote" then
			TxtMsgTemp = rs("R_MESSAGE")
			TxtMsgTemp = CleanQuoteCode(TxtMsgTemp)
			if Instr(TxtMsgTemp, strEditInfoHead) then TxtMsgTemp = Left(TxtMsgTemp, InstrRev(TxtMsgTemp, strEditInfoHead)-34) end if
			strPos = InstrRev(TxtMsgTemp, "------------------------------------------------------------------------") - 1
			if strPos > 0 then TxtMsgTemp = Left( TxtMsgTemp, strPos)
			TxtMsgTemp = Replace(TxtMsgTemp, vbCrLf&vbCrLf&vbCrLf&vbCrLf, vbCrLf)
			TxtMsgTemp = Replace(TxtMsgTemp, vbCrLf&vbCrLf&vbCrLf, vbCrLf)
			TxtMsgTemp = Replace(TxtMsgTemp, vbCrLf&vbCrLf, vbCrLf)
			'if Len(TxtMsgTemp) > 150 then
			'	TxtMsgTemp = Left(TxtMsgTemp,151) & " ..."
			'end if
			TxtMsg = "[quote][b]下面引用由[u]" & getMemberName(strAuthor) & "[/u]在 " & ChkDate(strMsgDate) & ChkTime(strMsgDate) & " 发表的内容：[/b]" & vbCrLf
			TxtMsg = TxtMsg & TxtMsgTemp & "[/quote]" & vbCrLf
		end if
	end if
	if strDBNTUserName = getMemberName(strAuthor) then
		boolReply = rs("R_MAIL")
	end if
end if

if strRqMethod = "EditTopic" or strRqMethod = "TopicQuote" then
	'## Forum_SQL
	strSql = "SELECT " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_MESSAGE "
	strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID")

	set rs = my_Conn.Execute (strSql)

	TxtSub = rs("T_SUBJECT")
	strAuthor = rs("T_AUTHOR")
	strMsgDate = rs("T_DATE")

	if strRqMethod = "EditTopic" then
		TxtMsg = rs("T_MESSAGE")
		TxtMsg = CleanCode(TxtMsg)
		if Instr(TxtMsg, strEditInfoHead) then TxtMsg = Left(TxtMsg, InstrRev(TxtMsg, strEditInfoHead)-34) end if
	else
		if strRqMethod = "TopicQuote" then
			TxtMsgTemp = rs("T_MESSAGE")
			TxtMsgTemp = CleanQuoteCode(TxtMsgTemp)
			if Instr(TxtMsgTemp, strEditInfoHead) then TxtMsgTemp = Left(TxtMsgTemp, InstrRev(TxtMsgTemp, strEditInfoHead)-34) end if
			' ###### Editer by http://www.wormcn.net in 下午 2:03 2001-06-06 ######
			strPos = InstrRev(TxtMsgTemp, "------------------------------------------------------------------------") - 1
			if strPos > 0 then TxtMsgTemp = Left( TxtMsgTemp, strPos)
			TxtMsgTemp = Replace(TxtMsgTemp, vbCrLf&vbCrLf&vbCrLf&vbCrLf, vbCrLf)
			TxtMsgTemp = Replace(TxtMsgTemp, vbCrLf&vbCrLf&vbCrLf, vbCrLf)
			TxtMsgTemp = Replace(TxtMsgTemp, vbCrLf&vbCrLf, vbCrLf)
			if Len(TxtMsgTemp) > 150 then
				TxtMsgTemp = Left(TxtMsgTemp,151) & " ..."
			end if
			' ###### Editer by http://www.wormcn.net in 下午 2:03 2001-06-06 ######
			TxtMsg = "[quote][b]下面引用由[u]" & getMemberName(strAuthor) & "[/u]在 " & ChkDate(strMsgDate) & ChkTime(strMsgDate) & " 发表的内容：[/b]" & vbCrLf
			TxtMsg = TxtMsg & TxtMsgTemp & "[/quote]" & vbCrLf
		end if
	end if
	if strDBNTUserName = getMemberName(strAuthor) then boolTopic = rs("T_MAIL")
end if

if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
	'## Forum_SQL
	'##################
	strSql = "SELECT " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.F_URL, " & strTablePrefix & "FORUM.F_DESCRIPTION, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " & strTablePrefix & "FORUM.F_PASSWORD_NEW, " & strTablePrefix & "FORUM.F_HIDDEN, " & strTablePrefix & "FORUM.F_URLImage "
	'##################
	strSql = strSql & " FROM " & strTablePrefix & "FORUM "
	strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumId

	set rs = my_Conn.Execute (strSql)
	
	if strRqMethod = "EditURL" then
		TxtUrl = rs("F_URL")
		TxtUrlImage = rs("F_URLIMAGE")
	end if

	if strRqMethod = "EditForum" or _
	strRqMethod = "EditURL" then
		TxtSub = rs("F_SUBJECT")
		TxtMsg = rs("F_DESCRIPTION")
	end if
end if

if strRqMethod = "EditCategory" then

	'## Forum_SQL
	strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_NAME, "
        strSql = strSql & strTablePrefix & "CATEGORY.CAT_ORDER "
	strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
	strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & strRqCatID

	set rs = my_Conn.Execute (strSql)

	if strRqMethod = "EditCategory" then
		TxtSub = rs("CAT_NAME")
		strOrder = rs("CAT_ORDER")
	end if
end if

select case strRqMethod
	case "Category"
		btn = "建立新分类"
	case "Edit"
		btn = "提交修改"
	case "EditCategory"
		btn = "提交修改"
	CASE "SortCategory"
		btn = "分类排序"
	case "EditForum"
		btn = "提交修改"
	case "EditTopic"
		btn = "提交修改"
	case "EditURL"
		btn = "提交修改"
	case "Forum"
		btn = "建立新论坛"
	case "Reply"
		btn = "发表回复"
	case "ReplyQuote"
		btn = "发表回复"
	case "TopicQuote"
		btn = "发表回复"
	case "Topic"
		btn = "发表新主题"
	case "URL"
		btn = "建立新连接"
	case else
		btn = "发表"
end select
%>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"></font></p>
<table border="0" cellspacing="0" cellpadding="0" align=center width="<% Response.Write strTableWidth %>">
  <tr>
    <td bgcolor="<% =strPopUpBorderColor %>"><% 'rs("F_PRIVATEFORUMS") %>
    <table border="0" cellspacing="1" cellpadding="4" width="100%">
<%	if Msg<>"" then %>
	<tr>
        <td bgColor="<% =strHeadCellColor %>" noWrap colspan="2" vAlign="top" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =Msg %></font></td>
	</tr>
<%	end if %>
<form action="post_info.asp" method="post" name="PostTopic">
<input name="Method_Type" type="hidden" value="<% =strRqMethod %>">
<input name="Type" type="hidden" value="<% =Request.QueryString("type") %>">
<input name="REPLY_ID" type="hidden" value="<% =Request.QueryString("REPLY_ID") %>">
<input name="TOPIC_ID" type="hidden" value="<% =Request.QueryString("TOPIC_ID") %>">
<input name="FORUM_ID" type="hidden" value="<% =strRqForumId %>">
<input name="CAT_ID" type="hidden" value="<% =strRqCatID %>">
<input name="Author" type="hidden" value="<% =strAuthor %>">
<input name="Mod_ID" type="hidden" value="<% =Request.QueryString("mod") %>">
<input name="Cat_Title" type="hidden" value="<% =ChkString(Request.QueryString("Cat_Title"), "hidden") %>">
<input name="Forum_Title" type="hidden" value="<% =ChkString(strSubForumTitle, "hidden") %>">
<input name="Topic_Title" type="hidden" value="<% =ChkString(strTopicTitle, "hidden") %>">
<input name="M" type="hidden" value="<% =Request.QueryString("M") %>">
<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>">
<input name="SelectSize" type="hidden" value="<%= strSelectSize %>">
<input name="cookies" type="hidden" value="yes">
<%
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 %>"><B>主题：</B></font></td>
        <td bgColor="<% =strPopUpTableColor %>"><input maxLength="80" name="Subject" value="<% =Trim(ChkString(TxtSub,"display")) %>" size="60"> &nbsp;不得超过 40 个汉字</td>
      </tr>
<% end if %>

<% if mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1 then %>
    <input name="UserName" type="hidden" Value="<% =strDBNTUserName%>">
    <input name="Password" type="hidden" value="<% =strCkPassWord%>">
1234

⌨️ 快捷键说明

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