<!--#include file="../inc/inc.asp"-->
<%Call head()
Dim rs,sql,ID
id=request.Querystring("id")
set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from link Where ID="&ID
Rs.open Sql,conn,1,3
If Not rs.eof	Then
Rs("YD_OUT")=Rs("YD_OUT")+1
Rs("OUTtime")=now()
Rs.update()
Else
Call erorr("该网站不存在")
End If
Call cardz(""&usb(rs("NAME"))&"",""&usb(rs("URL"))&"")

Response.write "正在跳转至"&usb(rs("NAME"))&"..请稍候...<br/>如果浏览器没有自动跳转..<br/>请点击下面链接进入."
Response.write "<br/><a href='"&usb(rs("URL"))&"'>"&usb(rs("URL"))&"</a><br/>"
Call allclose()
Call headsay()

%>
