<%
'==================================
'   乘风网址 v2.0 版本
'   网　站：http://www.qqcf.com
'   演示地址：http://www.qqcf.com/
'   制　作: 乘　风
'   QQ:36599940   E-MAIL: showme99@126.com	
'   声　明:	
'   本软件系免费软件,免费版本有些功能限制,如需要请付费购买完全版。
'   乘风其它产品:乘风网站推广系统,乘风免费电影全站程序,乘风多用户记数器asp版,
'                乘风多用户记数器php版,乘风广告管理系统,乘风论坛等
'   更多产品和建设网站中遇到任何问题请来乘风网站瞧瞧.
'   作者还有偿为各类网站制作各类后台系统.
'   这段注释不会影响网页速度，请保留，在遇到问题时可以寻求作者帮助，谢谢!
'												2005年8月14日									
'===================================
%>
<!--#include file="qqcf_conn.asp"-->
<!--#include file="qqcf_chkstr.asp"-->
<%
ID=Request("ID")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_WebSite Where ID="&ID
Rs.Open Sql,Conn,3,2
Rs("Total")=Rs("Total")+1
Rs("LastVisitTime")=Now()
Rs.Update
Url=Rs("Url")


 Sql="Select Count(*) From WWW_QQCF_COM_Counter Where AddDate=#"&Date()&"#"
 Set Rs=Conn.ExeCute(Sql)

 If Rs(0)=0 Then
  Sql="Insert Into WWW_QQCF_COM_Counter (Counter,AddDate) Values (1,#"&Date()&"#)"
 Else
  Sql="Update WWW_QQCF_COM_Counter Set Counter = Counter+1 Where AddDate=#"&Date()&"#"
 End If
Rs.Close
Conn.Execute Sql

If RsSet("AdBanner")=0 Then  Response.Redirect Url
%>

<html>
<head>
<meta http-equiv='Content-Language' content='zh-cn'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>飞扬网址　 程序制作：激情飞扬 QQ：99686532 http://www.51fy.cn</title>
<link rel="stylesheet" href="css/style.css" type="text/css">
</head>
<frameset rows='20,*' frameborder='NO' border='0' framespacing='0' cols='*'>

<frame name='main2' src=QQCF_GoUrlTop.Asp?ID=<%=ID%> noresize scrolling=no>

<frame name='contents' target='main' src="<%=Url%>" noresize scrolling=yes frameborder='NO'>

<noframes>
<body bgcolor='#FFFFFF' text='#000000'>
您的浏览器不支持框架！
</body>
</noframes>
</frameset>
</html>
