e_pic.asp

源码源源码 源码 源码码源 码源 码源 码源 码

<!--#include file="e_top.asp"-->


<%
'==================================================
'过程名：showother
'作  用：显示图片页面图片列表
'参  数：无
'==================================================
sub showother()
show_other="<table cellpadding=0 cellspacing=0 border='1' bordercolor='"&tdcolor&"'  style='border-collapse:collapse;  width:100%' align='center'>"
show_other=show_other&"	<tr >"
show_other=show_other&"		<td width='100%' height='25' >&nbsp;您现在的位置：<a href='myweb.asp?userid="&userid&"'>网站首页</a>&gt;&gt;<a href='e_pic.asp?userid="&userid&"'>相册</a></td>"
show_other=show_other&"	</tr>"
set rs=server.CreateObject("adodb.recordset")
sql="select id,picname,picwrite,picurl,picdate,userid from [myweb_pic] where userid="&userid&" order by ID desc"
rs.open sql,conn,1,1
if rs.bof then
show_other=show_other&"	<tr >"
show_other=show_other&"		<td width='100%' height='25' >"
show_other=show_other&"		<p align='center'>暂时没有资料</td>"
show_other=show_other&"	</tr>"
else  
show_other=show_other&"	<tr >"
show_other=show_other&"		<td width='100%' height='25' >"
show_other=show_other&"		<p align='center'>"
		
show_other=show_other&"		      <table border='0' cellpadding='0'  width='100%'>"
show_other=show_other&"          <tr>"
rs.pagesize=16
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof  

show_other=show_other&"            <td  align='center' >"
            
show_other=show_other&"            <table border='0' width='25%' cellspacing='0' cellpadding='0'>"
show_other=show_other&"				<tr>"
show_other=show_other&"					<td height='100'>"
show_other=show_other&"					<p align='center'><a href=e_showpic.asp?picid="&rs("id")&"&userid="&rs("userid")&" target='_blank'><img src="&rs("picurl")&" border='0' width='120' height='100' class='pic' ></a></td>"
show_other=show_other&"				</tr>"
show_other=show_other&"				<tr>"
show_other=show_other&"					<td height='20'>"
show_other=show_other&"					<p align='center'>"&left(rs("picname"),10)&"</td>"
show_other=show_other&"				</tr>"
show_other=show_other&"			</table>"
            
show_other=show_other&"           </td>"

ka=ka+1                                       
if ka=4 then                                       
ka=0                                       
show_other=show_other&"</tr><tr>"                                       
end if                                       
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop   
end if                                            
show_other=show_other&"            </tr>"
show_other=show_other&"          </table>"
		
show_other=show_other&"		　</td>"
show_other=show_other&"	</tr>"
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' ><form name='form1' method='post' action='e_pic.asp?userid="&userid&"'>"
show_other=show_other&"<p align='center'>共有:<font color=red>"&rs.recordcount&"</font>图片 &nbsp;&nbsp;<a href=e_pic.asp?userid="&userid&">首页</a>&nbsp; "   
show_other=show_other&"<a href=e_pic.asp?page="&currentpage-1&"&userid="&userid&"> 上一页</a>&nbsp; <a href=e_pic.asp?page="&currentpage+1&"&userid="&userid&">  "  
show_other=show_other&"下一页</a>&nbsp;  <a href=e_pic.asp?page="&rs.pagecount&"&userid="&userid&">尾页</a>&nbsp;   " 
show_other=show_other&"&nbsp;&nbsp;&nbsp;转到   " 
show_other=show_other&"<input name='page' type='text' id='page' value='"&currentpage&"' size='4'> "
show_other=show_other&"&nbsp; <input type='submit' name='Submit' value='GO'> <input name='search' type='hidden' id='search' value='"&search&"'> "   
show_other=show_other&"<input name='key' type='hidden' id='key' value='"&key&"'>"		
show_other=show_other&"			　</td>"
show_other=show_other&"		</tr></form>" 
show_other=show_other&"	</table>"
rs.close
end sub
%>