?<!--#include file="66hc.asp"--><!--#include file="opfw.asp"-->
<%
dim wwid,nhame,uhrl
wwid=usb(request("wid"))
if wwid="" then wwid="0"
set rs0=Server.CreateObject("ADODB.Recordset")
sql0="select * from [66hc_url] where [66hc_id]="&wwid&""
rs0.open sql0,conn,2,3
if rs0.eof then
uhrl="/index.asp"
nhame="錯誤地址"
Else
if rs0("zdsj")=clng(datv) then
rs0("66hc_jrc")=rs0("66hc_jrc")+1
rs0("lc")=rs0("lc")+1
rs0.update
else
rs0("66hc_zr")=rs0("66hc_jr")
rs0("66hc_jr")=1
rs0("66hc_zrc")=rs0("66hc_jrc")
rs0("66hc_jrc")=1
rs0("zdsj")=datv
rs0("lc")=rs0("lc")+1
rs0.update
end if
uhrl=rs0("66hc_url")
nhame=ubb(rs0("66hc_name"))
njr=ubb(rs0("66hc_jr"))
njrc=ubb(rs0("66hc_jrc"))
nzr=ubb(rs0("66hc_zr"))
nzrc=ubb(rs0("66hc_zrc"))
nzl=ubb(rs0("66hc_zl"))
nlc=ubb(rs0("lc"))
end if
rs0.close
set rs0=nothing
%>
<%if tj=0 then%>
<card id="login" title="正在進入<%=nhame%>" ontimer="<%=uhrl%>">
<timer value="10"/>
<p>
正在進入<a href='<%=ubb(uhrl)%>'><%=nhame%></a><br/>
<%if xll=1 then%>[進]今日:<%=njr%>|昨日<%=nzr%><br/>[出]今日:<%=njrc%>|昨日<%=nzrc%><br/>[總]進入:<%=nzl%>|連出<%=nlc%><br/><%end if%>
<%else%>
<card id="login" title="<%=nhame%>">
<p>
立即訪問<a href='<%=ubb(uhrl)%>'><%=nhame%></a><br/>
<%if xll=1 then%>[進]今日:<%=njr%>|昨日<%=nzr%><br/>[出]今日:<%=njrc%>|昨日<%=nzrc%><br/>[總]進入:<%=nzl%>|連出<%=nlc%><br/><%end if%>
<%end if%>
<!--#include file="66hcw.asp"-->