<% 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 %>
◆ 模块导航
 
<% 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 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 %>
　
发布时间："&FormatDate(rs("Addtime"),13)&" 新闻来源："&rs("Source")&" 浏览次数：
 
"&rs("Content")&"
　
<% 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 %>