?? a.asp
字號:
?<!--#include file="66hc.asp"-->
<%
if jfl=1 then
uull="class.asp"
elseif jfl=0 then
uull="index.asp"
else
uull="/index.asp"
end if
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then response.redirect "index.asp?o="&o
dim nhame,uhrl
set rs0=Server.CreateObject("ADODB.Recordset")
sql0="select * from [66hc_url] where [66hc_id]="&o&""
rs0.open sql0,conn,2,3
if not rs0.eof then
'計算今日連入和總連入
if rs0("zdsj")=clng(datv) then
rs0("66hc_time")=now()
rs0("66hc_jr")=rs0("66hc_jr")+1
rs0("66hc_zl")=rs0("66hc_zl")+1
if dsh=2 then rs0("zt")=1
rs0.update
else
rs0("66hc_zr")=rs0("66hc_jr")
rs0("66hc_jr")=1
rs0("66hc_zrc")=rs0("66hc_jrc")
rs0("66hc_jrc")=0
rs0("66hc_time")=now()
rs0("zdsj")=datv
rs0("66hc_zl")=rs0("66hc_zl")+1
if dsh=2 then rs0("zt")=1
rs0.update
end if
classid=rs0("66hc_fid")
end if
rs0.close
set rs0=nothing
if fsj<>0 and fsj<>"" then
sql="update [66hc_url] set zt=2 Where "&datv&"-zdsj="&fsj&" and kz=0"
conn.Execute(sql)
end if
if ssj<>0 and ssj<>"" then
sql="delete from [66hc_url] Where "&datv&"-zdsj="&ssj&" and kz=0 and zt=2"
conn.Execute(sql)
end if
%>
<card id="login" title="進入" ontimer="<%=uull%>?o=<%=o%>&ids=<%=classid%>">
<timer value="10"/>
<p>
歡迎光臨<a href='<%=uull%>?o=<%=o%>&ids=<%=classid%>'><%=dname%></a>
<!--#include file="66hcw.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -