% 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")%> | |||||
<%
if not isnull(rs("image_filename")) and rs("image_filename")<> "" then
response.write ""
end if
response.write Replace(rs("content"),"initFlashVideo();","")
%>
 
|
<%
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%>
|||||