<% option explicit %> <% dim rs, sql, curid,curkey1,curkey2 set rs = server.createobject("adodb.recordset") curid = request("id") sql = "UPDATE news SET hits = hits + 1 WHERE id = " + cstr(curid) conn.execute sql sql = "SELECT * FROM news WHERE id = " + cstr(curid) rs.open sql, conn, 1, 1 curkey1=rs("key1") curkey2=rs("key2") %> <%=rs("title")%>
  <%=rs("title")%>
  <% if not isnull(rs("image_filename")) and rs("image_filename")<> "" then response.write "" end if response.write Replace(rs("content"),"initFlashVideo();","") %>
分享到:0
<% if curkey1 <>"" and curkey2<>"" then rs.close set rs=nothing dim i set rs=server.createobject("adodb.recordset") sql="select top 5 id,title,addtime from news where cateid=13 and ( key1+key2 like '%"&curkey1&"%' or key1+key2 like '%"&curkey2&"%')" rs.open sql,conn,1,1 if not rs.eof then%>
 
<% i=0 while not rs.eof if rs("id")=cdbl(curid) then rs.movenext else %> <% rs.movenext i=i+1 end if wend %>
【Relative News】
  ◆" class=biaoti><%=rs("title")%>
<%end if end if %> <% set rs = nothing call endconnection() %>