<% page=Trim(request("page")) If page="" Then page=1 Elseif CInt(page)<=0 then page=1 else page=CInt(page) End If id=trim(request.QueryString("id")) if id<>"" and isnumeric(id) then else Response.Write("") end if id=cint(id) sql="select * from news where id=" & id & "" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,3 if rs.bof and rs.eof then response.write"" response.End() else rs("Hits")=rs("Hits")+1 rs.update newstitle=rs("title") nCounter=rs("Hits") content=rs("content") okbigclassname=rs("bigclassname") UpdateTime=rs("UpdateTime") paging=rs("PageType") DefaultPicUrl=rs("DefaultPicUrl") if rs("zhuan")=true and rs("video")<>"" then response.Redirect(rs("video")) end if end if rs.close set rs=nothing strFileName="NewsView.Asp?id="&id %> <%=newstitle%>-<%=companyname%>
<%response.Write("") set rs=server.CreateObject("adodb.recordset") sql="select * from newsbigclass order by bigclassnamepass asc" rs.open sql,conn,1,1 if rs.eof and rs.bof then else do while not rs.eof response.Write("") set rssmall=server.CreateObject("adodb.recordset") sql="select * from newssmallclass where bigclassname='"&rs("bigclassname")&"' order by smallclassnamepass asc" rssmall.open sql,conn,1,1 if rssmall.bof and rssmall.eof then else do while not rssmall.eof response.Write("") rssmall.movenext loop rssmall.close set rssmall=nothing end if rs.movenext loop rs.close set rs=nothing end if response.Write("
    ABOUT <%=okbigclassname%>
       您现在的位置:首页 > <%=okbigclassname%>
日期:[<%=UpdateTime%>]   共阅[<%=nCounter%>]次
<%call PageType(strFileName,paging)%>
上一篇: <%set rsup=server.CreateObject("adodb.recordset") sql="select top 1 * from news where id<"&id &" and BigClassName='"&okbigclassname&"' order by id desc" rsup.open sql,conn,1,1 if rsup.eof and rsup.bof then response.Write("没有新闻了") else upid=rsup("id") response.Write(""&rsup("title")&"") end if rsup.close set rsup=nothing%>
下一篇: <%set rsdp=server.CreateObject("adodb.recordset") sql="select top 1 * from news where id>"&id&" and bigclassname='"&okbigclassname&"' order by id asc" rsdp.open sql,conn,1,1 if rsdp.eof and rsdp.bof then response.Write("没有新闻了") else downid=rsdp("id") response.Write(""&rsdp("title")&"") end if rsdp.close set rsdp=nothing%>
<% sssid=id set xgrs=server.createobject("adodb.recordset") xgrs.Open "select top 6 id,title,UpdateTime from news where BigClassName='"&okbigclassname&"' and id<>"&sssid&" order by id desc",conn,1,1 if not xgrs.eof then do while not xgrs.EOF %> <% xgrs.MoveNext loop else %> <% end if xgrs.Close set xgrs=nothing %>
<% daye1=month(xgrs("UpdateTime")) if len(daye1)=1 then daye1="0"&daye1 end if daye2=Day(xgrs("UpdateTime")) if len(daye2)=1 then daye2="0"&daye2 end if %> " target="_blank" ><%=gotTopic(xgrs("Title"),70)%> <%If DateDiff("d",xgrs("UpdateTime"),now())<=2 Then response.Write("") end if%> [<%=daye1&"/"&daye2 %>]