<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage = "65001"%> <% dim id a=Request.QueryString("a") erjishunxu=Request.QueryString("erjishunxu") sanjishunxu=Request.QueryString("sanjishunxu") jilie=Request.QueryString("jilie") if sanjishunxu="" then sanjishunxu="1" end if Dim rsArr_about Set rs = Server.CreateObject("ADODB.RecordSet") if a="1" then sql = "select id,jiji,menu,erjiming,article as news,jilie,erjishunxu,sanjishunxu from arti where sanjishunxu='1' and erjishunxu='1' and jilie='" & jilie &"' " else sql = "select id,jiji,menu,erjiming,article as news,jilie,erjishunxu,sanjishunxu from arti where sanjishunxu='" & sanjishunxu & "' and erjishunxu='" & erjishunxu&"' and jilie='" & jilie &"' " end if rs.Open sql,Conn,0,1 If Not rs.EOF Then rsArr_about = rs.GetRows Else rsArr_about = "" response.write "网站频道维护中！" response.end End If rs.Close Set rs = Nothing %>

<% Dim rsArr_newst1a sql = "select id,menu,jilie,menu,yijiming,erjishunxu,sanjishunxu from cd where erjiming='" & rsArr_about(3,0) &"' and sanjishunxu <>'' order by clng(sanjishunxu) " Set rs = Server.CreateObject("ADODB.RecordSet") 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 %> <%if isarray(rsArr_newst1a) then for x=0 to ubound(rsArr_newst1a,2)%> <%=rsArr_newst1a(1,x)%> <%next end if%> <%=rsArr_about(3,0)%>-<%=rsArr_about(2,0)%> <%=rsArr_about(4,0)%>