<% Dim strMenu,PageTitle Set jyrcw = New Site_Class Jyrcw.SiteConfig() Jyrcw.GotoErrPage() Dim NewsId,NewsTitle,NewsContent,AddDate,Newsly,Newswz,jyrcwnewsllcs,jyrcwnewsgjc,Newsnr Set Rs = server.createobject("ADODB.Recordset") Set nRs = server.createobject("ADODB.Recordset") Set iRs = server.createobject("ADODB.Recordset") NewsId = Jyrcw.chgStr(Trim(Request.QueryString("NewsId"))) if Jyrcw.jingtaiqz=2 or Jyrcw.jingtaiqz=3 then If NewsId="" Then jyrcwwjt=Request.ServerVariables("QUERY_STRING") NewsId=Int(replace(replace(jyrcwwjt,"/",""),".html","")) End If else If NewsId = "" Or IsNull(NewsId) Or Not IsNumeric(NewsId) Then NewsId = 0 end if iRs.Open "select * from NewsTbl where NewsId = "& NewsId , Conn , 3 , 2 If iRs.Eof Then Response.Write(""&NewsId&"") Response.End() Else iRs("jyrcwnewsllcs") = iRs("jyrcwnewsllcs") + 1 iRs.Update end if iRs.Close Rs.Open "select * from NewsTbl where NewsId = "& NewsId , Conn , 1 , 1 If Rs.Eof Then NewsTitle = "" NewsContent = "" AddDate = "" Else NewsTitle = Rs("NewsTitle") Newsnr=left(nohtml(rs("NewsContent")),110) NewsContent = Rs("NewsContent") AddDate = Jyrcw.FormatDate(FormatDateTime(Rs("AddDate") , 2)) Newsly=Rs("Newsly") Newswz=Rs("Newswz") jyrcwnewsllcs=Rs("jyrcwnewsllcs") jyrcwnewsgjc=Rs("jyrcwnewsgjc") End If Rs.Close PageTitle = NewsTitle & " -- " & jyrcwfzmc %> <%if jyrcwfenzhanmbxz=0 or jyrcwfenzhanmbxz=1 or jyrcwfenzhanmbxz=2 then%> <%end if%> <%if jyrcwfenzhanmbxz=3 then%> <%end if%> <%if jyrcwfenzhanmbxz=4 then%> <%end if%>