<% 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") rs.Close Set rs = Nothing End If %> <% =SeoTitle %> - <% =SiteTitle %>|十堰/重庆/成都/西安/洛阳/武汉/金凤化工|金凤油漆|金凤实业 咨询电话: 0719-6481264
<%=WebLocation()%> <% ChildSort() %>
<%=WebContent("Qianbo_NewsSort",request.QueryString("SortID"),"")%>
 
<% Function WebMenu(ParentID, i, level) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_NewsSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.Open sql, conn, 1, 1 If conn.Execute("select ID from Qianbo_NewsSort Where ViewFlag and ParentID=0").EOF Then response.Write "
暂无相关信息
" End If Do While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "newslist.asp?sortid="&rs("ID")&"" End If If ParentID=0 Then response.Write ""&rs("SortName")&""&vbCrLf Else response.Write ""&rs("SortName")&""&vbCrLf End If 'i=i+1 'if i首页 "&vbCrLf 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 ChildSort() Dim ParentID ParentID = request.QueryString("SortID") If ParentID = "" Or (Not IsNumeric(ParentID)) Then Exit Function Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_NewsSort where ViewFlag and ParentID="&ParentID&" order by ID" rs.Open sql, conn, 1, 1 If rs.bof And rs.EOF Then Exit Function Else While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "newslist2.asp?sortid="&rs("ID")&"" End If response.Write ""&rs("SortName")&" / " rs.movenext Wend End If rs.Close Set rs = Nothing 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 = "newslist2.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 ClickNumber 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 " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
"&vbCrLf While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "newsview.asp?id="&rs("ID")&"" End If Response.Write " "&vbCrLf rs.movenext Wend Response.Write "
"&vbCrLf Else response.Write "
暂无相关信息
" Exit Function End If Response.Write ""&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
"&vbCrLf Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf 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 ("9 ") Else If(page>1) Then response.Write ("9 ") End If Else If(page>1) Then response.Write ("9 ") 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 ("3 ") Else If(pagenmin>1) Then response.Write ("3 ") End If Else If(pagenmin>1) Then response.Write ("3 ") 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 %>