亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? forum_add_save.asp

?? jsp 同學錄源碼
?? ASP
字號: 
<%
'===================================================================
'= ASP FILENAME	: /forum/form_add_save.asp
'= CREATED TIME : 2006-6-24
'= LAST MODIFIED: 2006-6-24
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 發表新貼
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/customer/include_customer_action_execute.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "./forum_inc.asp" -->
<!-- #include file = "./forum_func.asp" -->

<%
'========================================================
'==   Action參數設置
'========================================================
'== 頁面名
Const CONST_PAGE_FILE	= "user/form_add_save.asp"

'== 頁面標題/功能
Const CONST_PAGE_TITLE	= "發表新貼"

'== 功能函數名字空間
Const CONST_ACTION_FUNC	= "FormSaveAddTopicsCtl"

'== 相對根目錄路徑 
GBL_strHomeURL			= "../"

'== 頁面構造
Call ActionBuild()

'== 請求校驗與過濾
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 頁面析構
Call ActionOver()

%>

<%
'===================================================================
'= Sub         : FormSaveAddTopicsCtl() 
'= Time	       : Created At 2006-6-24
'= Input       : Non
'= Table       : INSERT INTO CLASS_TOPICS
'= Description : 發表新貼
'===================================================================
Sub FormSaveAddTopicsCtl()

	Dim strTitle,strContent,strFace,strUserIp	'== Get form data 
	Dim strAddInfo								'== checked data's clew
	Dim intErrId
	Dim strHtmlCode,strSuccUrl

	intErrId = 0

	If Trim(Request.QueryString("action")) = "FormSaveAddReply" Then
		Call FormSaveAddReply()
		Exit Sub
	End If

	Dim strActFlag : strActFlag = Trim(Request.QueryString("pstActFlag"))
	If strActFlag <> "" And strActFlag <> "FORUM_EDIT_MODE" Then
		Call ResultExecute(E_USER_PUB,"貼子編輯模式不正確","ES_ERR")
		Exit Sub
	End If

	Dim ForumId : ForumId = Trim(Request.Form("hidForumId"))
	strAddInfo = "論壇欄目"
	intErrId = DataCheck("DT_ID",ForumId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	Dim intForumSubject : intForumSubject = Trim(Request.Form("selForumSubject"))
	If Not IsNumeric(intForumSubject) Then
		intForumSubject = 0
	End If 

	Call CheckMasterForum(ForumId)

	'== edit mode 
	If strActFlag = "FORUM_EDIT_MODE" Then

		Dim GetRSId : GetRSId = Trim(Request.QueryString("TopicsId"))
		strAddInfo = "該要編輯的帖子"
		intErrId = DataCheck("DT_ID",GetRSId,strAddInfo,"")
		Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	End If

	'== Check title of forum
	strTitle = Trim(Request.Form("iptTitle"))
	strAddInfo = "帖子主題"
	intErrId = DataCheck("DT_FIX_LENGTH",strTitle,strAddInfo,"1|DTC_LESS_MORE_LEN|100|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check smile face 
	strFace = Trim(Request.Form("rdoFace"))
	strAddInfo = "發貼心情圖標文件名"
	intErrId = DataCheck("DT_FIX_LENGTH",strFace,strAddInfo,"1|DTC_LESS_MORE_LEN|15|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
	If Ucase(Right(strFace,4)) <> ".GIF" Then
		Call ResultExecute(E_USER_PUB,"發貼心情圖標文件名","ES_ERR")
	End If

	'== Check contents
	strContent = Trim(Request.Form("txtContent"))
	strAddInfo = "帖子內容"
	intErrId = DataCheck("DT_FIX_LENGTH",strContent,strAddInfo,"5|DTC_LESS_MORE_LEN|10000|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_TOPICS"
	If strActFlag = "FORUM_EDIT_MODE" Then
		GBL_objPubDB.SQLType = "UPDATE"
		If GBL_strUserAuthen = 1 Or GetMaster(ForumId) Then
			GBL_objPubDB.Where = "TOPICS_ID=" & GetRSId 
		Else
			GBL_objPubDB.Where = "TOPICS_ID=" & GetRSId & " AND TOPICS_OWNER_ID=" & GBL_intUserId
		End If
	Else
		GBL_objPubDB.SQLType = "INSERT"
	End If

	GBL_objPubDB.AddField "TOPICS_TITLE",strTitle
	GBL_objPubDB.AddField "TOPICS_CONTENT",htmlencode2(strContent)
	GBL_objPubDB.AddField "TOPICS_FACE",strFace
	If strActFlag <> "FORUM_EDIT_MODE" Then
		GBL_objPubDB.AddField "TOPICS_FORUM_ID",ForumId
		GBL_objPubDB.AddField "TOPICS_DATE",NOW()
		GBL_objPubDB.AddField "TOPICS_LAST_POST",NOW()
	End If

	If strActFlag <> "FORUM_EDIT_MODE" Then 
		GBL_objPubDB.AddField "TOPICS_OWNER",GBL_strUserRealName
		GBL_objPubDB.AddField "TOPICS_OWNER_ID",GBL_intUserId
		GBL_objPubDB.AddField "TOPICS_LAST_POSTER","--------"
	End If
	
	GBL_objPubDB.AddField "TOPICS_LAST_EDIT",Now()
	GBL_objPubDB.AddField "TOPICS_SUBJECT",intForumSubject	

	'== insert class_topics a new topics record
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"","ES_ERR")

	'== update the forum's topics
	Call RecordCounter("CLASS_FORUM","FORUM_TOPICS",1,"AND FORUM_ID=" & ForumId)

	If strActFlag <> "FORUM_EDIT_MODE" Then 

		'== update  _FORUM
		GBL_objPubDB.Clear()
		GBL_objPubDB.ALlSQL = "UPDATE CLASS_FORUM SET FORUM_LAST_TOPICS='" & strTitle & "',FORUM_LAST_POST='" & Now() & "' WHERE FORUM_ID=" & ForumId
		GBL_objPubDB.SQLExecute()

		Call ResultExecute(GBL_objPubDB.intErrNum,"up forum after add topics","ES_ERR")

		'== Update user topics number
		Call RecordCounter("CLASS_USER","USER_TOPICS",1,"AND USER_ID=" & GBL_intUserId)

		'== Update user level
		Call UpdateLevel(GBL_intTopicsLevel)

		strHtmlCode = "發表帖子成功"
		strSuccUrl = "forum/forum_list.asp?action=ShowForumList&ForumId=" & ForumId
		Call SuccExecute(strHtmlCode,strSuccUrl)

		Call ResultExecute(1101,ForumId,"ES_SUCC")

	Else
		strHtmlCode = "修改帖子成功"
		strSuccUrl = "forum/forum_show.asp?action=ShowForumContent&TopicsId=" & GetRSId & "&ForumId=" & ForumId
		Call SuccExecute(strHtmlCode,strSuccUrl)

	End If
	
End Sub

'===================================================================
'= Sub         : FormSaveAddReply() 
'= Time	       : Created At 2006-6-24
'= Input       : None
'= Table       : INSERT INTO CLASS_REPLY
'= Description : Save forum reply
'===================================================================
Sub FormSaveAddReply()

	Dim strTitle,strContent,strFace,strUserIp	'== Get form data 
	Dim strAddInfo								'== checked data's clew
	Dim intErrId
	Dim GetRS
	Dim strHtmlCode,strSuccUrl

	intErrId = 0

	'== check edit mode
	Dim strActFlag
	strActFlag = Trim(Request.QueryString("pstActFlag"))
	If strActFlag <> "" And strActFlag <> "FORUM_EDIT_MODE" Then
		Call ResultExecute(E_USER_PUB,"貼子回復編輯模式不正確","ES_ERR")
		Exit Sub
	End If

	'== check forum id
	Dim ForumId : ForumId = Trim(Request.Form("hidForumId"))
	If Not IsNumeric(ForumId) Then
		Call ResultExecute(E_USER_PUB,"論壇forum id錯誤" & ForumId,"ES_ERR")
		Exit Sub
	End If

	Call CheckMasterForum(ForumId)

	'== edit mode 
	If strActFlag = "FORUM_EDIT_MODE" Then
		Dim GetRSId1
		GetRSId1 = Trim(Request.QueryString("ReplyId"))
		strAddInfo = "該要編輯的帖子"
		intErrId = DataCheck("DT_ID",GetRSId1,strAddInfo,"")
		Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	End If

	'== check topics id
	Dim GetRSId : GetRSId = Trim(Request.QueryString("TopicsId"))
	strAddInfo = "需回復帖子"
	intErrId = DataCheck("DT_ID",GetRSId,strAddInfo,"")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check smile face 
	strFace = Trim(Request.Form("rdoFace"))
	strAddInfo = "發貼心情圖標文件名"
	intErrId = DataCheck("DT_FIX_LENGTH",strFace,strAddInfo,"1|DTC_LESS_MORE_LEN|15|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
	If Ucase(Right(strFace,4)) <> ".GIF" Then
		Call ResultExecute(E_USER_PUB,"發貼心情圖標文件名","ES_ERR")
	End If

	'== Check re title
	strTitle = Trim(Request.Form("iptReTitle"))
	strAddInfo = "回復貼主題"
	intErrId = DataCheck("DT_FIX_LENGTH",strTitle,strAddInfo,"1|DTC_LESS_MORE_LEN|100|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check contents
	strContent = Trim(Request.Form("txtContent"))
	strAddInfo = "回復內容"
	intErrId = DataCheck("DT_FIX_LENGTH",strContent,strAddInfo,"5|DTC_LESS_MORE_LEN|10000|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_REPLY"

	If strActFlag = "FORUM_EDIT_MODE" Then
		GBL_objPubDB.SQLType = "UPDATE"
		If GBL_strUserAuthen = 1 Or GetMaster(ForumId) Then
			GBL_objPubDB.Where = "REPLY_ID=" & GetRSId1 
		Else
			GBL_objPubDB.Where = "REPLY_ID=" & GetRSId1 & " AND REPLY_OWNER_ID=" & GBL_intUserId
		End If
	Else
		GBL_objPubDB.SQLType = "INSERT"
	End If

	GBL_objPubDB.AddField "REPLY_CONTENT",htmlencode(strContent)

	If strActFlag <> "FORUM_EDIT_MODE" Then
		GBL_objPubDB.AddField "REPLY_OWNER",GBL_strUserRealName
		GBL_objPubDB.AddField "REPLY_OWNER_ID",GBL_intUserId
		GBL_objPubDB.AddField "REPLY_FORUM_ID",ForumId
		GBL_objPubDB.AddField "REPLY_DATE",NOW()
	End If

	GBL_objPubDB.AddField "REPLY_TOPICS_ID",GetRSId
	GBL_objPubDB.AddField "REPLY_LAST_POST",Now()
	GBL_objPubDB.AddField "REPLY_FACE",strFace
	GBL_objPubDB.AddField "REPLY_TITLE",strTitle

	'== insert class_reply a new reply record
	GBL_objPubDB.SQLExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"","ES_ERR")

	If strActFlag = "FORUM_EDIT_MODE" Then
		strHtmlCode = "修改回復成功"
		strSuccUrl = "forum/forum_show.asp?action=ShowForumContent&TopicsId=" & GetRSId & "&ForumId=" & ForumId
		Call SuccExecute(strHtmlCode,strSuccUrl)
	Else

		'== update replies
		Call RecordCounter("CLASS_TOPICS","TOPICS_REPLIES",1,"AND TOPICS_ID=" & GetRSId)

		'== update _TOPICS
		GBL_objPubDB.Clear()
		GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_LAST_POSTER='" & GBL_strUserRealName & "',TOPICS_LAST_POSTER_ID='" & GBL_intUserId & "',TOPICS_LAST_POST='" & Now() & "' WHERE TOPICS_ID=" & GetRSId
		GBL_objPubDB.SQLExecute()
		Call ResultExecute(GBL_objPubDB.intErrNum,"up topics after add reply","ES_ERR")

		'== update  _FORUM
		GBL_objPubDB.Clear()
		GBL_objPubDB.ALlSQL = "UPDATE CLASS_FORUM SET FORUM_LAST_REPLY='" & strTitle & "',FORUM_LAST_POST='" & Now() & "' WHERE FORUM_ID=" & ForumId
		GBL_objPubDB.SQLExecute()
		Call ResultExecute(GBL_objPubDB.intErrNum,"up forum after add reply","ES_ERR")

		'== Update user reply number
		Call RecordCounter("CLASS_USER","USER_REPLY",1,"AND USER_ID=" & GBL_intUserId)

		'== Update user level
		Call UpdateLevel(GBL_intReplyLevel)

		'== 成功處理
		strHtmlCode = "回復成功"
		strSuccUrl = "forum/forum_show.asp?action=ShowForumContent&TopicsId=" & GetRSId & "&ForumId=" & ForumId
		Call SuccExecute(strHtmlCode,strSuccUrl)

	End If
	
End Sub

'===================================================================
'= Function    : GetMaster(intForumId)
'= Time		   : Created At 2006-6-24
'= Input       : 
'= Table	   : Qurey CLASS_FORUM,CLASS_USER
'= Description : get user master of forum
'===================================================================
Function GetMaster(intForumId)

	Dim strTmp,i

	strTmp =  Trim(GetConfig(Application(GBL_strCookieURL & "FORUM_MASTER"),"Forum" & intForumId))

	If strTmp <> "" Then
		strTmp = Split(strTmp,"|")
		For i = Lbound(strTmp) To Ubound(strTmp)
			If Trim(strTmp(i)) = GBL_strUserAccount Then
				GetMaster = True
				Exit Function
			End If
		Next
	End If

	GetMaster = False

End Function
%>

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
日韩精品一区二区在线观看| 91精品国产综合久久久久| 日韩写真欧美这视频| 亚洲精品自拍动漫在线| 国产传媒久久文化传媒| 69成人精品免费视频| 亚洲一区二区成人在线观看| 不卡一区中文字幕| 久久久久久影视| 久久疯狂做爰流白浆xx| 欧美日韩欧美一区二区| 亚洲欧美国产高清| 成人伦理片在线| 国产欧美一区二区精品性色| 欧美aaa在线| 欧美精品电影在线播放| 亚洲一区二区三区免费视频| 一本大道久久a久久综合| 国产亚洲精品7777| 精品一区二区三区影院在线午夜 | 亚洲一区二区三区中文字幕在线| 国产成人福利片| 亚洲精品在线观看网站| 奇米777欧美一区二区| 欧美日韩不卡在线| 亚洲成a人片在线不卡一二三区 | 久久99久久久久| 欧美精品自拍偷拍| 亚洲成a人在线观看| 欧美亚洲一区二区在线| 亚洲一区二区三区影院| 欧美亚洲一区二区在线观看| 一区二区三区四区五区视频在线观看 | 91麻豆精品国产自产在线观看一区| 一区二区三区四区在线| 91久久免费观看| 亚洲激情av在线| 91免费视频观看| 一区二区不卡在线播放 | 国内精品写真在线观看| 欧美xxx久久| 久久国产精品色| 久久夜色精品一区| 国产成人av一区二区| 国产视频911| 懂色av噜噜一区二区三区av| 中文字幕高清不卡| av影院午夜一区| 亚洲欧洲精品天堂一级| 91亚洲大成网污www| 亚洲综合在线电影| 制服丝袜中文字幕亚洲| 蜜桃视频免费观看一区| 欧美精品一区二区久久婷婷| 国产高清一区日本| 国产精品嫩草影院av蜜臀| 成+人+亚洲+综合天堂| 亚洲欧美另类久久久精品2019| 91麻豆成人久久精品二区三区| 亚洲精品美腿丝袜| 欧美日本一区二区| 久久99精品国产.久久久久久| 久久影音资源网| proumb性欧美在线观看| 一区二区三区中文字幕在线观看| 欧洲一区二区av| 男人的j进女人的j一区| 久久久久久电影| 一本一道久久a久久精品综合蜜臀| 亚洲动漫第一页| 精品国产乱码久久久久久浪潮| 国产suv精品一区二区6| 亚洲综合丝袜美腿| 欧美岛国在线观看| aa级大片欧美| 日韩电影在线看| 中文av一区二区| 欧美中文字幕久久| 黄网站免费久久| 成人免费小视频| 91精品黄色片免费大全| 成人性视频网站| 亚洲成在线观看| 久久久99免费| 91成人网在线| 国产中文字幕精品| 一区二区三区四区在线免费观看| 日韩欧美的一区| 99精品欧美一区二区三区小说| 偷窥少妇高潮呻吟av久久免费| 精品日韩欧美在线| 色综合久久88色综合天天| 久久成人免费电影| 一级特黄大欧美久久久| 久久这里只有精品6| 在线视频综合导航| 国产精品一区二区免费不卡 | 日韩精品亚洲一区二区三区免费| 国产日韩精品一区二区三区在线| 在线精品视频一区二区三四| 国产综合色精品一区二区三区| 亚洲精品高清视频在线观看| 久久人人超碰精品| 欧美日韩黄色影视| 99久久精品国产导航| 久久福利资源站| 亚洲一二三区视频在线观看| 国产亚洲一二三区| 91精品麻豆日日躁夜夜躁| 99久久国产综合精品女不卡| 精品一区二区三区免费播放| 亚洲一级二级在线| 中文字幕在线观看一区二区| 欧美mv和日韩mv的网站| 欧美色综合久久| av男人天堂一区| 国产乱人伦偷精品视频免下载| 亚瑟在线精品视频| 亚洲欧美色图小说| 久久精品在这里| 日韩一区二区三区视频在线| 在线一区二区三区四区五区 | 久久精品国产一区二区三| 一二三四社区欧美黄| 国产精品国产自产拍在线| 精品福利在线导航| 91精品国产综合久久精品app | www..com久久爱| 国产一区不卡视频| 欧美a级理论片| 日韩中文欧美在线| 亚洲一区二区av在线| 亚洲色图一区二区| 国产精品国产自产拍高清av王其 | 欧美日韩精品二区第二页| 91视频免费看| 99久久国产免费看| 福利91精品一区二区三区| 韩国av一区二区三区| 久久99在线观看| 美女网站色91| 日韩福利电影在线观看| 婷婷六月综合亚洲| 亚洲成a人v欧美综合天堂下载| 一区二区激情视频| 亚洲一区二区三区四区在线免费观看 | 久久久国际精品| 26uuu亚洲综合色| 精品国内二区三区| 精品剧情v国产在线观看在线| 日韩一区二区三区免费看| 欧美一区二区视频在线观看2020| 欧美日韩国产一级| 欧美日韩极品在线观看一区| 欧美日韩一级黄| 欧美老人xxxx18| 欧美日本精品一区二区三区| 欧美日韩成人在线一区| 69堂亚洲精品首页| 91精品国产欧美一区二区| 欧美一区二区三区日韩| 日韩欧美一二三| 欧美成人伊人久久综合网| 26uuu另类欧美| 久久久91精品国产一区二区精品| 国产欧美日韩一区二区三区在线观看| 国产日韩欧美亚洲| 最新成人av在线| 悠悠色在线精品| 性做久久久久久免费观看| 日韩电影免费在线| 激情六月婷婷久久| 成人做爰69片免费看网站| 99精品视频在线观看| 91黄色免费看| 欧美一级国产精品| 久久综合一区二区| 国产精品网站在线| 亚洲男人天堂av网| 午夜精品一区二区三区电影天堂 | 亚洲三级在线看| 亚洲精品国产无套在线观| 亚洲成人av一区二区三区| 日韩成人dvd| 国产精品一级片| 99久久久精品| 欧美酷刑日本凌虐凌虐| 精品少妇一区二区三区视频免付费| 国产欧美一区在线| 一区二区三区色| 全国精品久久少妇| 国产成人av网站| 91久久国产综合久久| 日韩免费观看2025年上映的电影| 国产日韩视频一区二区三区| 一区二区三区免费看视频| 美国av一区二区| av中文字幕一区| 日韩一区二区电影网| 国产精品九色蝌蚪自拍|