首页 >精彩演出
精彩演出
<%sub titlen(i)
tlen=rs("title")
if len(tlen)>i then
tlen=left(tlen,i)&"..."
else
tlen=tlen
end if
end sub%>
<%
Const PAGESIZE=5
Const PARTSIZE=5
dim tlen
tlen=""
Aboardid=trim(request("boardid"))
if request("boardid")="" then
response.write"
您所连接的版面不存在！
" else set rs1 = server.CreateObject ("Adodb.recordset") sql="select classid,boardid,boardname from board where boardid="& request("boardid") rs1.open sql,conn,1,1 if rs1.eof or rs1.bof then response.write"
您所连接的版面不存在！
" else %> <% set rs2 = server.CreateObject ("Adodb.recordset") sql2="select classid,classname from class where classid="& rs1("classid") rs2.open sql2,conn,1,1 %>
<%end if
end if
rs1.close
set rs1=nothing
%>
您所连接的版面不存在！
" else set rs1 = server.CreateObject ("Adodb.recordset") sql="select classid,boardid,boardname from board where boardid="& request("boardid") rs1.open sql,conn,1,1 if rs1.eof or rs1.bof then response.write"
您所连接的版面不存在！
" else %> <% set rs2 = server.CreateObject ("Adodb.recordset") sql2="select classid,classname from class where classid="& rs1("classid") rs2.open sql2,conn,1,1 %>
-
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
sql="select id,title,boardid,fpath,fname,addtime,ifshow,fromsite,writer,topimg,articleintro from article where ifshow=1 and boardid="&request("boardid")&" order by id desc"
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
if RS.EOF then
Response.Write("
/<%=rs("fname")%> target=_blank title=<%=rs("title")%>><%=tlen%>
日期：<%=temptime%>来源： <% if rs("fromsite")<>"" then%><%=rs("fromsite")%><%end if%><%=rs("articleintro")%>
/<%=rs("fname")%> target=_blank>alt=<%=tlen%> />
<%
RS.MoveNext()%>
<%
next
end if
%>
<%if pagecount > 0 then
response.write("")
response.write("页次：" & page & "/" & pagecount & " 每页 " & pagesize & " 条 共" & recordcount & " 条 分页：")
Spage = page mod PARTSIZE
if page > PARTSIZE then
if Spage = 0 then Spage = PARTSIZE
Spage = page - Spage + 1
else
Spage = 1
end if
Epage = Spage + PARTSIZE - 1
if Epage > pagecount then Epage = pagecount
if page > PARTSIZE then
response.write("[<<]")
end if
for i = Spage to Epage
if i = page then
response.write("[" & i & "]")
else
response.write("[" & i & "]")
end if
next
if Epage < pagecount then
response.write("[>>]")
end if
if Spage <> 1 then response.write("[首页]")
if Epage <> pagecount then response.write("[尾页]")
response.write("")
end if
rs.close
set rs=nothing
%>