www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > linkhit.asp

    <!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
id=RequestQueryNum("id")
If id<>0 then
	'Response.Write id
	set rs=Server.CreateObject("ADODB.Recordset")
	sql="select * from link Where id="& id &""
	rs.open sql,conn,2,3
	If rs.eof Then
		Response.Write "参数错误!"
	Else
		url=rs("url")
		rs("hits")=rs("hits")+1
		rs.Update
	End If
	rs.close
	Set rs=nothing
	'Response.Write url
	If url<>"" Then
		Response.Write "<meta http-equiv='refresh' content='0;URL="& url &"'>"
	Else
		Response.Write "参数错误!"
	End If
End If
%>