<%@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)%>
<%=rsArr_newst1a(1,x)%>
<% 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%>
<%=rsArr(12,0)%>-<%=rsArr(11,0)%>-<%=rsArr(10,0)%>
请输入口令:
<% if isarray(rsarr) then for x=0 to ubound(rsarr,2) if rsarr(8,x)="tm" or rsarr(8,x)="tt" then %> <%else%> <% end if next end if %>
<%=rsarr(1,x)%>       [<%=year(rsarr(5,x))%>-<%=month(rsarr(5,x))%>-<%=day(rsarr(5,x))%>]
<%=rsarr(1,x)%>       <%=year(rsarr(5,x))%>-<%=month(rsarr(5,x))%>-<%=day(rsarr(5,x))%>
<%=rsarr(4,x)%> 全文
<%=RsPage.ShowNavi(1) & RsPage.ShowNavi(4)%>
<%if left(rsarr(11,0),2)="弟子" then%> <%else%> <%end if%>