<!--#include file="../conn.asp"-->
<!--#include file="Ip.asp"-->
<!--#include file="Config.asp"-->
<% Call head()

dim Rs,Sql,id
ID=trim(request.QueryString("ID"))
set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select [ID],[yd_in],[yd_time] from [link] Where ID="&ID
Rs.open Sql,conn,1,3
Rs("yd_in")=Rs("yd_in")+1
Rs("yd_time")=now()
Rs.update()

Call cardz("正在进入","/index.asp")

%>
<%If saytk<>1 Then
%><hr><%
else
response.write"<br/>------------------<br/>"
End if%>
正在进入.....
<a href="/index.asp"><%=waptitle%></a><br/>
<%If saytk<>1 Then
%><hr><%
else
response.write"<br/>------------------<br/>"
End if%>
<%
Call wenhouyu()
%>
<%If saytk<>1 Then
%><hr><%
else
response.write"<br/>------------------<br/>"
End if%>
欢迎您访问本站所有服务完全免费!如果你觉得本站不错，请加为书签！谢谢你的支持！
<%If saytk<>1 Then
%><hr><%
else
response.write"<br/>------------------<br/>"
End if%>
<%=waptitle%> 2011 © 版权所有
<br/>

<%=now%> - <%=WeekDayName(DatePart("w",Now))%>

<%If saytk<>1 Then
%><hr><%
else
response.write"<br/>------------------<br/>"
End if%>
<%
Call chenli()
%>
<br/>
<%
Call onlineCoun11()%>
<%If saytk<>1 Then
%><hr><%
else
response.write"<br/>------------------<br/>"
End if%>
<%call head3()%>
<%call ALLClose()%>

