后台自动式完成图片的点击放大和关闭

时间：2013-1-12  编辑：邢台网络公司
<table width="720" border="0" align="center" cellpadding="0" cellspacing="0" class="body12">
<tr><td align="center" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="images/news16.gif">
<%
set rs=server.CreateObject("adodb.recordset")
dl=request("dl")
xfl=request("xfl")
if dl="" then
'//////////////////////////////////////////////////////////
if xfl="" then
rs.open ("select id,bigclassid,smallclassid,title,author,laiyuan,guige,sl,tupian from product where bigclassid<>35 order by id desc"),conn,1,1
else
rs.open ("select id,bigclassid,smallclassid,title,author,laiyuan,guige,sl,tupian from product where shenhe=1 and smallclassid="& xfl &" order by id desc"),conn,1,1
end if
'//////////////////////////////////////////////////////////////
else
if dl=1 then dl=2
rs.open ("select id,bigclassid,smallclassid,title,author,laiyuan,guige,sl,tupian from product where shenhe=1 and bigclassid="& dl &" order by id desc"),conn,1,1
end if
'/////////////////////////////////////////////////////////////
if rs.eof then
response.Write "<tr><td><TABLE cellSpacing=1 cellPadding=3 width=640 align=center border=0 class=UIP id=tab><TR><TD background=images/nnn2.gif height=23></TD></TR><TR><TD height=100 aling=center class=body12><a href=product.asp>数据库中没有您要找的资料！！</a></TD></TR></table></td></tr></table>"
else
rs.pagesize=3
page=cint(request.querystring("page"))
if page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
if not rs.eof then rs.absolutepage=page
%>
<tr>
<%for i=1 to rs.pagesize
author=rs("author")
bigclassids=rs("bigclassid")
smallclassids=rs("smallclassid")
tupian=rs("tupian")
id=rs("id")
%>

<<12345>>>