a.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#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%>&amp;ids=<%=classid%>">
<timer value="10"/>
<p>
欢迎光临<a href='<%=uull%>?o=<%=o%>&amp;ids=<%=classid%>'><%=dname%></a>
<!--#include file="66hcw.asp"-->