<% 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 %>|十堰/重庆/成都/西安/洛阳/武汉/金凤化工|金凤油漆|金凤实业 咨询电话: 0719-6481264
<% If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then 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 Response.Write " "&vbCrLf Else Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf End If rs.update rs.Close Set rs = Nothing %>
<%=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 %>
"&vbCrLf Response.Write " 发布时间:"&FormatDate(rs("Addtime"), 13) &vbCrLf Response.Write "   "&vbCrLf Response.Write " 新闻来源:"&rs("Source")&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 'Response.Write " 本文共分x页"&vbCrLf Response.Write "
 
<% 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("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")&"" AutoLink = "#" End If SortPathTXT = SortPathTXT(DataFrom, rs("ParentID"))&" - "&rs("SortName")&"" End If rs.Close Set rs = Nothing End Function %>