<%
dim showlmmc,showlbmc
if iLb<>"" then
set rs100=conn.execute("SELECT lmmc,lbmc FROM lblm WHERE id="&iLb)
showlmmc=rs100("lmmc")
showlbmc=rs100("lbmc")
else
set rs100=conn.execute("SELECT lmmc FROM T_LM WHERE id="&iLm)
showlmmc=rs100("lmmc")
end if
rs100.close()
set rs100=nothing
%>
<%
set rs0=server.CreateObject("ADODB.RECORDSET")
rs0.open sqlLb,conn,1,1
if rs0.eof then
%>
| 暂无分栏 |
<%
else
do while not rs0.eof
dim lb_id,linkUrl
lb_id=rs0("id")
linkUrl="ArticleList.asp?img="&imgUrl&"&lbid="&lb_id
Select Case lb_id
Case 23,25,28,29,30,31,32,33
linkUrl="ArticleImgList.asp?img="&imgUrl&"&lbid="&lb_id
End Select
%>
|
|
<%
rs0.movenext
loop
end if
rs0.close
set rs0=nothing
%>
|
 |
|
<%
if iLb<>"" then
response.Write showlbmc
else
response.Write showlmmc
end if
%>
|
首页 >
<%
if iLb<>"" then
response.Write showlmmc&" > "&showlbmc
else
response.Write showlmmc
end if
%>
|
|
|
<%
dim iCount,iPageSize,page,maxpage
iCount=0
iPageSize=0
page=0
maxpage=0
set rs1=server.CreateObject("adodb.recordset")
rs1.open ssql,conn,1,1
if rs1.eof then
%>
| 对不起，暂无相符记录！ |
<%
else
%>
<%
rs1.PageSize =9'每页记录条数
iCount=rs1.RecordCount '记录总数
iPageSize=rs1.PageSize
maxpage=rs1.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs1.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
for i=1 to rs1.pagesize
dim pic_url
pic_url="WebFiles/"&rs1("PicUrl")
%>
<%
rs1.movenext
if rs1.eof then exit for
next
end if
%>
|
| |
|
<%
if iCount>iPageSize then
call PageControl(iCount,maxpage,page,"border=0 align=center"," ")
end if
rs1.close()
set rs1=nothing
%>
|
|
|
|
|
