| |
<%
idd=trim(request.QueryString("id"))
dim i,intPage,page,pre,last,filepath
set rsp = server.createobject("adodb.recordset")
productsSQL= "select id,Newtitle,Putman,addtime from News where TreeID like '%"&idd&"%' and Putout=true order by id desc"
'rsp.open productsSQL,conn,1,1
rsp.PageSize = 50 '这里设定每页显示的记录数
rsp.CursorLocation = 3
rsp.Open productsSQL,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page)>=rsp.PageCount then
intpage = rsp.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rsp.eof then
rsp.AbsolutePage = intpage
end if
%>
<%
if rsp.bof then Response.write"
您还没有添加新闻内容！
"
%>
<%
for i=1 to rsp.PageSize
if rsp.EOF or rsp.BOF then exit for
%>
<%
idd=trim(request.QueryString("id"))
if idd<>"" then
set rsNt = server.createobject("adodb.recordset")
rsNt.source = "select * from NewTree where ID="&idd&""
rsNt.open rsNt.source,conn,1,3
Pidd=rsNt("Pid")
if Pidd=0 then
response.write" [ "&rsNt("content")&" ]"
else
set rsNt0 = server.createobject("adodb.recordset")
rsNt0.source = "select * from NewTree where ID="&Pidd&""
rsNt0.open rsNt0.source,conn,1,3
response.write" [ "&rsNt0("content")&" - "&rsNt("content")&" ]"
rsNt0.Close
set rsNt0=nothing
end if
rsNt.Close
set rsNt=nothing
end if
%>
" target="_parent">
<%=rsp("Newtitle")%> |
| ------------------- |
<%
rsp.movenext
next
%>
|
| |
|
|
|
 |
| |
|
本站关键词：取样冷却器|筒形冷却器 |
| |
|
|
