<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage = "65001"%>
<%Response.CharSet = "utf-8"%>
<%dim id,rsarr,aa
id = trim(request2.QueryString("id"))
a=Request.QueryString("a")
erjishunxu=Request.QueryString("erjishunxu")
sanjishunxu=Request.QueryString("sanjishunxu")
jilie=Request.QueryString("jilie")
yijiming=Request.QueryString("yijiming")
erjiming=Request.QueryString("erjiming")
menu=Request.QueryString("menu")
dim ThisOrderbyArr(2,1)
ThisOrderbyArr(0,0) = "n_Top"
ThisOrderbyArr(1,0) = "desc"
ThisOrderbyArr(2,0) = "0"
ThisOrderbyArr(0,1) = "id"
ThisOrderbyArr(1,1) = "desc"
ThisOrderbyArr(2,1) = "0"
RsPage.TbName = "news1"
RsPage.ColList = "id,n_title,n_pic,n_types,n_ftitle,n_update,erjishunxu,jilie,leixing,sanjishunxu,yijiming,erjiming,menu"
if a="1" then
RsPage.Where = " sanjishunxu='1' and erjishunxu='1' and jilie='"&jilie&"'"
elseif menu="" then
RsPage.Where = " sanjishunxu='"&sanjishunxu&"' and erjishunxu='"&erjishunxu&"' and jilie='"&jilie&"'"
else
RsPage.Where = "menu='"&menu&"' and erjiming='"&erjiming&"' and yijiming='"&yijiming&"'"
end if
RsPage.OrderbyArr = ThisOrderbyArr
RsPage.PageSize = 15
RsPage.CurPage = request2.QueryString("CurPage")
RsPage.QueryString = request2.ServerVariables("QUERY_STRING")
rsArr = RsPage.GetRows(conn)
if isarray(rsarr)=false then
response.write "网站频道维护中！"
response.end
end if
if jilie="1" then
aa="zghf_"
elseif jilie="2" then
aa="fzxs_"
elseif jilie="3" then
aa="zgfs_"
elseif jilie="4" then
aa="jlxg_"
elseif jilie="5" then
aa="lszl_"
elseif jilie="6" then
aa="zgcb_"
elseif jilie="7" then
aa="gasm_"
elseif jilie="8" then
aa="yytk_"
elseif jilie="9" then
aa="fwlt_"
else
aa=""
end if
Dim rsArr_aboutt6
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select id,artiname,article from arti5 where id=1"
rs.Open sql,Conn,0,1
If Not rs.EOF Then
rsArr_aboutt6 = rs.GetRows
Else
rsArr_aboutt6 = ""
End If
rs.Close
Set rs = Nothing
%>
<%
Dim rsArr_news
Set rs = Server.CreateObject("ADODB.RecordSet")
if id<>"" then
sql = "select top 1 id as n_id,menu as n_types_name,jiji,jilie,erjishunxu,sanjishunxu,yijiming,erjiming from cd where id="&id
else
sql = "select top 1 id as n_id,menu as n_types_name,jiji,jilie,erjishunxu,sanjishunxu,yijiming,erjiming from cd where erjishunxu='"&erjishunxu&"' and sanjishunxu='"&sanjishunxu&"' and jilie='"&jilie&"'"
end if
rs.Open sql,Conn,0,1
If Not rs.EOF Then
rsArr_news = rs.GetRows
Else
rsArr_news = ""
End If
rs.Close
Set rs = Nothing%>
<%=rsArr(12,0)%>
<%
Dim rsArr_newst1a
Set rs = Server.CreateObject("ADODB.RecordSet")
if a="1" then
sql = "select id,menu,erjiming,yijiming,jilie,erjishunxu,sanjishunxu from cd where sanjishunxu<>'' and erjishunxu='1' and jilie='" & jilie &"' order by clng(erjishunxu),clng(sanjishunxu)"
else
sql = "select id,menu,erjiming,yijiming,jilie,erjishunxu,sanjishunxu from cd where sanjishunxu<>'' and erjishunxu='" & erjishunxu&"' and jilie='" & jilie &"' order by clng(erjishunxu),clng(sanjishunxu)"
end if
rs.Open sql,Conn,0,1
If Not rs.EOF Then
rsArr_newst1a = rs.GetRows
Else
rsArr_newst1a = ""
End If
rs.Close
Set rs = Nothing
erjiming=""
yijiming=""
menu=""
%>
<%
if isarray(rsArr_newst1a) then
for x=0 to ubound(rsArr_newst1a,2)%>
<%
if a="1" and x=0 then
erjiming=rsArr_newst1a(2,x)
yijiming=rsArr_newst1a(3,x)
menu=rsArr_newst1a(1,x)
sanjishunxu=rsArr_newst1a(6,x)
jilie=rsArr_newst1a(4,x)
elseif x=cint(erjishunxu-1) then
erjiming=rsArr_newst1a(2,x)
yijiming=rsArr_newst1a(3,x)
menu=rsArr_newst1a(1,x)
sanjishunxu=rsArr_newst1a(6,x)
jilie=rsArr_newst1a(4,x)
end if
next
end if%>
