http://www.wwqun.com/m/Product.asp
Request effect like computer version of each picture topped with a click to view layer, like the image below
Attached show the entire source code of the page, a great god, please help see,
<%
Id=makeclng (Request (" id "))
PLink="Product. Asp? Id="& amp; Id&" "
If id<> 0 Then
The Set oRs=oConn. Execute (" Select * From PictureClass Where every "& amp; Id)
If oRs. Eof Then
Id=0
WebTitle="item list"
The else
Ckey1=ors (" ckey1 ")
Ckey2=ors (" ckey2 ")
Ckey3=ors (" ckey3 ")
WebTitle=ors (" ClassName ")
End the If
ORs. Close
The else
Ckey1=""
Ckey2=""
Ckey3=""
WebTitle="latest code"
End the If
% & gt;
<meta HTTP - equiv="content-type" Content="text/HTML. Charset=utf-8 "/& gt;
<meta HTTP - equiv="cache-control" content="Max - age=1700" & gt;
<meta name="viewport" content="user - scalable=no, width=device - width" & gt;
<meta name="MobileOptimized" content="320" & gt;
<meta name="keywords" content="& lt; % %=ckey2 & gt; , & lt; % %=W_WebSiteKeyword & gt;"/>
<meta name="description" content="& lt; % if ckey3 & lt; & gt;" "Then % & gt; <% %=ckey3 & gt; <% % the else & gt; <% %=W_WebSiteIntr & gt; <% end if % & gt;"/>
<body>
<%=initAllClass (getParent (id, 3)) % & gt;
<%
Dim SCHSQL
If id=0 then
The else
SCHSQL=schsql&" And P_PictureClassID in (select every from pictureclass where every "& amp; Id&" The or parentid="& amp; Id&" "
'pLink=pLink&" & Id="& amp; Id&" "
End the if
If keyword="" then
The else
SCHSQL=schsql&" And P_PictureName like '% "& amp; Keyword&" "
% 'PLink=pLink&" & Keyword="& amp; Keyword&" "
End the if
SSql="Select * From Picturedata Where P_Recycle=False" & amp; Schsql&" The 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 the if
Ors. Pagesize=MaxPerPage
If the trim (Request (" Page ")) & lt; & gt;" "Then
If IsNumeric (trim (Request (" Page ")))=False Then
GoError "paging parameters error, please do not attempt to destroy the system,"
End the If
CurrentPage=CLng (request (" Page "))
If CurrentPage> Ors. PageCount then
CurrentPage=ors. PageCount
End the If
The Else
CurrentPage=1
End the If
TotalPut=ors. Recordcount
If CurrentPage<> 1 then
If (currentPage - 1) * MaxPerPage
Dim a bookmark
A bookmark=ors. Bookmark
End the if
End the if
Dim n, k
Then if (totalPut mod MaxPerPage)=0
N=totalPut \ MaxPerPage
The else
N=totalPut \ MaxPerPage + 1
End the if
I=0
Dim nStr
NStr=""
If Not oRs. Eof Then
The Do While Not oRs. Eof and i
If I mod 2=1 then nStr=nStr&"
"
I=I + 1
ORs. MoveNext
Loop
NStr=nStr& InitPage (pLink, totalPut MaxPerPage, currentPage)
The Else
NStr=nStr&"
I=I + 1
ORs. MoveNext
Loop
NStr=nStr& InitPage (pLink, totalPut MaxPerPage, currentPage)
The Else
NStr=nStr&"
" & VbCrlf
End the If
ORs. Close
Response. Write nStr
% & gt;
End the If
ORs. Close
Response. Write nStr
% & gt;