% dim DefautlCateId,BaseUrl,ListUrl,NavText,cid DefautlCateId="" BaseUrl="news.asp" ListUrl="show.asp" Language="en" pagenumber=request("pagenumber") if pagenumber<>"" and not isnumeric(pagenumber) then response.write("") response.end() end if schdate=replace(request("schdate"),"'","''") if schdate<>"" then sqlstr=" and W_Addtime like '"& schdate &"%'" urlstr="schdate="& schdate &"&" end if %>