% cid=cint(request("cid")) if cid=0 then cid=1 select case cid ''教材建设 case 10 response.Redirect("Photo_class.asp?cid="&cid) case 20 response.Redirect("Photo_class.asp?cid="&cid) case 23 response.Redirect("Photo_class.asp?cid="&cid) case 35 response.Redirect("Photo_class.asp?cid="&cid) '专著论文 '金融影视 case else titel="新闻中心" set rs=server.createobject("adodb.recordset") Ssql="select * from articleCate where id="&cid rs.open Ssql,conn,1,1 titel=rs("cateName") pid=rs("ParentId") rs.close set rs=nothing set rs=server.createobject("adodb.recordset") Ssql="select * from articleCate where id="&pid rs.open Ssql,conn,1,1 titelp=rs("cateName") rs.close set rs=nothing list_titel=""&titelp&" -> "&titel&"" cid=" Article_cateId="&cid end select %> <% Sub LastNextPage(pagecount,page,resultcount) Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("