?? user_face.asp
字號:
<!-- #include file="include/con_user.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<%
'**********************************************************
' 騰龍在線企業商務通用網站系統 甘肅.景泰.伊心
' Email: wwj@5533239.com , QQ:2533239
' Web: http://www.5533239.com , http://www.5533239.cn
' Copyright (C) 2007.07.01 5533239.com All Rights Reserved.
' 騰龍在線(www.5533239.com),中國中小企業電子商務服務網。
'**********************************************************
dim nummer,nums,rssum,page,viewpage,thepages,pageurl
pageurl="?"
nummer=0
nums=nummer
tit="用戶頭像"
call web_head(0,0,3,0,0)
'----------------------------中間 開始----------------------------
call user_face()
response.write ukong
'----------------------------中間 結束----------------------------
call web_end(0,0)
sub user_face()
dim fc,j,fnum,cnum,rnum,tt,nnum
cnum=5
rnum=3
fc=0
tt=joekoe_cms.own_http()&joekoe_cms.web_dir
fnum=dim_num(5)+1
nummer=cnum*rnum
nums=nummer
rssum=fnum
call format_pagecute()
if int(viewpage)>1 then fc=(viewpage-1)*nummer
%>
<table border=0 cellpadding=0 cellspacing=4 align=center>
<tr align=center>
<td>本站共有 <font class=red><%response.write rssum%></font> 個頭像</td>
<td width=10></td>
<td>頁次:<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font></td>
<td width=10></td>
<td>分頁:<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td>
</tr>
</table>
<table border=0 width='98%' cellpadding=0 cellspacing=8 align=center>
<%
for j=1 to rnum
response.write vbcrlf&"<tr align=center>"
for i=1 to cnum
nnum=cnum*(j-1)+i-1+fc
if nnum>=rssum then exit for
%>
<td>
<table border=0>
<tr><td align=center><%response.write pic_fk(tt&"images/face/"&nnum&".gif",3,"")%></td></tr>
<tr><td align=center><b><%response.write nnum%></b></td></tr>
</table>
</td>
<%
next
response.write vbcrlf&"</tr>"
next
%>
</table>
<%
end sub
'**********************************************************
' 騰龍在線企業商務通用網站系統 甘肅.景泰.伊心
' Email: wwj@5533239.com , QQ:2533239
' Web: http://www.5533239.com , http://www.5533239.cn
' Copyright (C) 2007.07.01 5533239.com All Rights Reserved.
' 騰龍在線(www.5533239.com),中國中小企業電子商務服務網。
'**********************************************************
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -