<%if classid="" then%>产品展示<%else%><%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sdw_ProClass where classid="&classID&" order by classid"
rs.open sql,cn,1,1
do while not rs.eof%><%=rs("classname")%><%
rs.movenext
loop
rs.close %><%end if%>
你当前所在位置:首页 >> <%if classid="" then%>产品展示<%else%><%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sdw_ProClass where classid="&classID&" order by classid"
rs.open sql,cn,1,1
do while not rs.eof%><%=rs("classname")%><%
rs.movenext
loop
rs.close %><%end if%>
<%if ID="" then%><%if classid="" then%><%
dim i,intPage,page,pre,last,filepath
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sdw_Pro where classid>1 order by ordnum,id desc"
rs.PageSize =16
rs.CursorLocation = 3
rs.open sql,cn,1,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) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%><%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
首页 |
<%if pre then%>
上一页 | <%end if%>
<%if last then%>
下一页 | <%end if%>
尾页 | 跳转
页
<%else%><%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sdw_Pro where classid="&classid&" order by ordnum,id desc"
rs.PageSize =16
rs.CursorLocation = 3
rs.open sql,cn,1,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) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%><%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
首页 |
<%if pre then%>
上一页 | <%end if%>
<%if last then%>
下一页 | <%end if%>
尾页 | 跳转
页
<%end if%><%
else
set rspro=server.CreateObject("adodb.recordset")
sql="select * from Sdw_Pro where ID = "&ID
rspro.open sql,cn,1,3
if rspro.eof or rspro.bof then
response.Redirect "index.asp"
else
%>
<%=rspro(1)%>
发布人:苏州智博电子科技有限公司 发布时间:<%=rspro("adddate")%>
<%=rspro("content")%>
<%
id2 = id
exec2 = "SELECT TOP 1 * FROM Sdw_Pro WHERE classid="&classid&" and id > "&id2
set rs2=server.createobject("adodb.recordset")
rs2.open exec2,cn,1,1
response.write ""
if Not rs2.eof then
response.write ""
response.write "上一页"
response.write ""
else
response.write "上一页"
end if
rs2.Close
set exec2=Nothing
%> <%
id1 = id
exec1 = "SELECT TOP 1 * FROM Sdw_Pro WHERE classid="&classid&" and id < "&id1&" ORDER BY id DESC"
set rs1=server.createobject("adodb.recordset")
rs1.open exec1,cn,1,1
response.write ""
if Not rs1.eof then
response.write ""
response.write "下一页"
response.write ""
else
response.write "下一页"
end if
rs1.Close
set exec1=Nothing
%>
<%
rspro.close()
set rspro=nothing
end if
end if
%>