<%mainborderlight = objrs1("mainborderlight")
mainborderdark = objrs1("mainborderdark")
mainbordersize = objrs1("mainbordersize")
trback = objrs1("trback")
tabwidth = objrs1("tabwidth")
MaxPerPage=4
%>
<% dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim catname
catid=request("catid")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rscat
dim catsql
dim catid,catname1
if not isEmpty(request("catid")) then
catid=request("catid")
else
catid=0
end if
set rscat=server.createobject("adodb.recordset")
catsql="select * from cat where catid="&catid&""
rscat.open catsql,objconn,1,1
if not rscat.eof then
catname1=rscat("catname")
else catname1="所有产品图片"
end if
rscat.close
%>
<%
i=0
Set rs= Server.CreateObject("ADODB.Recordset")
sql5 = "select top 6 news_id,news_title from gunnews order by news_id desc "
rs.open sql5,objconn,1,1
%>
<%
i=0
Set rs1= Server.CreateObject("ADODB.Recordset")
sql6 = "select * from gunnews"
rs1.open sql6,objconn,1,1
%>
凤梨花专业网--大汉远景集团
