%
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
ID = request.QueryString("ID")
If ID <> "" Or IsNumeric(ID) Then
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_News where ViewFlag and ID="&ID
rs.Open sql, conn, 1, 3
If rs("SeoKeywords") <> "" Then
SeoKeywords = rs("SeoKeywords")
Else
SeoKeywords = rs("NewsName")
End If
If rs("SeoDescription") <> "" Then
SeoDescription = rs("SeoDescription")
Else
SeoDescription = rs("NewsName")
End If
SeoTitle = rs("NewsName")
End If
rs.Close
Set rs = Nothing
%>
<% =SeoTitle %> - <% =SiteTitle %>
<%=WebMenu(0,0,2)%>
<%=WebLocation()%>
<%
ID = request.QueryString("ID")
If ID = "" Or Not IsNumeric(ID) Then
response.Write "
暂无相关信息
"
ElseIf conn.Execute("select * from Qianbo_News Where ViewFlag and ID="&ID).EOF Then
response.Write "
暂无相关信息
"
Else
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_News where ViewFlag and ID="&ID
rs.Open sql, conn, 1, 3
Response.Write ""&rs("NewsName")&""&vbCrLf
End If
If Request("page") = "" Then
pageNum = 0
Else
pageNum = Request("page")
End If
%>
<%
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then
Response.Write "
"&vbCrLf
Response.Write "
新闻来源:"&rs("Source")&" 浏览次数:
"&vbCrLf
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
Response.Write "
"&vbCrLf
%>
<%
ContentStr = Split(rs("Content"), "{$html_Paging$}")
For i = pageNum To pageNum
%>
<%=ProcessSitelink(ContentStr(i)) %>
<% Next %>
<%
Response.Write "
"&vbCrLf
End If
rs.update
rs.Close
Set rs = Nothing
%>
上一篇:<%=prev%>
下一篇:<%=qnext%>
<%
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
response.Write ""&rs("SortName")&""&vbCrLf
i = i + 1
If i首页 - 新闻动态"&vbCrLf
If request.QueryString("ID") = "" Then
WebLocation = WebLocation
ElseIf Not IsNumeric(request.QueryString("ID")) Then
WebLocation = WebLocation&"读取错误"
ElseIf conn.Execute("select * from Qianbo_News Where ViewFlag and ID="&request.QueryString("ID")).EOF Then
WebLocation = WebLocation&"读取错误"
Else
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_News where ViewFlag and ID="&request.QueryString("ID")
rs.Open sql, conn, 1, 1
WebLocation = WebLocation&SortPathTXT("Qianbo_NewsSort", rs("SortID"))
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 qnext
rs1=server.CreateObject("adodb.recordset") '创建对象
sql="select top 1 * from Qianbo_News where id>"&id&" order by id" '数据库查询语句
set rs1=conn.execute(sql) '执行查询语句
if rs1.eof then '这里就开始判断了,如果没有文章了,就输出没有文章的信息,如果有就输出文章标题
response.Write("没有了")
else
If ISHTML = 1 Then
AutoLink = ""&NewName&""&Separated&""&rs1("ID")&"."&HTMLName&""
Else
AutoLink = "NewsView.Asp?ID="&rs1("ID")&""
End If
response.Write ""&rs1("NewsName")&""&vbCrLf
end if
end function '函数功能结束
function prev
rs2=server.CreateObject("adodb.recordset")
sql="select top 1 * from Qianbo_News where id<"&id&" order by id desc"
set rs2=conn.execute(sql)
if rs2.eof then
response.Write("没有了")
else
If ISHTML = 1 Then
AutoLink = ""&NewName&""&Separated&""&rs2("ID")&"."&HTMLName&""
Else
AutoLink = "NewsView.Asp?ID="&rs2("ID")&""
End If
response.Write ""&rs2("NewsName")&""&vbCrLf
end if
end function
%>