相关代码如下:
<% Response.buffer=true %>
<!--#include file="conn/conn.asp" -->
<%
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update sogo_link set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select url from sogo_link where id= "&cstr(request("id"))
rsnews.Open sql,conn,1,1
url=rsnews("url")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
Response.Redirect(url)
end if
rsnews.close
set rsnews=nothing
%>