<% Call SiteInfo() If ISHTML = 1 Then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If If Request.QueryString("SortID") = "" Then SeoTitle = "新闻动态" ElseIf Not IsNumeric(Request.QueryString("SortID")) Then SeoTitle = "参数错误" ElseIf conn.Execute("Select * From Qianbo_NewsSort Where ViewFlag And ID = " & Request.QueryString("SortID")).EOF Then SeoTitle = "参数错误" Else Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From Qianbo_NewsSort Where ViewFlag And ID = " & Request.QueryString("SortID") rs.Open sql, conn, 1, 1 SeoTitle = rs("SortName") SortPath = rs("SortPath") rs.Close Set rs = Nothing End If %> <%=SeoTitle %> - <%=SiteTitle %>

<%=SeoTitle %>

<%=WebContent("Qianbo_NewsSort",request.QueryString("SortID"),"")%>

<% Function WebMenu() Dim rs, sql Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From Qianbo_NewsSort Where ViewFlag And ParentID <> 0 Order By ID Asc" rs.Open sql, conn, 1, 1 If Not rs.EOF Then Do If ISHTML = 1 Then AutoLink = "" & NewSortName & Separated & rs("ID") & Separated & "." & HTMLName & "" Else AutoLink = "NewsList.Asp?SortID=" & rs("ID") & "" End If If SortPath = rs("SortPath") Then tmpCss = " current-menu-item" Else tmpCss = "" End If Response.Write "

" & rs("SortName") & "

" rs.movenext Loop Until rs.EOF End If rs.Close Set rs = Nothing End Function Function WebLocation() WebLocation = "

新闻动态

" If Request.QueryString("SortID") = "" Then WebLocation = WebLocation ElseIf Not IsNumeric(Request.QueryString("SortID")) Then WebLocation = WebLocation & "参数错误" ElseIf conn.Execute("Select * From Qianbo_NewsSort Where ViewFlag And ID = " & Request.QueryString("SortID")).EOF Then WebLocation = WebLocation & "参数错误" Else Dim rs, sql Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From Qianbo_NewsSort Where ViewFlag And ID=" & Request.QueryString("SortID") rs.Open sql, conn, 1, 1 WebLocation = WebLocation & SortPathTXT("Qianbo_NewsSort", rs("ID")) rs.Close Set rs = Nothing End If End Function Function SortPathTXT(DataFrom, ID) Dim rs, sql Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From " & DataFrom & " Where ViewFlag and ID = " & ID rs.Open sql, conn, 1, 1 If Not rs.EOF Then If ISHTML = 1 Then AutoLink = "" & NewSortName & Separated & rs("ID") & Separated & "1." & HTMLName & "" Else AutoLink = "NewsList.Asp?SortID=" & rs("ID") & "" End If SortPathTXT = SortPathTXT(DataFrom, rs("ParentID")) & "

" & rs("SortName") & "

