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 %>