| ※ 聯系我們 >> MORE |
| 銷售中心：
地址：北(běi)京市朝陽區(qū)酒仙橋甲10号星城(chéng)國際A座6D
電話(huà)：400-618-9522
傳真：8610-51662451-8001
E-mail：sales@torch.cc |
 |
| 生産基地：
地址：北(běi)京市通(tōng)州區(qū)馬駒橋鎮景盛南(nán)四街(jiē)15号聯東U谷中區(qū)12I廠房(fáng)
郵編:101102
電話(huà)：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
%>
|
|
|
