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