www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/Link/link.asp
<!--#include file="../conn.asp"--> <!--#include file="../inc/const.asp"--> <% Dim Rs, LinkID, LinkUrl If Not IsNumeric(Request("id")) Then Response.Write"错误的系统参数!" Response.End Else LinkID = Newasp.ChkNumeric(Request.Querystring("id")) End If Newasp.Execute("UPDATE NC_Link SET LinkHist=LinkHist+1 WHERE LinkID="& LinkID) Set Rs = Newasp.Execute("SELECT LinkID,LinkUrl FROM NC_Link WHERE LinkID="& LinkID) If Rs.BOF And Rs.EOF Then LinkUrl = "../" Else LinkUrl = Trim(Rs("LinkUrl")) End If Set Rs = Nothing CloseConn Response.Redirect(LinkUrl) %>