📄 user_collection.asp

📁 是一个很好用的通信录源码,可以用在同学朋友等的通信上使用!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
		End if

		If intCurPage = 1 Then
			Call ShowContentFriend(clsPubDB.objPubRS,intMaxPerPage)
			Call ShowPage(intTotalPut,intMaxPerPage,intCurPage,strFileName)
		Else
			If (intCurPage - 1) * intMaxPerPage < intTotalPut Then
				clsPubDB.objPubRS.Move  (intCurPage - 1) * intMaxPerPage
				Dim BookMark
				BookMark = clsPubDB.objPubRS.BookMark
				Call ShowContentFriend(clsPubDB.objPubRS,intMaxPerPage)
				Call ShowPage(intTotalPut,intMaxPerPage,intCurPage,strFileName)
			Else
				intCurPage = 1
				Call ShowContentFriend(clsPubDB.objPubRS,intMaxPerPage)
				Call ShowPage(intTotalPut,intMaxPerPage,intCurPage,strFileName)
			End If

		End If
	Else
		Response.Write "<p align=center>目前没有任何好友被添加</p>"
	End If

	clsPubDB.Clear()

End Sub
'=============== End of Sub ShowUserFriend() ========================
'====================================================================
'= Sub         : ShowContentFriend(objRSCont,intMaxPerPage) 
'= Time		   : Created At Nov,09,2003
'= Input       : objRSCont	   : 记录集
'=				 intMaxPerPage : 每页记录条数
 
'= Called by   :
'= Calls       :
'= Table	   : Qurey CLASS_USER,
'= Description : Show user content
'===================================================================
Sub ShowContentFriend(objRSCont,intMaxPerPage)

	Dim clsTable
	Dim strHtmlCode,strHtmlCode1
	Dim arrTmp
	Dim i,intPerCols
	Dim intWidth,intHeight

	Set clsTable = New classTable

	'== Set table prameters
	clsTable.Border = "0"
	clsTable.CellPadding = "2"
	clsTable.CellSpacing = "1"
	clsTable.Width = "98%"
	clsTable.ClassType = "CSS_TR4 style='background-color:#E0DCD3' "
	clsTable.Align = "center"

	strQuery = Trim(Request("pstAddType"))
	clsTable.PostFile = "user_collection.asp?action=ShowUserCollection&pstAddType="

	clsTable.MakeTable()

	clsTable.AddTitleTr GBL_cssFormTitleTd
	clsTable.AddTitleTd "ID",GBL_cssListTd2,"10%"
	clsTable.AddTitleTd "用户ID",GBL_cssListTd2,"20%"
	clsTable.AddTitleTd "注册时间",GBL_cssListTd2,"20%"
	clsTable.AddTitleTd "真实姓名",GBL_cssListTd2,"20%"
	clsTable.AddTitleTd "访问",GBL_cssListTd2,""
	clsTable.AddTitleTd "发短信",GBL_cssListTd2,""
	clsTable.AddTitleTd "删除",GBL_cssListTd2,"8%"

	i = 0
	Do While Not objRSCont.Eof
	
		i = i + 1
								
		clsTable.AddTr GBL_cssListTitleTr & " onmouseover=BgChange(this,'CSS_TD_CENTER2') onmouseout=BgReset(this,'CSS_TD_CENTER1') "

		clsTable.AddTd objRSCont("USER_ID"),"CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_ACCOUNT"),"CSS_TD_LEFT2"
		clsTable.AddTd DateValue(objRSCont("USER_ADD_DATE")),"CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_REALNAME"),"CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_LOGIN_COUNT"),"CSS_TD_CENTER2"
		clsTable.AddTd "xx" ,"CSS_TD_CENTER2"
		clsTable.AddTd "<a href='" & GBL_strHomeURL & "user/user_collection.asp?action=DelCollection&pstType=0&OID=" & objRSCont("USER_ID") & "' onclick=""return confirm('您确认删除该记录?')""><font color=red>删除</font></a>","CSS_TD_CENTER2"

		If i >= intMaxPerPage Then Exit Do
		
		objRSCont.MoveNext
		
	Loop

	Response.Write "<br>"
	clsTable.OutPutTable()

	Set clsTable = Nothing

