<% Mo_Type = ReqKeng(ReqTxt(request("tab"))) Select Case Mo_Type Case "A" Tab = "NewsType='A'" img = "t03.gif" Case "G" Tab = "NewsType='G'" img = "t04.gif" Case "S" Tab = "NewsType='S'" img = "t05.gif" Case "U" Tab = "NewsType='U'" img = "t06.gif" Case Else Tab = "" img = "t03.gif" End Select strSQL = "update TB_News set A_Count=(select A_Count from TB_News where NewsID=" & ReqNum(Request("ID"))& " )+1 where NewsID=" & ReqNum(Request("ID")) Set rs1 = conn.Execute( strSQL ) sql="select * from TB_News where NewsID=" & ReqNum(Request("ID")) Set rs = conn.Execute( sql ) N_Type = rs("NewsType") If rs("NewsUrl") <> "" then response.Redirect rs("NewsUrl") else Title = rs("NewsTitle") Data = rs("NewsData") End if sql3="select top 1 * from TB_News where NewsType='" & N_Type &"' and NewsID < "&ReqNum(Request("ID"))&" order by NewsID desc" Set rs3 = conn.Execute( sql3 ) if not(rs3.eof and rs3.bof) Then UID = rs3("NewsID") sql4="select top 1 * from TB_News where NewsType='" & N_Type &"' and NewsID > "&ReqNum(Request("ID"))&" order by NewsID" Set rs4 = conn.Execute( sql4 ) if not(rs4.eof and rs4.bof) Then DID = rs4("NewsID") %>
 
<%=Title%>
<%=FormatDateTime(rs("AddTime"), vbShortDate)%>
  <%=data%>  
 
<%if not(rs3.eof and rs3.bof) Then%><%End IF%> <%if not(rs4.eof and rs4.bof) Then%><%End IF%>
 
 
<% rs.Close rs1.Close Set rs = Nothing Set rs1 = Nothing rs3.Close rs4.Close Set rs3 = Nothing Set rs4 = Nothing %>