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

📄 index1.asp

📁 1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
'= Function     : ShowColumnNewArticle()
'= Time		    : Created At Apr,24,2004
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : get new board 
'===================================================================
Function ShowColumnNewArticle()

	Dim intNewArticle

	GBL_intNewArticle = 5

	intNewArticle = GBL_intNewArticle

	'== get top x new goods
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT TOP " & intNewArticle & " LIST_TITLE,LIST_ADD_TIME,LIST_ID FROM CLASS_LIST WHERE LIST_TYPE=3 ORDER BY LIST_STATUS DESC,LIST_ORDER DESC,LIST_ID DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"show new article at home","ES_ERR")

%>
	<table width="100%" border="0" cellspacing="4" style="border-collapse: collapse" background="<%=GBL_strHomeURL%>images/home/newarticle_bg.gif">
	<% 
		If GBL_objPubDB.intRSNum <= 0 Then
	%>
		<tr> 
			<td height=21 >&nbsp; ·目前无专题文章 </td>
		<tr> 
	<%
		Else
			For i = 1 To GBL_objPubDB.intRSNum 
			%>
				<tr>
					<td height=21 >&nbsp; · <a href='list/index.asp?action=ShowArticle&ListId=<%=GBL_objPubDB.objPubRS("LIST_ID")%>' title='浏览该主题'><%=GBL_objPubDB.objPubRS("LIST_TITLE")%> </a><font color="#999999">(<%=GBL_objPubDB.objPubRS("LIST_ADD_TIME")%>)</font></td>
				</tr>
			<%
				GBL_objPubDB.objPubRS.MoveNext
			Next
		End If
	%>
	</table>
<%
End Function
'===================================================================
'= Function     : ShowColumnNewBoard()
'= Time		    : Created At Apr,24,2004
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : get new board 
'===================================================================
Function ShowColumnNewBoard()

	Dim intNewBoard

	GBL_intNewBoard = 5

	intNewBoard = GBL_intNewBoard

	'== get top x new goods
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT TOP " & intNewBoard & " BOARD_ID,BOARD_TITLE,BOARD_TIME,USER_REALNAME FROM CLASS_BOARD,CLASS_USER  WHERE USER_ID=BOARD_USER_ID ORDER BY BOARD_TIME DESC,BOARD_ID DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"show new board at home","ES_ERR")

%>
	<table width="100%" border="0" cellspacing="4" style="border-collapse: collapse" background="<%=GBL_strHomeURL%>images/home/newboard_bg.gif">
	<% 
		If GBL_objPubDB.intRSNum <= 0 Then
	%>
		<tr> 
			<td height=21 >&nbsp; ·目前无校友留言 </td>
		<tr> 
	<%
		Else
			For i = 1 To GBL_objPubDB.intRSNum 
			%>
				<tr>
					<td height=21 >&nbsp; · <%=GBL_objPubDB.objPubRS("BOARD_TITLE")%> <font color="#999999">(<%=GBL_objPubDB.objPubRS("USER_REALNAME") & " " & GBL_objPubDB.objPubRS("BOARD_TIME")%>)</font></td>
				</tr>
			<%
				GBL_objPubDB.objPubRS.MoveNext
			Next
		End If
	%>
	</table>
<%
End Function
'===================================================================
'= Function     : ShowColumnNewAlbum()
'= Time		    : Created At Apr,24,2004
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : 
'===================================================================
Function ShowColumnNewAlbum()

	Dim clsTable
	Dim strBoardContent
	Dim strBoardTime
	Dim i,intPhoto
	Dim strHtmlCode

	GBL_objPubDB.Clear()
	GBL_objPubDB.ALLSQL = "SELECT TOP 3 * FROM CLASS_ALBUM ORDER BY ALBUM_ID DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,GBL_objPubDB.ReturnSQL(),"ES_ERR")
	If Not ResultExecute(GBL_objPubDB.intRSNum,"目前在校友相集里","ES_DB_NO") Then
		
		Set clsTable = New classTable
		'== Set table prameters
		clsTable.Border = "0"
		clsTable.CellPadding = "2"
		clsTable.CellSpacing = "1"
		clsTable.Width = "94%"
		clsTable.ClassType = ""
		clsTable.Align = "center"
		clsTable.MakeTable()

		clsTable.AddTitleTr ""
		clsTable.AddTitleTd "", "","33%"
		clsTable.AddTitleTd "", "","33%"
		clsTable.AddTitleTd "", "","33%"

		clsTable.AddTr "CSS_TR3"
		If GBL_objPubDB.intRSNum < 3 Then
			intPhoto = GBL_objPubDB.intRSNum
		Else
			intPhoto = 3
		End If
		For i = 1 To intPhoto
			
			strHtmlCode = "相片标题：《" & GBL_objPubDB.objPubRS("ALBUM_TITLE") & "》"
			strHtmlCode = strHtmlCode & chr(13) & "上 传 者：" & GBL_objPubDB.objPubRS("ALBUM_OWNER_NAME")
			strHtmlCode = strHtmlCode & chr(13) & "点 击 率：" & GBL_objPubDB.objPubRS("ALBUM_HITS")
			strHtmlCode = strHtmlCode & chr(13) & "评 论 数：" & GBL_objPubDB.objPubRS("ALBUM_REVIEW_NUM")
			strHtmlCode = strHtmlCode & chr(13) & "上传时间：" & DateValue(GBL_objPubDB.objPubRS("ALBUM_ADD_TIME")) 

			If GBL_objPubDB.objPubRS("ALBUM_STATUS") = 0 Then
				strHtmlCode = "<img src='" & GBL_strHomeURL & GBL_strImgAlbum & GBL_objPubDB.objPubRS("ALBUM_IMG_FILE") & "' title='" & strHtmlCode & "' border='1' style='border-color:#B5B2B5' " & " width=108 height=80>" 
			ElseIf GBL_objPubDB.objPubRS("ALBUM_STATUS") = 10 Then
				strHtmlCode = "<img src='" & GBL_objPubDB.objPubRS("ALBUM_IMG_FILE") & "' title='" & strHtmlCode & "' border='0' " & " width=108 height=80>" 
			End If

			strHtmlCode = MakeLink("album/album_view.asp?intAlbumId=" & GBL_objPubDB.objPubRS("ALBUM_ID"),strHtmlCode,"点击欣赏相片《" & GBL_objPubDB.objPubRS("ALBUM_TITLE") & "》")

			clsTable.AddTd strHtmlCode,"CSS_TD_CENTER3"		
			GBL_objPubDB.objPubRS.MoveNext

		Next

		clsTable.AddInfoTr "","BOTTOM"
		clsTable.OutPutTable()
		Set clsTable = Nothing
	End If

