http://www.wwqun.com/m/Product.asp手机版本地址
要求效果跟电脑版本一样 每个图片上面加一个点击查看的图层。就像下图
附上显示页面的整个源码。请大神帮忙看看。
<!--#include file="head.asp"-->
<%
id=makeclng(Request("id"))
pLink="Product.asp?id="&id&""
If id<>0 Then
Set oRs=oConn.Execute("Select * From PictureClass Where ClassID="&id)
If oRs.Eof Then
id=0
WebTitle="商品列表"
else
ckey1=ors("ckey1")
ckey2=ors("ckey2")
ckey3=ors("ckey3")
WebTitle=ors("ClassName")
End If
oRs.Close
else
ckey1=""
ckey2=""
ckey3=""
WebTitle="最新码"
End If
%>
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Cache-control" content="max-age=1700">
<meta name="viewport" content="user-scalable=no, width=device-width">
<meta name="MobileOptimized" content="320">
<meta name="keywords" content="<%=ckey2%>,<%=W_WebSiteKeyword%>" />
<meta name="description" content="<%if ckey3<>"" then%><%=ckey3%><%else%><%=W_WebSiteIntr%><%end if%>"/>
<title><%=WebTitle%>-<%=siteName%></title>
<link href="style/style.css" type="text/css" rel="stylesheet" />
<script type="text/javascript" src="js/jquery.min.js"></script>
<script type="text/javascript" src="js/common.js"></script>
</head>
<body>
<!--#include file="top.asp"-->
<div class="blank"></div>
<div class="ur_here"><%=PicNavi(id)%></div>
<div class="blank"></div>
<div class="title"><h3><%=WebTitle%></h3>
<div class="type_more">
<div class="type_title">更多</div>
<div class="type_small">
<ul>
<%=initAllClass(getParent(id,3))%>
</ul>
</div>
</div>
</div>
<div class="blank5"></div>
<div class="goodslist">
<%
dim schsql
if id=0 then
else
schsql=schsql&" and P_PictureClassID in (select classid from pictureclass where classid="&id&" or parentid="&id&")"
'pLink=pLink&"&id="&id&""
end if
if keyword="" then
else
schsql=schsql&" and P_PictureName like '%"&keyword&"%'"
pLink=pLink&"&keyword="&keyword&""
end if
sSql="Select * From Picturedata Where P_Recycle=False "&schsql&" Order By P_order desc,P_ID Desc"
oRs.Open sSql,oConn,1,1
Dim PicNum
dim MaxPerPage
dim totalPut
dim CurrentPage
dim TotalPages
dim i
MaxPerPage=10
if not ors.eof then
ors.MoveFirst
end if
ors.pagesize=MaxPerPage
If trim(Request("Page"))<>"" then
If IsNumeric(trim(Request("Page"))) = False Then
GoError "分页参数错误,请不要试图破坏此系统。"
End If
CurrentPage= CLng(request("Page"))
If CurrentPage> ors.PageCount then
CurrentPage = ors.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=ors.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage<totalPut then
ors.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=ors.bookmark
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
i=0
dim nStr
nStr=""
If Not oRs.Eof Then
Do While Not oRs.Eof and i<maxperpage
nStr=nStr&"<div class=""item""><a href=""View.asp?PicID="&oRs("p_id")&""" title="""&oRs("P_PictureName")&"""><img src="""&oRs("P_PictureUrlS")&""" alt="""&oRs("P_PictureName")&""" /></a><p><a href=""View.asp?PicID="&oRs("p_id")&""" title="""&oRs("P_PictureName")&""">"&oRs("P_PictureName")&"</a></p></div>"&vbCrlf
if i mod 2=1 then nStr=nStr&"<div class=""blank5""></div>"
i=i+1
oRs.MoveNext
Loop
nStr=nStr&initPage(pLink,totalPut,MaxPerPage,currentPage)
Else
nStr=nStr&"<div class=""page"">暂无信息</div>"&vbCrlf
End If
oRs.Close
Response.Write nStr
%>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>