※ 联系我们 >> MORE |
销售中心:
地址:北京市朝阳区酒仙桥甲10号星城国际A座6D
电话:400-618-9522
传真:8610-51662451-8001
E-mail:sales@torch.cc |
|
生产基地:
地址:北京市通州区马驹桥镇景盛南四街15号联东U谷中区12I厂房
邮编:101102
电话:8610-60509015
传真:8610-51662451-8001
E-mail:office@torch.cc |
|
|
|
<%
dim focus_rs
dim focus_sql
MaxList=45
if IsNumeric(request("page")) then
if not isempty(request("page")) and request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
else
currentpage=1
end if
set focus_rs=server.createobject("adodb.recordset")
focus_sql="select top 13 * from article where shenghe=1 and typeid=8 order by dateandtime desc"
focus_rs.open focus_sql,conn,1,1
MaxPerPage=MaxList
totalPut=focus_rs.recordcount
if (totalput mod maxperpage)=0 then
totalpage=totalput\maxperpage
else
totalpage=totalput\maxperpage+1
end if
if currentpage<1 then currentpage=1
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if (currentPage-1)*MaxPerPage
<%
if focus_rs.eof then
response.Write "没有任何消息!!/td> | "
else
do while not focus_rs.eof and MaxPerPage>0
response.write ""
response.write " "
response.Write(""&focus_rs("title")&"")
response.write " | "
response.Write(""&formatdatetime(focus_rs("dateandtime"),2)&" | ")
response.Write(" | ")
MaxPerPage=MaxPerPage-1
focus_rs.movenext
loop
end if
focus_rs.close
set focus_rs=nothing
%>
|
|
|
<%
dim focus_rss
dim focus_sqls
MaxList=45
if IsNumeric(request("page")) then
if not isempty(request("page")) and request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
else
currentpage=1
end if
set focus_rss=server.createobject("adodb.recordset")
focus_sqls="select top 13 * from article where shenghe=1 and typeid=9 order by dateandtime desc"
focus_rss.open focus_sqls,conn,1,1
MaxPerPage=MaxList
totalPut=focus_rss.recordcount
if (totalput mod maxperpage)=0 then
totalpage=totalput\maxperpage
else
totalpage=totalput\maxperpage+1
end if
if currentpage<1 then currentpage=1
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if (currentPage-1)*MaxPerPage
<%
if focus_rss.eof then
response.Write "没有任何消息!!/td> | "
else
do while not focus_rss.eof and MaxPerPage>0
response.write ""
response.write " "
response.Write(""&focus_rss("title")&"")
response.write " | "
response.Write(""&formatdatetime(focus_rss("dateandtime"),2)&" | ")
response.Write(" | ")
MaxPerPage=MaxPerPage-1
focus_rss.movenext
loop
end if
focus_rss.close
set focus_rss=nothing
%>
|
|
|
<%
dim focus_rsb
dim focus_sqlb
MaxList=45
if IsNumeric(request("page")) then
if not isempty(request("page")) and request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
else
currentpage=1
end if
set focus_rsb=server.createobject("adodb.recordset")
focus_sqlb="select top 13 * from article where shenghe=1 and typeid=10 order by dateandtime desc"
focus_rsb.open focus_sqlb,conn,1,1
MaxPerPage=MaxList
totalPut=focus_rsb.recordcount
if (totalput mod maxperpage)=0 then
totalpage=totalput\maxperpage
else
totalpage=totalput\maxperpage+1
end if
if currentpage<1 then currentpage=1
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if (currentPage-1)*MaxPerPage
<%
if focus_rsb.eof then
response.Write "没有任何消息!!/td> | "
else
do while not focus_rsb.eof and MaxPerPage>0
response.write ""
response.write " "
response.Write(""&focus_rsb("title")&"")
response.write " | "
response.Write(""&formatdatetime(focus_rsb("dateandtime"),2)&" | ")
response.Write(" | ")
MaxPerPage=MaxPerPage-1
focus_rsb.movenext
loop
end if
focus_rsb.close
set focus_rsb=nothing
%>
|
|
|