<%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 Response.Write ("该网站不存在") End If%>

正在跳转至<%=usb(rs("NAME"))%>,请稍候...
如果浏览器没有自动跳转,请点击下面链接进入.
<%=usb(rs("URL"))%>
<%call ALLClose()%> <%call lasts()%>