End Function
'===================================================================
'= Function     : ShowColumnNewUser()
'= Time		    : Created At Apr,24,2004
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : get new register user 
'===================================================================
Function ShowColumnNewUser()

	Dim intNewUser,i

	intNewUser = GBL_intNewUser

	'== get top x  user
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT TOP " & intNewUser & " USER_REALNAME,USER_ADD_DATE,USER_ID,USER_CLASS FROM CLASS_USER ORDER BY USER_ADD_DATE DESC,USER_ID DESC"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"show new user at home","ES_ERR")

%>
            <table width="100%" border="0" cellspacing="4" style="border-collapse: collapse" background="<%=GBL_strHomeURL%>images/home/newuser_bg.gif">
				 <% 
				 If GBL_objPubDB.intRSNum <= 0 Then
				 %>
				 <tr> 
                    <td height=21 >&nbsp; ·目前无新加入校友 </td>
				 <tr> 
				 <%
				 Else
					 For i = 1 To GBL_objPubDB.intRSNum 
					 %>
					    <tr>
							<td height=21 align=left>&nbsp; · <span style="cursor:hand" title="查看详细"  onclick="window.open('./address/address_userinfo_pop.asp?intUserId=<%=GBL_objPubDB.objPubRS("USER_ID")%>','','left=5,top=5,width=450,height=410,scrollbars=yes,status=yes')"><%=GBL_objPubDB.objPubRS("USER_REALNAME")%></span> <font color="#999999">(<%=GBL_objPubDB.objPubRS("USER_CLASS") &  " " & GBL_objPubDB.objPubRS("USER_ADD_DATE")%>)</font></td>
						 </tr>
					 <%
						GBL_objPubDB.objPubRS.MoveNext
					 Next
				End If
					 %>
                </table>
<%
End Function
'=====================================================================
'= Function     : ShowColumnUserReg() 
'= Time		    : Created At 9,18,2003
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : user reg
'=====================================================================
Function ShowColumnUserReg()

%>
<table width=100% height=60 align=center>
	<tr width=95% align=center>
		<td width=2% align=center></td>
		<td width=* align=center><a href="<%=GBL_strHomeURL%>user/user_announce.asp?action=ShowUserRegAnnounce" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image9','','<%=GBL_strHomeURL %>/<%=GBL_strImgColumn%>shopreg.gif',1)"  title='新用户注册'><img name="Image9" border="0" src="<%=GBL_strHomeURL%>/<%=GBL_strImgColumn%>shopreg_on.gif" ></a></td>
	</tr>
</table>
<%
End Function
'=====================================================================
'= Function     : ShowColumnSvr() 
'= Time		    : Created At 9,18,2003
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : bulletin(small column)
'=====================================================================
Function ShowColumnSvr()

	Dim i

	'GBL_objPubDB.Clear()
	'GBL_objPubDB.AllSQL = "SELECT LIST_ID,LIST_TITLE FROM CLASS_LIST WHERE LIST_TYPE=1 ORDER BY LIST_ID ASC"
	'GBL_objPubDB.SQLRSExecute()
	'Call ResultExecute(GBL_objPubDB.intErrNum,"get column svr at home","ES_ERR")
		%>
		<table width=100% align=center>
		<%'For i = 1 To GBL_objPubDB.intRSNum%>
		
			<tr width=95% align=center>
				<td width=5% align=center></td>
				<td width=* align=left><a href='<%=GBL_strHomeURL%>list/index.asp?action=ShowArticle&ListId=1'>·服务条款和声明</a></td>
			</tr>
			<tr width=95% align=center>
				<td width=5% align=center></td>
				<td width=* align=left><a href='<%=GBL_strHomeURL%>list/index.asp?action=ShowArticle&ListId=4'>·校友网使用手册</a></td>
			</tr>
		<%
			'GBL_objPubDB.objPubRS.MoveNext
		'Next
		%>
		</table>
		<%

End Function
'=====================================================================
'= Function     : ShowColumnWebInfo() 
'= Time		    : Created At 9,18,2003
'= Input        : None
'= Output       : None
'= Return       : 
'= Description  : (small column)
'=====================================================================
Function ShowColumnWebInfo()

	Dim clsTable
	Dim intBoard,intReview,intPhoto,intUser,intGuest
	Dim intNewBoard,intNewReview,intNewPhoto,intNewUser,intNewGuest
	Dim strAdminUser,strAdminOther
	Dim i
	Dim strNewUser
	Dim intOnline,intOnlineUser,intOnlineGuest,intNewTopics,intTopics

	
	strAdminUser = Application(GBL_strCookieURL & "WEBINFO_ADMIN")
	strAdminOther = Application(GBL_strCookieURL & "WEBINFO_ADMIN_OTHER")
	If strAdminOther = "" Then
		strAdminOther = "暂无"
	End If

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(USER_ID) FROM CLASS_USER WHERE USER_AUTHEN<>8"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total user not guest","ES_ERR")
	intUser = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(USER_ID) FROM CLASS_USER WHERE USER_AUTHEN<>8 AND DAY(USER_ADD_DATE)=" & Day(Now) & " AND MONTH(USER_ADD_DATE)=" & Month(NOW) & " AND YEAR(USER_ADD_DATE)=" & Year(NOW)
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total new user","ES_ERR")
	intNewUser = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(BOARD_ID) FROM CLASS_BOARD"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total board","ES_ERR")
	intBoard = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(BOARD_ID) FROM CLASS_BOARD WHERE DAY(BOARD_TIME)=" & DAY(NOW) & " AND MONTH(BOARD_TIME)=" & Month(NOW) & " AND YEAR(BOARD_TIME)=" & Year(NOW)
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total new board","ES_ERR")
	intNewBoard = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_TOPICS"
	GBL_objPubDB.AllSQL = "SELECT COUNT(TOPICS_ID) FROM CLASS_TOPICS "
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total topics","ES_ERR")
	intTopics = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(TOPICS_ID) FROM CLASS_TOPICS WHERE DAY(TOPICS_DATE)=" & DAY(NOW) & " AND MONTH(TOPICS_DATE)=" & Month(NOW) & " AND YEAR(TOPICS_DATE)=" & Year(NOW)
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total new topics","ES_ERR")
	intNewTopics = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(REPLY_ID) FROM CLASS_REPLY"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total reply","ES_ERR")
	Dim intReply : intReply = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(REPLY_ID) FROM CLASS_REPLY WHERE DAY(REPLY_DATE)=" & DAY(NOW) & " AND MONTH(REPLY_DATE)=" & Month(NOW) & " AND YEAR(REPLY_DATE)=" & Year(NOW)
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total new reply","ES_ERR")
	Dim intNewReply : intNewReply = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(ALBUM_ID) FROM CLASS_ALBUM"
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total album","ES_ERR")
	intPhoto = GBL_objPubDB.objPubRS(0)

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT COUNT(ALBUM_ID) FROM CLASS_ALBUM  WHERE DAY(ALBUM_ADD_TIME)=" & DAY(NOW) & " AND MONTH(ALBUM_ADD_TIME)=" & Month(NOW) & " AND YEAR(ALBUM_ADD_TIME)=" & Year(NOW)
	GBL_objPubDB.SQLRSExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"ShowColumnClassInfo :total new album","ES_ERR")
	intNewPhoto = GBL_objPubDB.objPubRS(0)
	
	Response.Write "<table width=95% >"
	
	Dim strTmp : strTmp = ""

	'Response.Write "<tr><td align=left>&nbsp;&nbsp;" & strTmp & "&nbsp;管理员：" & strAdminUser & "</td></tr>"
	'Response.Write "<tr><td align=left>&nbsp;&nbsp;" & strTmp & "&nbsp;副管理员：" & strAdminOther & "</td></tr>"
	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 = "暂无"
	End If
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;论坛总版主：" & strTemp & "</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;总成员共" & intUser & "名</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;今日最新" & intNewUser & "名</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;总帖子共" & intTopics & "条</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;今日最新" & intNewTopics & "条</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;总回复共" & intReply & "条</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;今日最新" & intNewReply & "条</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;总留言共" & intBoard & "条</li></td></tr>"
	Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & "&nbsp;今日最新" & intNewBoard & "条</li></td></tr>"
1234

⌨️ 快捷键说明

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