Question

div+css+asp======================？？？？？？？？？？？？？？？

<ul id="pic_ul1" class="pic_ul">
<!--#include file="manager/Index/Pager/Page.Top.asp" -->
<%
if NOT(rs.EOF or rs.BOF) then
ProdData=rs("ProdData")
ProdID=Cstr(rs("ID"))
%>
<li><a hidefocus="hidefocus" target="_blank" href="<% =rs("Bimg") %>"><img id="png" src="<% =rs("Simg") %>" alt="<% =rs("ProdName") %>" /></a></li>
<%
PageLineNumber=PageLineNumber+1
rs.MoveNext
end if
%>
<%
if NOT(rs.EOF or rs.BOF) then
ProdData=rs("ProdData")
ProdID=Cstr(rs("ID"))
%>
<li><a hidefocus="hidefocus" target="_blank" href="<% =rs("Bimg") %>"><img id="png" src="<% =rs("Simg") %>" alt="<% =rs("ProdName") %>" /></a></li>
<%
PageLineNumber=PageLineNumber+1
rs.MoveNext
end if
%>
<%
if NOT(rs.EOF or rs.BOF) then
ProdData=rs("ProdData")
ProdID=Cstr(rs("ID"))
%>
<li><a hidefocus="hidefocus" target="_blank" href="<% =rs("Bimg") %>"><img id="png" src="<% =rs("Simg") %>" alt="<% =rs("ProdName") %>" /></a></li>
<% end if %>
<!--#include file="manager/Index/Pager/Page.Middle.asp" -->
</ul>

Answer 1

<%
OpenDataBase 1
Dim CtlgID,ProdData,aCtlgID,ProdID
CtlgID=Request("ID")
if CtlgID="" then CtlgID=2
sql="select * from Honor where UseLang like '%,中文版本,%' order by AddTime desc"
rs.Open sql,conn,1,1
Const MyPage=5'定义一个显示的页面数
Const MyRecord=8'定义一次性显示的记录数
Const MyLine=""'定义一个替补空缺的代码
Dim PageLineNumber
PageLineNumber=1'定义在分页内获取当前行的变量
%>
<!--#include file="manager/Index/Pager/Page.Top.asp" -->
<%
if NOT(rs.EOF or rs.BOF) then
ProdData=rs("ProdData")
ProdID=Cstr(rs("ID"))
%>

<%
PageLineNumber=PageLineNumber+1=PageLineNumber+1
rs.MoveNext
end if
%>

<%
if NOT(rs.EOF or rs.BOF) then
ProdData=rs("ProdData")
ProdID=Cstr(rs("ID"))
%>

<% end if %>
<!--#include file="manager/Index/Pager/Page.Middle.asp" -->
<!--#include file="manager/Index/Pager/English/ListPage.Style1.asp" -->

asp！