End Sub
'============== End of Sub ShowContentFriend() ======================
'====================================================================
'= Sub         : ShowContentAlbum(objRSCont,intMaxPerPage) 
'= Time		   : Created At Nov,09,2003
'= Input       : objRSCont	   : 记录集
'=				 intMaxPerPage : 每页记录条数
 
'= Called by   :
'= Calls       :
'= Table	   : Qurey CLASS_ALBUM,
'= Description : Show photo content
'===================================================================
Sub ShowContentAlbum(objRSCont,intMaxPerPage)

	Dim clsTable
	Dim strHtmlCode,strHtmlCode1
	Dim arrTmp
	Dim i,intPerCols
	Dim intWidth,intHeight

	Set clsTable = New classTable

	'== Set table prameters
	clsTable.Border = "0"
	clsTable.CellPadding = "2"
	clsTable.CellSpacing = "1"
	clsTable.Width = "98%"
	clsTable.ClassType = "CSS_TR4 style='background-color:#E0DCD3' "
	clsTable.Align = "center"

	strQuery = Trim(Request("pstAddType"))
	clsTable.PostFile = "user_collection.asp?action=ShowUserCollection&pstAddType="

	clsTable.MakeTable()

	clsTable.AddTitleTr GBL_cssFormTitleTd
	clsTable.AddTitleTd "ID",GBL_cssListTd2,"5%"
	clsTable.AddTitleTd "主&nbsp;&nbsp;题",GBL_cssListTd2,"40%"
	clsTable.AddTitleTd "类型",GBL_cssListTd2,"12%"
	clsTable.AddTitleTd "点&nbsp;击",GBL_cssListTd2,"12%"
	clsTable.AddTitleTd "拥有者",GBL_cssListTd2,""
	clsTable.AddTitleTd "查看",GBL_cssListTd2,""
	clsTable.AddTitleTd "删除",GBL_cssListTd2,"5%"

	i = 0
	Do While Not objRSCont.Eof
	
		i = i + 1
								
		clsTable.AddTr GBL_cssListTitleTr & " onmouseover=BgChange(this,'CSS_TD_CENTER2') onmouseout=BgReset(this,'CSS_TD_CENTER1') "

		clsTable.AddTd objRSCont("ALBUM_ID"),"CSS_TD_LEFT2"
		clsTable.AddTd objRSCont("ALBUM_TITLE"),"CSS_TD_LEFT2"
		clsTable.AddTd objRSCont("ALBUM_TYPE"),"CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("ALBUM_HITS"),"CSS_TD_CENTER2"
		clsTable.AddTd objRSCont("USER_REALNAME"),"CSS_TD_CENTER2"
		clsTable.AddTd "<a href='" & GBL_strHomeURL & "album/album_view.asp?action=ShowPerPhoto&AlbumId=" & objRSCont("ALBUM_ID") & "&pstTitle=" & objRSCont("ALBUM_TITLE") & "' target=_blank>查看</a>" ,"CSS_TD_CENTER2"
		clsTable.AddTd "<a href='" & GBL_strHomeURL & "user/user_collection.asp?action=DelCollection&pstType=2&OID=" & objRSCont("ALBUM_ID") & "' onclick=""return confirm('您确认删除该记录?')""><font color=red>删除</font></a>","CSS_TD_CENTER2"

		If i >= intMaxPerPage Then Exit Do
		
		objRSCont.MoveNext
		
	Loop

	Response.Write "<br>"
	clsTable.OutPutTable()

	Set clsTable = Nothing

End Sub
'============== End of Sub ShowAlbumContent() ======================
'===================================================================
'= Sub         : ShowUserAlbum()
'= Time		   : Created At Nov,08,2003
'= Input       : 
 
