📄 forum_func.asp

📁 1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册相片上传[方便上传
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		clsForm.Action = "forum_add_save.asp?action=FormSaveAddReply&TopicsId=" & GetRSId & "&pstActFlag=FORUM_EDIT_MODE&ReplyId=" & GetRSId1
	Else
		clsForm.Action = "forum_add_save.asp?action=FormSaveAddReply&TopicsId=" & GetRSId
	End If
	clsForm.Id = "frmAddReply"
	clsForm.Name = "frmAddReply"
	clsForm.OnSubmit = "return CheckFormAddReply(this)"
	clsForm.ColumnScale = "20%"
	clsForm.MakeForm()
	clsForm.MakeTable "0","3","1","center","100%","TBone"

	clsForm.AddTr "TBHead"
	If strActFlag = "FORUM_EDIT_MODE" Then
		clsForm.AddTitle "<b>修改回复帖子</b>","TBHead style='text-align:left;'"
	Else
		clsForm.AddTitle "<b>回复帖子</b>","TBHead style='text-align:left;'"
	End If

	GBL_cssFormTr = ""
	GBL_cssFormTdOne = "TBBG1"
	GBL_cssFormTdTwo = "TBBG9"
	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "回贴主题",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddText "iptReTitle class=fminpt ","100","75"
	If strActFlag <> "FORUM_EDIT_MODE" Then
		strTitle = "Re:" & strTitle
	End If
	clsForm.AddValue strTitle

	'== get now smile
	Call ForumFace(clsForm,strFace)

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "UBB标签",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddLine GetUbb()

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*回复内容",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddTextrea "txtContent class=fmtxtra ","75","15"
	clsForm.AddValue FilterHtml(strContent)

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*插入表情",GBL_cssFormTdOne,GBL_cssFormTdTwo
	clsForm.AddLine ShowSmileOut(14)

	'clsForm.AddTr GBL_cssFormTr
	'clsForm.AddTd "*回复选项",GBL_cssFormTdOne,GBL_cssFormTdTwo
	'clsForm.AddChkBox "chkSign",0,"使用个性签名",0

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "帖子提交",GBL_cssFormTdOne,GBL_cssFormTdTwo
	strHtmlCode = "<input type=hidden name='hidForumId' id='hidForumId' value=" & ForumId & ">"
	clsForm.AddLine "Alt+S或Ctrl+Enter快速提交" & strHtmlCode

	clsForm.AddTr "TBBG9"
	clsForm.AddSubTd " align=center "
	clsForm.AddSub "subAddReply","提 交","submit class='fmbtn' "
	clsForm.AddSub "rstAddReply","重 写","reset class='fmbtn' "
	
	clsForm.OutPutForm()
	Set clsForm = Nothing

End Sub
'====================================================================
'= Function    : ForumIcoShow()
'= Called by   : 
'= Calls       : 
'= Description : 论坛图例
'====================================================================
Function ForumIcoShow()
%>
	<table width=100% >
		<tr width=100%>
			<td width=100% align=center valign=bottom>论坛图例：
			<img src="<%=GBL_strHomeURL%>images/Ico/User_info.gif"  align=absmiddle valign='middle'>发贴者信息&nbsp;
			<img src="<%=GBL_strHomeURL%>images/Ico/forum_quote.gif" align=absmiddle valign='middle'>引用留言&nbsp;
			<img src="<%=GBL_strHomeURL%>images/Ico/forum_del.gif" align=absmiddle valign='middle'>删除&nbsp;
			<img src="<%=GBL_strHomeURL%>images/Ico/forum_edit.gif" align=absmiddle valign='middle'>编辑&nbsp;
			<img src="<%=GBL_strHomeURL%>images/Ico/User_sms.gif" align=absmiddle valign='middle'>发站内短信&nbsp;
			</td>
		</tr>
	</table>
<%
End Function

'====================================================================
'= Function    : ShowForumMenu()
'= Called by   : 
'= Calls       : 
'= Description : 导航菜单
'====================================================================
Function ShowForumMenu()
	Dim GetRSId,strMaster
	GetRSId = Trim(Request("ForumId"))
	If Not IsNumeric(GetRSId) Then 
		Call ResultExecute(E_USER_PUB,"该帖子ID错误="&GetRSId,"ES_ERR")
	End If

	'== master
	strMaster =  Replace(GetConfig(Application(GBL_strCookieURL & "FORUM_MASTER_NAME"),"Forum" & GetRSId),"|",", ")
	If Trim(strMaster) <> "" Then
		strMaster = " 本版版主：" & strMaster
	Else
		strMaster = " 本版版主：暂无"
	End If

%>
<table width=<%=DEF_WEB_ScreenWidth%>  cellspacing=1 cellpadding=5 class="forum_nav_table">
		<tr >
			<td width=100% colspan=2 style="text-align:left" >
			<%
			If Trim(Request.QueryString("ACT_MODE")) = "ACT_TOPICS_GOOD" Then
				Response.Write ForumMenu(1,"<font color=red>精华区</font>") 
			ElseIf Trim(Request.QueryString("ACT_MODE")) = "ACT_SEARCH" Then
				Response.Write ForumMenu(1,"<font color=red>搜索</font>")
			ElseIf Trim(Request.QueryString("ACT_MODE")) = "ACT_TOPICS_SUBJECT" Then
				Subject = Trim(Request.QueryString("Subject"))
				If Not IsEmpty(DEF_FormSubject(GetRSId)) Then
					If IsArray(DEF_FormSubject(GetRSId)) Then 
						arrNowSub = DEF_FormSubject(GetRSId)
						If Not IsEmpty(arrNowSub(Subject-1)) Then
							strSub = "<font color=red>本版专题 >> " & arrNowSub(Subject-1) & "</font>"
						Else
							strSub = "帖子列表"
						End If
					Else
						strSub = "帖子列表"
					End If
				Else
					strSub = "帖子列表"
				End If
				Response.Write ForumMenu(1,"<font color=red>" & strSub & "</font>")
			ElseIf Trim(Request.QueryString("ACT_MODE")) = "ACT_SEARCH" Then
				Response.Write ForumMenu(1,"帖子搜索")
			Else
				Response.Write ForumMenu(1,"帖子列表")
			End If
			%>
			</td>
		</tr>
		<tr>
			<td width="*" align=left>
			<%
				Dim strHtmlCode,strTmp
				strHtmlCode = ""
				strTmp = MakeImg(GBL_strImgDir & "ico/forum_add.gif","")
				strHtmlCode = "&nbsp;"&  MakeLink("forum/forum_add_topics.asp?action=FormAddTopics&ForumId=" & GetRSId,strTmp,"") & "&nbsp;<img src='" & GBL_strHomeURL & "images/forum/plus.gif' align=absmiddle> <a href='" & GBL_strHomeURL & "forum/forum_list.asp?action=ShowForumList&ForumId=" & GetRSId & "&ACT_MODE=ACT_TOPICS_GOOD" & "'>精华</a>"
				Response.Write strHtmlCode
				Response.Write "&nbsp;&nbsp;<img src='" & GBL_strHomeURL & "images/forum/plus.gif' align=absmiddle> <a href='" & GBL_strHomeURL & "forum/forum_list.asp?action=ShowForumList&ForumId=" & GetRSId & "&ACT_MODE=ACT_SEARCH" & "'>搜索</a>"

				'== subject
				'If Not IsEmpty(DEF_FormSubject(GetRSId)) Then
				'	If IsArray(DEF_FormSubject(GetRSId)) Then
				'		Response.Write "&nbsp;&nbsp;<img src='" & GBL_strHomeURL & "images/forum/plus.gif' align=absmiddle> 专题："
				'		arrNowSub = DEF_FormSubject(GetRSId)
				'		For n = Lbound(arrNowSub) To Ubound(arrNowSub)
				'			Response.Write "&nbsp;&nbsp;<img src='" & GBL_strHomeURL & "images/forum/folder.gif' align=absmiddle> <a href='" & GBL_strHomeURL & "forum/forum_list.asp?action=ShowForumList&ForumId=" & GetRSId & "&ACT_MODE=ACT_TOPICS_SUBJECT&Subject=" & n+1 & "'>" & arrNowSub(n) & "</a>"
				'		Next
				'	End If
				'End If
			%>
			</td>
			<td width="*" align=right>
			<%
				Dim strTemp
				Dim arrMasterName : arrMasterName = Split(GBL_strForumMasterName,"|||")
				Dim arrMasterId : arrMasterId = Split(GBL_strForumMasterId,"|||")
				Dim m
				For m = Lbound(arrMasterName) To UBound(arrMasterName)
					strTemp =  strTemp & "<span style='cursor:hand'  title='查看详细信息' onclick=window.open('../address/address_userinfo_pop.asp?intUserId=" & arrMasterId(m) & "','','left=5,top=5,width=450,height=410,scrollbars=yes,status=yes') >" & arrMasterName(m) & "</span>&nbsp;"
				Next
				If strTemp <> "" Then
					strTemp = "论坛总版主:" & strTemp
				End If
				Response.Write "<font color=red>" & strTemp & "&nbsp;&nbsp;" & strMaster & "</font>&nbsp;&nbsp;&nbsp;"	
			%>
			</td>
		</tr>
	</table>
<%
End Function

'====================================================================
'= Function    : ShowAddTopicsForumMenu(strClew)
'= Called by   : 
'= Calls       : 
'= Description : 导航菜单
'====================================================================
Function ShowAddTopicsForumMenu(strClew)
	Dim GetRSId,strMaster
	GetRSId = Trim(Request("ForumId"))
	If Not IsNumeric(GetRSId) Then 
		Call ResultExecute(E_USER_PUB,"该帖子ID错误="&GetRSId,"ES_ERR")
	End If

	'== master
	strMaster =  Replace(GetConfig(Application(GBL_strCookieURL & "FORUM_MASTER_NAME"),"Forum" & GetRSId),"|",", ")
	If Trim(strMaster) <> "" Then
		strMaster = " 本版版主：" & strMaster
	Else
		strMaster = " 本版版主：暂无"
	End If

%>
<table width=<%=DEF_WEB_ScreenWidth%>  cellspacing=1 cellpadding=5 class="forum_nav_table">
		<tr >
			<td width=100% colspan=2 style="text-align:left" >
			<%
			
			Response.Write ForumMenu(2,strClew)
			
			%>
			</td>
		</tr>
		
	</table>
<%
End Function

'====================================================================
'= Function    : ShowAddReplyForumMenu(strClew)
'= Called by   : 
'= Calls       : 
'= Description : 导航菜单
'====================================================================
Function ShowAddReplyForumMenu(strClew)
	Dim GetRSId,strMaster
	GetRSId = Trim(Request("ForumId"))
	If Not IsNumeric(GetRSId) Then 
		Call ResultExecute(E_USER_PUB,"该帖子ID错误="&GetRSId,"ES_ERR")
	End If

	'== master
	strMaster =  Replace(GetConfig(Application(GBL_strCookieURL & "FORUM_MASTER_NAME"),"Forum" & GetRSId),"|",", ")
	If Trim(strMaster) <> "" Then
		strMaster = " 本版版主：" & strMaster
	Else
		strMaster = " 本版版主：暂无"
	End If

%>
<table width=<%=DEF_WEB_ScreenWidth%>  cellspacing=1 cellpadding=5 class="forum_nav_table">
		<tr >
			<td width=100% colspan=2 style="text-align:left" >
			<%
			
			Response.Write ForumMenu(2,strClew)
			
			%>
			</td>
		</tr>
		
	</table>
<%
End Function
%>
上一页 12
⌨️ 快捷键说明

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