" End If rs.Close Set rs = Nothing End Function Function WebContent(DataFrom,ID,SortPath) Dim rs,sql Dim HideSort Set rs=server.CreateObject("Adodb.Recordset") If ID="" Then SortPath="0," ElseIf Not IsNumeric(ID)Then Response.Write "暂无相关信息" Exit Function ElseIf conn.Execute("Select * From " & DataFrom & " Where ViewFlag And ID = " & ID).EOF Then Response.Write "暂无相关信息" Exit Function Else SortPath=conn.Execute("Select * From " & DataFrom & " Where ViewFlag And ID = " & ID)("SortPath") conn.Execute("Update " & DataFrom & " Set ClickNumber = ClickNumber + 1 Where ID = " & ID) End If sql="Select * From " & DataFrom & " Where Not(ViewFlag) And Instr(SortPath,'" & SortPath & "') > 0" rs.Open sql,conn,1,1 While Not rs.EOF HideSort="And Not(Instr(SortPath,'" & rs("SortPath") & "') > 0) " & HideSort rs.movenext Wend rs.Close Dim idCount Dim pages pages=NewInfo Dim pagec Dim page page=CLng(Request("Page")) Dim pagenc pagenc=5 Dim pagenmax Dim pagenmin Dim pageprevious Dim pagenext datafrom="Qianbo_News" Dim datawhere datawhere="where ViewFlag and Instr(SortPath,'" & SortPath & "')>0 " & HideSort & " " Dim sqlid Dim Myself,PATH_INFO,QUERY_STRING PATH_INFO=Request.servervariables("PATH_INFO") QUERY_STRING=Request.ServerVariables("QUERY_STRING")' If QUERY_STRING="" Then Myself=PATH_INFO & "?" ElseIf InStr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 Then Myself=PATH_INFO & "?" & QUERY_STRING & "&" Else Myself=Left(PATH_INFO & "?" & QUERY_STRING,InStr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) End If Dim taxis taxis="Order By ID Desc " Dim i sql="Select Count(ID) As IDCount From [" & datafrom & "]" & datawhere Set rs=server.CreateObject("Adodb.Recordset") rs.Open sql,conn,0,1 idCount=rs("idCount") If(idcount>0)Then If(idcount Mod pages=0)Then pagec=Int(idcount/pages) Else pagec=Int(idcount/pages)+1 End If sql="Select ID From [" & datafrom & "] " & datawhere & taxis Set rs=server.CreateObject("Adodb.Recordset") rs.Open sql,conn,1,1 rs.pagesize=pages If page<1 Then page=1 If page>pagec Then page=pagec If pagec>0 Then rs.absolutepage=page For i=1 To rs.pagesize If rs.EOF Then Exit For If(i=1)Then sqlid=rs("ID") Else sqlid=sqlid & "," & rs("ID") End If rs.movenext Next End If If(idcount>0 And sqlid<>"")Then sql="Select * From [" & datafrom & "] Where ID IN(" & sqlid & ") " & taxis Set rs=server.CreateObject("Adodb.Recordset") rs.Open sql,conn,0,1 Response.Write"

" & vbCrLf Response.Write"

" & rs("NewsName") & "

" & vbCrLf Response.Write"

" & FormatDate(rs("Addtime"),13) & "

" & vbCrLf Response.Write"

" & rs("SeoDescription") & "

" & vbCrLf Response.Write"

" & vbCrLf Response.Write"

" & vbCrLf Else Response.Write "暂无相关信息" Exit Function End If Response.Write"

" & vbCrLf Response.Write " 共" & idcount & "条记录页次：" & page & "/" & pagec & " 每页" & pages & "条记录" pagenmin=page-pagenc pagenmax=page+pagenc If(pagenmin<1)Then pagenmin=1 If ISHTML=1 Then If ID="" Then If(page>1)Then Response.Write"首页" Else If(page>1)Then Response.Write"首页" End If Else If(page>1)Then Response.Write"首页" End If If page-(pagenc*2+1)<=0 Then pageprevious=1 Else pageprevious=page-(pagenc*2+1) End If If ISHTML=1 Then If ID="" Then If(pagenmin>1)Then Response.Write"上一页" Else If(pagenmin>1)Then Response.Write"上一页" End If Else 'If(pagenmin>1)Then Response.Write"上一页" End If If(pagenmax>pagec)Then pagenmax=pagec For i=pagenmin To pagenmax If(i=page)Then Response.Write"" & i & "" Else If ISHTML=1 Then If ID="" Then Response.Write"" & i & "" Else Response.Write"" & i & "" End If Else Response.Write"" & i & "" End If End If Next If page+(pagenc*2+1)>=pagec Then pagenext=pagec Else pagenext=page+(pagenc*2+1) End If If ISHTML=1 Then If ID="" Then If(pagenmax尾页" If(page尾页" Else If(pagenmax尾页" If(page尾页" End If Else 'If(pagenmax尾页" If(page尾页" End If Response.Write"

" & vbCrLf rs.Close Set rs=Nothing End Function %>