'= Called by   :
'= Calls       :
'= Table	   : Qurey CLASS_ALBUM,
'= Description : Show photo list
'===================================================================
Sub ShowUserAlbum()

	Dim strFileName 
	Dim intMaxPerPage
	Dim strHtmlCode
	Dim intCurPage,intTotalPut
	Dim i
	Dim intClass

	intMaxPerPage = GBL_intMaxPerAlbum
	intMaxPerPage = 15
	If Not IsEmpty(Request("intPageNow")) Then
		intCurPage = Cint(Request("intPageNow"))
	Else
		intCurPage = 1
	End If
	
	clsPubDB.Clear()
	clsPubDB.TableName = "CLASS_ALBUM,CLASS_USER"
	clsPubDB.SQLType = "SELECT"
	clsPubDB.Order = "ALBUM_ID DESC"
	clsPubDB.AddField "ALBUM_ID,ALBUM_TITLE,USER_REALNAME,ALBUM_HITS,ALBUM_REVIEW_NUM,ALBUM_STATUS,ALBUM_TYPE",""
	clsPubDB.Where = " USER_ID=ALBUM_OWNER_ID AND ALBUM_ID IN (SELECT COLLECTION_OID FROM CLASS_COLLECTION WHERE COLLECTION_OWNER_ID=" & GBL_intUserId & " AND COLLECTION_TYPE=2) "

	strFileName = GBL_strHomeURL & "user/user_collection.asp?action=ShowUserCollection&ACT_MODE=ACT_ALBUM" 

	
	'== Get data
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"","ES_ERR")
	If Not ResultExecute(clsPubDB.intRSNum,"您相片收藏","ES_DB_NO") Then

		intTotalPut =  clsPubDB.intRSNum
		If intCurPage < 1 then
			  intCurPage = 1
		End If

		If (intCurPage - 1) * intMaxPerPage > intTotalPut Then
			If (intTotalPut Mod intMaxPerPage) = 0 Then
				intCurPage = intTotalPut \ intMaxPerPage
			Else
				intCurPage = intTotalPut \ intMaxPerPage + 1
			End If
		End if

		If intCurPage = 1 Then
			Call ShowContentAlbum(clsPubDB.objPubRS,intMaxPerPage)
			Call ShowPage(intTotalPut,intMaxPerPage,intCurPage,strFileName)
		Else
			If (intCurPage - 1) * intMaxPerPage < intTotalPut Then
				clsPubDB.objPubRS.Move  (intCurPage - 1) * intMaxPerPage
				Dim BookMark
				BookMark = clsPubDB.objPubRS.BookMark
				Call ShowContentAlbum(clsPubDB.objPubRS,intMaxPerPage)
				Call ShowPage(intTotalPut,intMaxPerPage,intCurPage,strFileName)
			Else
				intCurPage = 1
				Call ShowContentAlbum(clsPubDB.objPubRS,intMaxPerPage)
				Call ShowPage(intTotalPut,intMaxPerPage,intCurPage,strFileName)
			End If

		End If

	End If

End Sub
'=============== End of Sub ShowUserAlbum() ==========================
'=====================================================================
'= Sub         : DelCollection
'= Time        : Created At Oct,08,2004
'= Input       : 

'= Called by   : 
'= Calls       : None
'= Table       : DEL CLASS_COLLECTION
'= Description : 
'=====================================================================
Sub DelCollection()

	Dim OID,intType,strAddInfo
	OID = Trim(Request.QueryString("OID"))
	If Not IsNumeric(OID) Then
		Call ResultExecute(E_USER_PUB,"OID错误","ES_ERR")
		Exit Sub
	End If
	intType = Trim(Request.QueryString("pstType"))
	strAddInfo = "收藏类型"
	intErrId = 	DataCheck("DT_ENUM",intType,strAddInfo,"1,2,0")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
	intType = Cint(intType)

	clsPubDB.Clear()
	clsPubDB.AllSQL = "DELETE FROM CLASS_COLLECTION WHERE COLLECTION_OID=" & OID & " AND COLLECTION_OWNER_ID=" & GBL_intUserId
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"del user collection"&clsPubDb.strDBSQL,"ES_ERR")

	Select Case intType
		Case	0	:	strAct = "ACT_FRIEND"
		Case	1	:	strAct = "ACT_TOPICS"
		Case	2	:	strAct = "ACT_ALBUM"
	End Select

	Set clsPubDB = Nothing
	Response.Redirect GBL_strHomeURL & "user/user_collection.asp?action=ShowUserCollection&ACT_MODE=" & strAct

End Sub
'================= End of Sub DelCollection ==========================
'=====================================================================
'= Sub         : FormAddCollection()
'= Time        : Created At Oct,08,2004
'= Input       : 

'= Called by   : 
'= Calls       : None
'= Table       : INSERT CLASS_COLLECTION
'= Description : Related dialog/dialog_collection.asp
'=====================================================================
'================= FUNCTION BODY END =================================
%>
上一页 12
💿 文件大小 4705 K
👤 上传用户 Lxb500
📂 所属分类书籍源码
🏷️ 相关标签

#通信 #源码
⌨️ 快捷键说明

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