<% 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 LiangJingCMS_NewsSort Where ViewFlagCH and ID="&request.QueryString("SortID")).eof then SeoTitle="参数错误" else set rs = server.createobject("adodb.recordset") sql="select * from LiangJingCMS_NewsSort where ViewFlagCH and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 SeoTitle=rs("SortNamech") rs.close set rs=nothing end if Public Function Replacehtml(Textstr) Dim Str,re Str=Textstr Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" Str=re.Replace(Str, "") Set Re=Nothing Replacehtml=Str End Function %> <% =SeoTitle %> - <%=ComName%>
<% function WebLocation() If ISHTML = 1 Then WebLocation=" 您现在的位置:网站首页 > 新闻动态"&VbCrLf else WebLocation=" 您现在的位置:网站首页 > 新闻动态"&VbCrLf end if if request.QueryString("SortID")="" then WebLocation=WebLocation elseif not IsNumeric(request.QueryString("SortID")) then WebLocation=WebLocation&"错误" elseif conn.execute("select * from LiangJingCMS_NewsSort Where ViewFlagch and ID="&request.QueryString("SortID")).eof then WebLocation=WebLocation&"参数错误" else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from LiangJingCMS_NewsSort where ViewFlagch and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 WebLocation=WebLocation&SortPathTXT("LiangJingCMS_NewsSort",rs("ID")) 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 ViewFlagch 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("SortNamech")&"" end if rs.close set rs=nothing end function function WebContent(DataFrom,ID,SortPath) dim rs,sql,newsname,autolink,page,i,k,pp,url set rs = server.createobject("ADODB.recordset") if ID = "" then sql = "select * from LiangJingCMS_News order by ID asc" pp = 1 elseif not IsNumeric(ID) then response.Write ID response.Write "
暂无相关信息
" exit function else sql = "select * from LiangJingCMS_News where sortid="&ID&" order by ID desc" pp = 0 end if rs.open sql,conn,1,1 rs.pagesize = newinfo page = request.QueryString("page") if page = "" then page = 1 if not isnumeric(page) then page = 1 if clng(page) < 1 then page =1 if clng(page) > rs.pagecount then page =rs.pagecount 'response.Write rs.pagecount if not rs.eof then rs.absolutepage = page end if response.Write "
" response.Write "" response.Write "
" response.Write "
" response.Write "" response.Write "
" rs.close set rs=nothing end function %>