%
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
%>
<%
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 = "newslist1.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 desc"
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 = "newslist1.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 = "newslist1.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 "
"&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
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
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
rs.Close
Set rs = Nothing
End Function
%>