📄 index1.asp
字号:
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 总相片共" & intPhoto & "张</li></td></tr>"
Response.Write "<tr><td align=left style='padding-left:10px'><li>" & strTmp & " 今日最新" & intNewPhoto & "张</li></td></tr>"
Response.Write "</table>"
End Function
'=====================================================================
'= Function : ShowColumnUserView()
'= Time : Created At Apr,24,2004
'= Input : None
'= Output : None
'= Return :
'= Description :
'===================================================================
Function ShowColumnUserView()
Dim i
Dim intUserView
GBL_intUserView = 5
intUserView = GBL_intUserView
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT TOP " & intUserView & " USER_ID,USER_REALNAME,USER_LOGIN_COUNT FROM CLASS_USER ORDER BY USER_LOGIN_COUNT DESC,USER_ID DESC "
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get user view","ES_ERR")
If GBL_objPubDB.intRSNum = 0 Then
Response.Write "<p align=center>·目前没有校友记录</p>"
Exit Function
End If
%>
<table width="100%" border="0">
<%For i = 1 To GBL_objPubDB.intRSNum %> <tr width=100%> <td width=90%>·<a href='<%=GBL_strHomeURL%>address/address_person.asp?action=ShowPerAddress&intUserId=<%=GBL_objPubDB.objPubRS("USER_ID")%>' target=_blank title='<%=GBL_objPubDB.objPubRS("USER_REALNAME")%>的详细信息'><% =GBL_objPubDB.objPubRS("USER_REALNAME")
%></a></td><td width=*><%=GBL_objPubDB.objPubRS("USER_LOGIN_COUNT")%></td></tr>
<%
GBL_objPubDB.objPubRS.MoveNext
Next
%>
</table>
<%
End Function
'=====================================================================
'= Function : ShowColumnMeetView()
'= Time : Created At Apr,24,2004
'= Input : None
'= Output : None
'= Return :
'= Description :
'===================================================================
Function ShowColumnMeetView()
Dim i
Dim intMeetView
intMeetView = GBL_intMeetView
GBL_objPubDB.Clear()
GBL_objPubDB.AllSQL = "SELECT TOP " & intMeetView & " MEET_ID,MEET_STATUS,MEET_TITLE FROM CLASS_MEET ORDER BY MEET_STATUS ASC,MEET_ID 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
End If
%>
<table width="100%" border="0" cellspacing="2" style="border-collapse: collapse" background="<%=GBL_strHomeURL%>images/home/newmeet_bg.gif">
<%For i = 1 To GBL_objPubDB.intRSNum %> <tr width=100%> <td width=100%>· <a href='<%=GBL_strHomeURL%>meet/meet_detail.asp?intMeetId=<%=GBL_objPubDB.objPubRS("MEET_ID")%>' target=_blank title='<%=GBL_objPubDB.objPubRS("MEET_TITLE")%>的详细信息'>
<font color=red><%=left(GBL_objPubDB.objPubRS("MEET_TITLE"),12)%>..</font>
</a>
<%
If GBL_objPubDB.objPubRS("MEET_STATUS") = 0 Then
Response.Write "<font color=99999>(报名中)</font>"
Else
Response.Write "<font color=99999>(已结束)</font>"
End If
%></td></tr>
<%
GBL_objPubDB.objPubRS.MoveNext
Next
%>
</table>
<%
End Function
'=====================================================================
'= Function : ShowColumnSearch()
'= Time : Created At Feb,21,2004
'= Input : None
'= Output : None
'= Return :
'= Description : classmate search
'=====================================================================
Function ShowColumnSearch()
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<form name=form1 action="<% =GBL_strHomeURL %>address/address_search_result.asp" method=post >
<tr>
<td width="61%" align="center" >
<input type="text" name="iptRealName" size="10" maxlength=50 >
<input type="hidden" name="selPrecision" value=1>
</td>
<td width="39%">
<input type="image" border="0" name="btnSearch" src="<% =GBL_strHomeURL%>images/new/ico/searchs_ico.gif" class="form_radio" align=absmiddle >
</td>
</tr>
</form>
<tr>
<td align="center" colspan=2>
<a href='address/address_search_form.asp'>>> 高级搜索</a>
</td>
</tr>
</table>
<%
End Function
'=====================================================================
'= Function : ShowMasterPhoto()
'= Time : Created At Jan,03,2004
'= Input :
'= Output : None
'= Return :
'= Description : show link
'=====================================================================
Function ShowMasterPhoto()
End Function
'=====================================================================
'= Function : ShowColumnLink()
'= Time : Created At Jan,03,2004
'= Input :
'= Output : None
'= Return :
'= Description : show link
'=====================================================================
Function ShowColumnLink()
If CheckObjInstalled("Scripting.FileSystemObject","") Then
%>
<!-- #include file = "html/make_link.html" -->
<%
Exit Function
Else
Response.Write ShowColumnCode
End If
End Function
'=====================================================================
'= Function : ShowColumnOnline()
'= Time : Created At Nov,19,2003
'= Input : None
'= Output : None
'= Return :
'= Description : show now online user(small column)
'=====================================================================
Function ShowColumnOnline()
Exit Function
Dim clsTable
Dim intOnline '== now online all
Dim intOnlineUser '== now online user
Dim intOnlineGuest '== now online guest
Dim strCssType
strCssType = "CSS_TD_CENTER3"
'== Get now online all
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_ONLINE"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.AddField "ONLINE_ID",""
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get all online","ES_ERR")
intOnline = GBL_objPubDB.intRSNum
'== Get now online guest
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_ONLINE"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.AddField "ONLINE_ID",""
GBL_objPubDB.Where = "ONLINE_USER_AUTHEN=3"
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get online guest","ES_ERR")
intOnlineGuest = GBL_objPubDB.intRSNum
'== Get now online member
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_ONLINE"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.AddField "DISTINCT(ONLINE_USER)",""
GBL_objPubDB.Where = "ONLINE_USER_AUTHEN<>3"
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get online user","ES_ERR")
intOnlineUser = GBL_objPubDB.intRSNum
Set clsTable = New classTable
'== Set table prameters
clsTable.Clear()
clsTable.Border = "0"
clsTable.CellPadding = "2"
clsTable.CellSpacing = "1"
clsTable.Width = "94%"
clsTable.ClassType = ""
clsTable.Align = "center"
clsTable.MakeTable()
clsTable.AddTitleTr strCssType
clsTable.AddTitleTd "", strCssType ,"100%"
clsTable.AddTr ""
clsTable.AddTd "当前在线：" & intOnlineGuest + intOnlineUser & "人",strCssType
clsTable.AddTr ""
clsTable.AddTd "其中访客：" & intOnlineGuest & "人",strCssType
clsTable.AddTr ""
clsTable.AddTd "在线成员：" & intOnlineUser & "人",strCssType
clsTable.AddInfoTr "","BOTTOM"
Dim strHtmlCode : strHtmlCode = "<img src=" & GBL_strHomeURL & "images/down_ico.gif style='CURSOR: hand' onclick=ShowOnlineFrame() name=imgOnline id=imgOnline loaded=no align=absmiddle>"
clsTable.AddInfoTd strHtmlCode & " <span id=spanOnline onclick=ShowOnlineFrame() style='CURSOR: hand'>查看</span>" & "<span onclick=ShowOnlineFrame() style='CURSOR: hand'>当前在线</span>","CSS_TD_CENTER3"
clsTable.AddInfoTrHidden "","trOnline","BOTTOM"
clsTable.AddInfoTdHidden "正在下载中......","tdOnline","CSS_TD_LEFT1"
clsTable.OutPutTable()
Set clsTable = Nothing
Response.Write "<iframe name=frameHidOnline frameborder=0 height=0 width=0 ></iframe>"
End Function
%>
<script language=javascript>
//====================================================================
//= Sub : ShowOnlineFrame()
//= Time : Created At Feb,22,2004
//= Input :
//= Description : show online user by frame mode
//====================================================================
function ShowOnlineFrame()
{
if (EndFlag == 0)
{
alert("网页未下载完成,请稍候...");
return;
}
if (trOnline.style.display != 'block')
{
trOnline.style.display = "block";
document.imgOnline.src = "images/up_ico.gif";
if (document.imgOnline.loaded == "no")
{
document.frames["frameHidOnline"].location.replace("online_frame.asp");
}
}
else
{
trOnline.style.display = "none";
document.imgOnline.src = "images/down_ico.gif";
}
}
</script>
<%
'===================================================================
'= Function : ShowColumnBirthInfo()
'= Time : Created At July,4,2003
'= Input : None
'= Return :
'= Description : show the user that will birth (small column)
'===================================================================
Function ShowColumnBirthInfo()
Dim strHtmlCode
strHtmlCode = ""
'== get the user
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_USER"
If Month(Now()) <> 12 Then
GBL_objPubDB.Where = "(MONTH(USER_BIRTH)=" & Month(Now()) & " AND DAY(USER_BIRTH)>=" & Day(Now()) & ") OR (MONTH(USER_BIRTH)=" & Month(Now()) + 1 & " AND DAY(USER_BIRTH)<=" & Day(Now()) & ") AND USER_AUTHEN <> 8"
Else
GBL_objPubDB.Where = "(MONTH(USER_BIRTH)=" & Month(Now()) & " AND DAY(USER_BIRTH)>=" & Day(Now()) & ") OR (MONTH(USER_BIRTH)=" & 1 & " AND DAY(USER_BIRTH)<=" & Day(Now()) & ") AND USER_AUTHEN <> 8"
End If
'==??? the user class
GBL_objPubDB.Order = "MONTH(USER_BIRTH) ASC,DAY(USER_BIRTH) ASC"
GBL_objPubDB.SQLType = "SELECT"
GBL_objPubDB.AddField "USER_BIRTH,USER_REALNAME,USER_ID",""
strHtmlCode = strHtmlCode & "<table align=center>"
%>
<tr align=right width=100%>
<td width=100% align=center><img alt=""
src="<%=GBL_strHomeURL%>images/new/menu_birth.gif" width=161 border=0 ></td></tr>
<%
strHtmlCode = strHtmlCode & " <tr>"
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get birth member"&GBL_objPubDB.returnsql,"ES_ERR")
If GBL_objPubDB.objPubRS.Eof And GBL_objPubDB.objPubRS.Bof Then
strHtmlCode = strHtmlCode & "<td class='CSS_TD_CENTER3'>最近没有校友过生日</td></tr>"
Else
strHtmlCode = strHtmlCode & "<td class='CSS_TD_CENTER3'>最近有" & GBL_objPubDB.intRSNum & "位校友过生日:</td></tr>"
strHtmlCode = strHtmlCode & "<tr class='CSS_TD_CENTER3'><td class='CSS_TD_CENTER3'>"
strHtmlCode = strHtmlCode &_
"<marquee direction='up' scrollamount='1' scrolldelay=" & GBL_intBirthSpeed & " width=150 height=90>"
'== show user realname and birthday
While Not GBL_objPubDB.objPubRS.Eof
strHtmlCode = strHtmlCode & " <span onclick=window.open('" & GBL_strHomeURL & "address/address_userinfo_pop.asp?intUserId=" & GBL_objPubDB.objPubRS("USER_ID") & "','','left=5,top=5,width=450,height=410,scrollbars=yes,status=yes'); title='查看详细' style='cursor:hand;' align=center>" & "<img src='" & GBL_strHomeURL & "images/birth_ico.gif' align=absmiddle> " & GBL_objPubDB.objPubRS("USER_REALNAME") & "(" & GBL_objPubDB.objPubRS("USER_BIRTH") & ")</span>"
strHtmlCode = strHtmlCode & "<br>"
GBL_objPubDB.objPubRS.MoveNext
Wend
strHtmlCode = strHtmlCode & "</marquee>"
strHtmlCode = strHtmlCode & "</td></tr>"
End If
strHtmlCode = strHtmlCode & "</table>"
Response.Write strHtmlCode
End Function
'===================================================================
'= Function : ShowColumnInfo()
'= Time : Created At 2006-7-9
'= Input : None
'= Return :
'= Description : show the user that will birth (small column)
'===================================================================
Function ShowColumnInfo()
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 background=./images/new/img_left.gif>
<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><img alt=""
src="<%=GBL_strHomeURL%>images/new/ico/menu_info.gif" border=0 ></td></tr>
<tr align=right width=100%>
<td height=5></td></tr>
<%
While Not GBL_objPubDB.objPubRS.Eof
%>
<tr><td><li><a title="<%=GBL_objPubDB.objPubRS("SORT_DESC")%>" href="info/info_list.asp?intSortId=<%=GBL_objPubDB.objPubRS("SORT_ID")%>"><%=GBL_objPubDB.objPubRS("SORT_NAME")%></a></li></td></tr>
<tr align=right width=100%>
<td height=5></td></tr>
<%
GBL_objPubDB.objPubRS.MoveNext
Wend
If Trim(Application(GBL_strCookieURL & "APP_strListID")) <> "" And Application(GBL_strCookieURL & "APP_strOpenList") = "0" Then
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -