📄 index1.asp
字号:
<tr><td><li><a href="info/info_video.asp" title=""><strong>视频展区</strong></a></li></td></tr>
<tr align=right width=100%>
<td height=5></td></tr>
<%End If%>
</table>
<%
End If
End Function
'===================================================================
'= Function : ShowColumnInfoRow()
'= Time : Created At 2006-7-9
'= Input : None
'= Return :
'= Description : show the user that will birth (small column)
'===================================================================
Function ShowColumnInfoRow()
GBL_objPubDB.Clear()
GBL_objPubDB.ALLSQL = "SELECT SORT_NAME,SORT_DESC,SORT_ID FROM CLASS_SORT WHERE SORT_IS_OPEN=0 ORDER BY SORT_ORDER DESC"
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,GBL_objPubDB.ReturnSQL(),"ES_ERR")
If GBL_objPubDB.intRSNum < 1 Then
Response.Write "目前没有信息栏目"
Else
%>
<table cellSpacing=0 cellPadding=0 border=0 >
<tr align=right width=100%>
<td height=5></td></tr>
<tr ><td style="padding-left:5px">
<%
Dim i
i = 0
While Not GBL_objPubDB.objPubRS.Eof
i = i + 1
%>
<a title="<%=GBL_objPubDB.objPubRS("SORT_DESC")%>" href="info/info_list.asp?intSortId=<%=GBL_objPubDB.objPubRS("SORT_ID")%>"><%=GBL_objPubDB.objPubRS("SORT_NAME")%></a>
<%
if i mod 6 = 0 then Response.Write "<br>"
GBL_objPubDB.objPubRS.MoveNext
Wend
%></td></tr>
</table>
<%
End If
End Function
'===================================================================
'= Function : ShowColumnCate()
'= Time : Created At July,7,2004
'= Input : None
'= Return :
'= Description :
'===================================================================
Function ShowColumnCate()
%>
<table cellspacing=0 cellpadding=0 width=100% border=0 align=right>
<tbody>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info.asp?method=intro"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_intro.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info.asp?method=org"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_org.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="info/info_list.asp?intSortId=3"><img alt="进入校友风采"
src="<%=GBL_strHomeURL%>images/new/menu_album.gif" width=161 border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/menu_line.gif"
width=161 border=0></td></tr>
<%
If Trim(Application(GBL_strCookieURL & "APP_strListID")) <> "" And Application(GBL_strCookieURL & "APP_strOpenList") = "0" Then%>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info_video.asp"><img height=57 alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_video.gif" width=161 border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<%End If%>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info_list.asp?intSortId=2"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_news.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info_list.asp?intSortId=7"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_sitenews.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info.asp?method=dev"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_dev.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>forum/forum_list.asp?ForumId=41"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu06c.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info.asp?method=contact"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_contact.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
<tr align=right width=100%>
<td width=100% align=center><a href="<%=GBL_strHomeURL%>info/info.asp?method=help"><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_help.gif" border=0 ></a></td></tr>
<tr align=right width=100%>
<td height=5 width=100% align=center><img height=5
src="<%=GBL_strHomeURL%>images/new/ico/menu_line.gif"
width=161></td></tr>
</tbody>
</table>
<%
End Function
'===================================================================
'= Function : ShowColumnCate2()
'= Time : Created At July,7,2004
'= Input : None
'= Return :
'= Description :
'===================================================================
Function ShowColumnCate2()
%>
<table cellspacing=0 cellpadding=0 width=100% border=0 align=right>
<tbody>
</tbody>
</table>
<%
End Function
'===================================================================
'= Function : ShowForumColumn()
'= Time : Created At 2006-6-28
'= Input : None
'= Return :
'= Description : 论坛栏目首页调用
'===================================================================
Function ShowForumColumn()
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT FORUM_NAME,FORUM_DES,FORUM_ID,FORUM_ICO FROM CLASS_FORUM WHERE FORUM_HOME_SHOW=0 ORDER BY FORUM_ORDER DESC"
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get meet view at home","ES_ERR")
If GBL_objPubDB.intRSNum = 0 Then
Response.Write "<p align=center>·目前没有论坛栏目</p>"
Exit Function
Else
%>
<table>
<%While Not GBL_objPubDB.objPubRS.Eof %>
<tr>
<td><table height=80 cellspacing=0 cellpadding=0 width=193 background="./images/new/img_contents_002.gif" border=0>
<tbody>
<tr>
<td valign=top><table height=80 cellspacing=0 cellpadding=0 width=193 border=0>
<tbody>
<tr>
<td valign=center><table cellspacing=0 cellpadding=0 width=193 border=0>
<tbody>
<tr>
<td width=81 rowspan=2><div align=center><a href="forum/forum_list.asp?ForumId=<%=GBL_objPubDB.objPubRS("FORUM_ID")%>" ><img alt="进入本论坛栏目" height=55 src="./images/forum/<%=GBL_objPubDB.objPubRS("FORUM_ICO")%>" width=58 border="0"></a></div></td>
<td valign=top width=112></td>
</tr>
<tr>
<td valign=top width=112><a title="进入本论坛栏目" href="forum/forum_list.asp?ForumId=<%=GBL_objPubDB.objPubRS("FORUM_ID")%>"><%=GBL_objPubDB.objPubRS("FORUM_NAME")%> <br>
<%=GBL_objPubDB.objPubRS("FORUM_DES")%>
...</a></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
<td ></td>
<%
GBL_objPubDB.objPubRS.MoveNext
If Not GBL_objPubDB.objPubRS.Eof Then
%>
<td width=196><table height=80 cellspacing=0 cellpadding=0 width=193 align=right background="./images/new/img_contents_002.gif" border=0>
<tbody>
<tr>
<td valign=top><table height=80 cellspacing=0 cellpadding=0 width=193 border=0>
<tbody>
<tr>
<td valign=center><table cellspacing=0 cellpadding=0 width=193 border=0>
<tbody>
<tr>
<td width=81 rowspan=2><div align=center><a href=""><a title="进入本论坛栏目" href="forum/forum_list.asp?ForumId=<%=GBL_objPubDB.objPubRS("FORUM_ID")%>"><img alt="进入本论坛栏目" height=55 src="./images/forum/<%=GBL_objPubDB.objPubRS("FORUM_ICO")%>" width=58 border=0></a></a></div></td>
<td valign=top width=112></td>
</tr>
<tr>
<td valign=top width=112><a title="进入本论坛栏目" href="forum/forum_list.asp?ForumId=<%=GBL_objPubDB.objPubRS("FORUM_ID")%>"><%=GBL_objPubDB.objPubRS("FORUM_NAME")%> <br>
<%=GBL_objPubDB.objPubRS("FORUM_DES")%>
...</a></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
<%
Else
Response.Write "<td></td>"
End If
%>
</tr>
<%
If Not GBL_objPubDB.objPubRS.Eof Then GBL_objPubDB.objPubRS.MoveNext
Wend
End If
End Function
'=====================================================================
'= Function : ShowColumnWebInfoCompact()
'= Time : Created At 9,18,2003
'= Input : None
'= Output : None
'= Return :
'= Description : (small column)
'=====================================================================
Function ShowColumnWebInfoCompact()
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=99% >"
Dim strTmp : strTmp = ""
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> "
Next
If strTemp = "" Then
strTemp = "暂无"
End If
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 论坛总版主：" & strTemp & "</li></td></tr>"
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 成员:" & intUser & "," & strTmp & " 今日" & intNewUser & "名</li></td></tr>"
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 帖子:" & intTopics & ",最新:" & intNewTopics & "</li></td></tr>"
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 回复:" & intReply & ",最新:" & intNewReply & "</li></td></tr>"
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 留言:" & intBoard & ",最新:" & intNewBoard & "</li></td></tr>"
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 相片:" & intPhoto & ",最新:" & intNewPhoto & "</li></td></tr>"
Response.Write "</table>"
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -