<%Option Explicit Response.buffer=true '开启缓冲页面功能%> <%w_h_article dim c_name,s_name c_id=request.QueryString("c_id") if c_id="" then c_name="搜索结果" else rs=conn.execute("Select c_name From art_class Where c_id="& c_id &"") c_name=rs(0) if request.QueryString("s_id")<>"" then rs1=conn.execute("Select s_name From art_sort Where c_id="& c_id &" and s_id="&request.QueryString("s_id")&"") ssstats=rs1(0) ssstatsurl="article_list.asp?c_id="&c_id&"&s_id="&request.QueryString("s_id") end if end if call web_open_close() stats="学苑文章" statsurl="article.asp" sstats=c_name sstatsurl="article_list.asp?c_id="&c_id ssstats=ssstats ssstatsurl=ssstatsurl founderr=false errmsg="" if founderr then call showerror() response.end else '=============================取得不同头部信息======================== call top("#ffe1b5",326,38,"",0,t2) call article_list(cint(web_var(web_article,5)),web_var(web_article,13),web_var(web_article,4),"icon9","article_list.asp","article_view.asp","art_class","art_sort") call endpage()%> <%end if %>