?? txbook.asp
字號:
<!--插入html頭部分以及數據庫接口-->
<!--#include file="in_conn.asp"-->
<body>
<!--插入網站置頂-->
<% if u_name="" then
Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<%
'判斷用戶權限
IF u_power=0 THEN
Response.Redirect "resp.asp?cmd=id_wait"
END IF
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="28%" height="100%">
<a href="index.asp">[首頁]</a>-<a href="txbook.asp">[通 訊 簿]</a>
</td>
<td align="right">
<a href="mbseek.asp"><img src="img/seek.gif" border="0" hspace="0" vspace="0" align="absmiddle"></a>
</td>
</tr></table>
<%
'分頁的統計
dim rdcount,pgcount,pgsize
pgsize=DEF_pg_txb
rdcount=conn.Execute("SELECT COUNT(ID) FROM tblmates",0,1)(0)
pgcount=Abs(Int(rdcount/pgsize*(-1)))
'獲取傳值
dim curpage
curpage=Request.QueryString("page")
IF isNumeric(Request.QueryString("page")) THEN
curpage=CLng(curpage)
if curpage<1 OR curpage>pgcount then
curpage=1
end if
ELSE
curpage=1
END IF
%>
<%
dim colnum,colmid,pg_i
'定義顯示快捷頁個數
colnum=5
colmid=colnum\2
'生成快捷頁的函數
Sub PageQuick()
%>
<% if rdcount>0 then %>
<a href="txbook.asp?page=1"><font face="webdings" title="頭頁">9</font></a>
<% else %>
<font face="webdings" title="頭頁">9</font>
<% end if %>
<% If curpage>1 Then %>
<a href="txbook.asp?page=<% =curpage-1 %>"><font face="webdings" title="上頁">7</font></a>
<% Else %>
<font face="webdings" title="上頁">7</font>
<% End if %>
<%
'前省略號的使用
if pgcount>colnum AND curpage-colmid>1 then
Response.Write "…"
end if
IF pgcount<colnum THEN
for pg_i=1 to pgcount
if pg_i<>curpage then
response.write "<a href=txbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
else
response.Write "["&pg_i&"]"
end if
next
ELSEIF curpage-1>=colmid AND pgcount-curpage>=colmid THEN
for pg_i=curpage-colmid to curpage+colmid
if pg_i<>curpage then
response.write "<a href=txbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
else
response.Write "["&pg_i&"]"
end if
next
ELSEIF curpage-1>=colmid AND pgcount-curpage<colmid THEN
for pg_i=pgcount-colnum+1 to pgcount
if pg_i<>curpage then
response.write "<a href=txbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
else
response.Write "["&pg_i&"]"
end if
next
ELSE
for pg_i=1 to 5
if pg_i<>curpage then
response.write "<a href=txbook.asp?"&"page="&pg_i&">["&pg_i&"]</a>"
else
response.Write "["&pg_i&"]"
end if
next
END IF
'后省略號的使用
if pgcount>colnum AND curpage+colmid<pgcount then
Response.Write "…"
end if
%>
<% If curpage<pgcount Then %>
<a href="txbook.asp?page=<% =curpage+1 %>"><font face="webdings" title="下頁">8</font></a>
<% Else %>
<font face="webdings" title="下頁">8</font>
<% End if %>
<% if rdcount>0 then %>
<a href="txbook.asp?page=<% =pgcount %>"><font face="webdings" title="尾頁">:</font></a>
<% else %>
<font face="webdings" title="尾頁">:</font>
<% end if %>
通訊錄共有<font color="<% =cohover %>"><% =rdcount %></font>位同學 分為<font color="<% =cohover %>"><% =pgcount %></font>頁 每頁<font color="<% =cohover %>"><% =pgsize %></font>位 第<font color="<% =cohover %>"><% =curpage %></font>頁
<%
End Sub
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="background-color:<% =bg3 %>;">
<tr>
<td width="120" height="100%">
<a href="txwait.asp" class="ccjh">[待審表]</a>
<a href="txfob.asp" class="ccjh">[封禁表]</a>
</td>
<td align="right">
<% call PageQuick() %>
</td>
</tr>
</table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0">
<tr><td width="100%" height="25">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="rdbar">
<tr>
<th width="140" height="100%" class="rdr">
名 字
</th>
<th width="110" class="rdr" style="background:<% =bg1 %>">
<img src="img/icn_qq.gif" border="0" align="absmiddle">ＱＱ號
</th>
<th width="120" class="rdr">
<img src="img/icn_mob.gif" border="0" align="absmiddle">手 機
</th>
<th width="120" class="rdr" style="background:<% =bg1 %>">
<img src="img/icn_sch.gif" border="0" align="absmiddle">單位／學校
</th>
<th width="90" class="rdr">
加入日期
</th>
<th style="background:<% =bg1 %>">
最近登錄
</th>
</tr>
</table>
</td></tr>
<%
IF rdcount<1 THEN
%>
<tr><th width="100%" class="rdkuang"><font class="ft1">抱歉，[通 訊 簿]還沒有任何成員！</font></th></tr>
<%
ELSE
sqlstr="SELECT ID,name,sex,power,regdate,lastlog,qq,mobile,nowdo FROM tblmates ORDER BY power DESC,ID"
rs.open sqlstr,conn,1,1
'給分頁所需的中間變量賦值
rs.PageSize=pgsize
'當前頁轉到指定的頁碼
rs.AbsolutePage=curpage
'開始讀取數據
dim icn_sex,aqq,qmob,ado,await
FOR i=1 to pgsize
If rs.eof Then
EXIT FOR
End If
'判斷身份或者性別
IF rs("power")>1 THEN
icn_sex="img/icn_adm1.gif"
ELSEIF rs("sex")=True THEN
icn_sex="img/icn_gg.gif"
ELSE
icn_sex="img/icn_mm.gif"
END IF
'總管判斷
IF rs("name")=DEF_sysadm THEN
icn_sex="img/icn_admsys.gif"
END IF
if rs("power")=0 then
await="<br>[身份待審]"
elseif rs("power")=-1 then
await="<br>[封禁之中]"
else
await=""
end if
if rs("qq")="" then
aqq="無"
else
aqq="<font class='ft1'>"&unhtml(rs("qq"))&"</font>"
end if
if rs("mobile")="" then
amob="無"
else
amob="<font color='"&colight&"'>"&unhtml(rs("mobile"))&"</font>"
end if
if rs("nowdo")="" then
ado="無"
else
ado="<font color='#D2691E'>"&unhtml(rs("nowdo"))&"</font>"
end if
%>
<tr><td width="100%" height="42">
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0" class="rde">
<tr>
<td align="center" width="140" height="100%" class="rdr">
<img src="<% =icn_sex %>" border="0" align="absmiddle">
<a href="viewinfo.asp?id=<% =rs("ID") %>" title="點擊查看該同學詳細資料"><% =rs("name") %></a><% =await %>
</td>
<td align="center" width="110" class="rdr" style="background:<% =bg3 %>">
<% =aqq %>
</td>
<td align="center" width="120" class="rdr">
<% =amob %>
</td>
<td align="center" width="120" class="rdr" style="background:<% =bg3 %>">
<% =ado %>
</td>
<td align="center" width="90" class="rdr">
<% =FormatDateTime(rs("regdate"),2) %>
</td>
<td align="center" style="background:<% =bg3 %>">
<% =FormatDateTime(rs("lastlog"),2) %><br><% =FormatDateTime(rs("lastlog"),4) %>
</td>
</tr>
</table>
</td></tr>
<%
rs.MoveNext
Next
rs.close
END IF
%>
</table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="background-color:<% =bg3 %>;">
<tr>
<td width="120" height="100%">
</td>
<td align="right">
<% call PageQuick() %>
</td>
</tr>
</table>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="background-color:<% =bg2 %>;">
<tr>
<td align="center" width="100%" height="100%">
<img src="img/icn_admsys.gif" align="absmiddle" vspace="0" hspace="0" border="0"> 班級總管
｜
<img src="img/icn_adm1.gif" align="absmiddle" vspace="0" hspace="0" border="0"> 班級管理員
</td>
</tr>
</table>
<!--插入在線統計-->
<!--#include file="in_online.asp"-->
<!--插入網站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -