| |
|
|
最新动态：
<%
const MaxPerPage=13
dim totalPut
dim keyword
dim category
dim CurrentPage
dim TotalPages
dim i
dim filename
dim categoryid
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
filename="info.asp"
if request("newstype")="物流(产)" then
sql="select * from news where newstype='物流(产)' and ncheck='y' order by id desc"
elseif request("newstype")="硫磺(产)" then
sql="select * from news where newstype='硫磺(产)' and ncheck='y' order by id desc"
elseif request("newstype")="化肥(产)" then
sql="select * from news where newstype='化肥(产)' and ncheck='y' order by id desc"
elseif request("newstype")="沥青(产)" then
sql="select * from news where newstype='沥青(产)' and ncheck='y' order by id desc"
elseif request("newstype")="木薯干(产)" then
sql="select * from news where newstype='木薯干(产)' and ncheck='y' order by id desc"
elseif request("newstype")="物流(行)" then
sql="select * from news where newstype='物流(行)' and ncheck='y' order by id desc"
elseif request("newstype")="硫磺(行)" then
sql="select * from news where newstype='硫磺(行)' and ncheck='y' order by id desc"
elseif request("newstype")="化肥(行)" then
sql="select * from news where newstype='化肥(行)' and ncheck='y' order by id desc"
elseif request("newstype")="其他(行)" then
sql="select * from news where newstype='其他(行)' and ncheck='y' order by id desc"
elseif request("newstype")="政策动态(市)" then
sql="select * from news where newstype='政策动态(市)' and ncheck='y' order by id desc"
elseif request("newstype")="硫磺市场(市)" then
sql="select * from news where newstype='硫磺市场(市)' and ncheck='y' order by id desc"
elseif request("newstype")="化肥市场(市)" then
sql="select * from news where newstype='化肥市场(市)' and ncheck='y' order by id desc"
elseif request("newstype")="其他(市)" then
sql="select * from news where newstype='其他(市)' and ncheck='y' order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof then
response.write ""
response.write "
"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
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 then
showContent
showpage totalput,MaxPerPage,filename
else
if (currentPage-1)*MaxPerPage
 ','Lcmusic','scrollbars=yes,resizable=no,width=500,height=400,menubar=no,top=168,left=168')" title=<%=rs("title")%>><%=rs("title")%>
<%response.write year(rs("addtime"))&"-"&month(rs("addtime"))&"-"&day(rs("addtime"))%>
<% i=i+1
number=number+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
|
<% end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
filename=filename&"?"&"newstype="&request("newstype")
response.write ""
end function
%>
<%
if request("newstype")="" then
sql1="select * from news where ncheck='y' order by id desc"
set rs1=conn.execute(sql1)
Dim ntime,n
n=1
Do while NOT Rs1.EOF and n<=13
ntime=year(rs1("addtime"))&"-"&Month(rs1("addTime"))&"-"&Day(rs1("addTime"))%>
','Lcmusic','scrollbars=yes,resizable=no,width=500,height=400,menubar=no,top=168,left=168')" title=<%=rs1("title")%>><%=rs1("title")%>
<%=ntime%>
<%
n=n+1
Rs1.MoveNext
LOOP
end if
%>
|
|
