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

📄 post.asp

📁 一个不错的ASP论坛源码
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<!--#INCLUDE FILE="inc_footer.asp"-->
<%
		Response.End
	end if
end if

Msg = ""

select case strRqMethod 
	case "Reply"
			if (strNoCookies = 1) or (strDBNTUserName = "")  then
				Msg = 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 = 10 or IsPrivateType = 12 then
				Response.Write "<center><p><b>你不能在此论坛回复主题</b></p></center>"
				Response.End
			end if
			end if
	case "ReplyQuote"
			if (strNoCookies = 1) or (strDBNTUserName = "") then
				Msg = 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 = 10 or IsPrivateType = 12 then
				Response.Write "<center><p><b>你不能在此论坛回复主题</b></p></center>"
				Response.End
			end if
			end if
	case "Topic"
			if (strNoCookies = 1) or (strDBNTUserName = "") then 
				Msg = 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
				Response.Write "<center><b><p>你不能在本论坛发表新主题</p></b></center>"
				Response.End
			end if
			end if
	case "TopicQuote"
			if (strNoCookies = 1) or (strDBNTUserName = "") then
				Msg = 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
				Response.Write "<center><p><b>你不能在本论坛发表新主题</b></p></center>"
				Response.End
			end if
			end if
	case "Forum"
		Msg = Msg & "<b>注意：</b>只有管理员才能建立新论坛<br>"
	case "URL"
		Msg = Msg & "<b>注意：</b>只有管理员才能建立新连接<br>"
	case "Edit"
		Msg = Msg & "<b>注意：</b>只有作者、版主和管理员可以编辑此文章"
	case "EditTopic"
		Msg = Msg & "<b>注意：</b>只有作者、版主和管理员可以编辑此文章"
	case "EditForum"
		Msg = Msg & "<b>注意：</b>只有版主才能编辑此讯息"
	case "EditCategory"
		Msg = Msg & "注意：只有管理员可以编辑此标题"
end select

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")

	if strRqMethod = "Edit" then
		TxtMsg = rs("R_MESSAGE")
		if Instr(TxtMsg, "Edited by - ") then TxtMsg = Left(TxtMsg, InstrRev(TxtMsg, "Edited by - ")-36) end if
	else
		if strRqMethod = "ReplyQuote" then
			TxtMsgTemp = rs("R_MESSAGE")
			if Instr(TxtMsgTemp, "Edited by - ") then TxtMsgTemp = Left(TxtMsgTemp, InstrRev(TxtMsgTemp, "Edited by - ")-36) end if
			TxtMsg = "[quote]" & "[b]" & "此文由" & getMemberName(strAuthor) & "发表[/b]" & "。" & vbCrLf & 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_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")

	if strRqMethod = "EditTopic" then
		TxtMsg = rs("T_MESSAGE")
		if Instr(TxtMsg, "Edited by - ") then TxtMsg = Left(TxtMsg, InstrRev(TxtMsg, "Edited by - ")-36) end if
	else
		if strRqMethod = "TopicQuote" then
			TxtMsgTemp = rs("T_MESSAGE")
			if Instr(TxtMsgTemp, "Edited by - ") then TxtMsgTemp = Left(TxtMsgTemp, InstrRev(TxtMsgTemp, "Edited by - ")-36) end if
			TxtMsg = "[quote]" & "[b]" & "此文由" & getMemberName(strAuthor) & "发表[/b]" & "。" & vbCrLf & 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 "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
%>
<table border="0" width="100%" 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">返回论坛首页</a>
<%
if strRqMethod = "EditCategory" then
%>
&nbsp;<img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<% =ChkString(Request.QueryString("Cat_Title"),"display") %>
<% 
else 
	if strRqMethod = "Edit" or _
	strRqMethod = "EditTopic" or _
	strRqMethod = "Reply" or _
	strRqMethod = "ReplyQuote" or _
	strRqMethod = "Topic" or _
	strRqMethod = "TopicQuote" then 
%>
&nbsp;<img src="<%=strImageURL %>icon_folder_open.gif" border="0">&nbsp;<a href="FORUM.asp?CAT_ID=<% =strRqCatID %>&FORUM_ID=<% =strRqForumId %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><% =ChkString(Request.QueryString("FORUM_Title"),"display") %></a>
<%
	end if 
 end if 

if strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "TopicQuote" then 
%>
&nbsp;<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 %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(left(Request.QueryString("Topic_title"), 50),"urlpath") %>"><% =ChkString(Request.QueryString("Topic_Title"),"title") %></a>
<%
end if 
%>
    </font></td>
  </tr>
</table>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% =Msg %>
</font></p>
<table border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td bgcolor="<% =strPopUpBorderColor %>">
    <table border="0" cellspacing="1" cellpadding="4">
<%
if strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "EditForum" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then 
%>  
  	<form name="Screensize" method="POST" action="post.asp?method=<% =strRqMethod %>&FORUM_ID=<% =strRqForumId%>&CAT_ID=<% =strRqCatID%>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath")%>&TOPIC_ID=<% =ChkString(Request.QueryString("TOPIC_ID"),"urlpath")%>&REPLY_ID=<% =ChkString(Request.QueryString("REPLY_ID"),"urlpath")%>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath")%>">
		<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(Request.QueryString("FORUM_Title"), "hidden") %>">
		<input name="Topic_Title" type="hidden" value="<% =ChkString(Request.QueryString("TOPIC_Title"), "hidden") %>">
		<input name="M" type="hidden" value="<% =Request.QueryString("M") %>">
		<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>">
		<input name="cookies" type="hidden" value="yes">
	<tr>
        <td bgColor="<% =strPopUpTableColor %>" noWrap vAlign="top" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">桌面大小：</font></td>
        <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
			<select name="SelectSize" size="1" onchange="autoReload(document.Screensize)">  
			<option value="1" <% if strSelectSize = "1" or strSelectSize = "" then Response.Write("SELECTED") %>>640  x 480</option>
			<option value="2" <% if strSelectSize = "2" then Response.Write("SELECTED") %>>800  x 600</option>
			<option value="3" <% if strSelectSize = "3" then Response.Write("SELECTED") %>>1024 x 768</option>
			<option value="4" <% if strSelectSize = "4" then Response.Write("SELECTED") %>>1280 x 1024</option>      
			</select></font>
		</td>
	</tr>
	</form>
<%
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(Request.QueryString("FORUM_Title"), "hidden") %>">
<input name="Topic_Title" type="hidden" value="<% =ChkString(Request.QueryString("TOPIC_Title"), "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 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%>">
<%
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" size="25" type="text" value="<%=Request.Form("UserName")%>"></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" size="13" type="password" value="<%=Request.Form("password")%>"></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_buttons.asp" -->
<%
1234

⌨️ 快捷键说明

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