e_showpic.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' colspan='3' >&nbsp;您现在的位置：<a href='default.asp'>网站首页</a>&gt;&gt;<a href='e_pic.asp'>相册</a></td>"
show_other=show_other&"		</tr>"
dim picid
picid=trim(request("picid"))
if picid="" or not isnumeric(picid) then
response.write"参数错误"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select id,picurl,pictimes,picname,userid,content from myweb_pic where id="&picid&"" 
rs.open sql,conn,1,3
rs.update
rs("pictimes")=rs("pictimes")+1
rs.update 
if rs.eof then
response.redirect"e_article.asp?userid="&userid&""
else              
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25'  >"
show_other=show_other&"			<p align='center'>"&rs("picname")&"</td>"
show_other=show_other&"		</tr>"
show_other=show_other&"		<tr >"
show_other=show_other&"			<td width='100%' height='25' colspan='3' ><p align=center><img onmousewheel='return bbimg(this)' src="&rs("picurl")&" border=0 onload=javascript:resizepic(this)'> "		
show_other=show_other&"			　</td>"
show_other=show_other&"		</tr>"
show_other=show_other&"	</table>"
end if
end sub
%>