% Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() Dim CurrentPage,FileName Dim TodayDate,strDate,strIsLockId,tdcss Dim strSelComId,newsssa,qiyess,keyword %> <% If Request.Form <> "" Then Response.Redirect("news.asp?newsssa="& Request.Form("newsssa") & "&qiyess=" & Request.Form("qiyess") & "&keyword=" & Request.Form("keyword")) End if newsssa = Jyrcw.chgStr(Trim(Request.QueryString("newsssa"))) if newsssa="" then newsssa=1 end if qiyess = Jyrcw.chgStr(Trim(Request.QueryString("qiyess"))) keyword = Jyrcw.chgStr(Trim(Request.QueryString("keyword"))) if keyword="请输入关键字" then keyword="" end if FileName="news.asp?newsssa="&newsssa& "&qiyess=" &qiyess & "&keyword="&keyword&"&" %>