<% 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("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾页" & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("尾页" & vbCrLf) end if Response.Write(" 第" & "" & "页" & vbCrLf & "") Response.Write(" 共 " & pageCount & " 页" & vbCrLf) Response.Write(" " & resultcount & " 条信息" & vbCrLf) Response.Write("
" & vbCrLf ) End Sub %> 商学院--金融工程专业
当前位置:首页  ->  <%=list_titel %>// <%=titel %>
<% if maxpage<>0 then call LastNextPage(maxpage,page,result_num) end if %>