<%
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")
'response.Write lb_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 rs=server.CreateObject("ADODB.RECORDSET")
rs.open ssql,conn,1,1
if rs.eof then
%>
| 对不起，暂无相关记录！ |
<%
else
rs.PageSize =10'每页记录条数
iCount=rs.RecordCount '记录总数
if iCount=1 then
response.Redirect("Article.asp?id="&rs("id"))
end if
iPageSize=rs.PageSize
maxpage=rs.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
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
dim tempID
tempID=(page-1)*iPageSize
for i=1 to rs.pagesize
tempID=tempID+1
%>
|
|
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
| <%
if iCount>iPageSize then
call PageControl(iCount,maxpage,page,"border=0 align=right"," ")
end if
rs.close()
set rs=nothing
%> |
|
|
|
|
