cf.asp

动态自定义报表,真正的中国式报表,可自行编辑

<%
'==================================
' 乘风网址 v3.1
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风网址功能：
' 1.同时支持Access和Mssql数据库
' 2.完全生成静态页面，包括每个网址转向页面
' 3.支持修改模板，支持二级栏目
' 4.自带4000多条网址数据，支持系统放在网站子目录
' 乘风其它作品：乘风多用户计数器.net,php,access,MsSql版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年12月25日									
'===================================
%>
<!--#include file="Conn.asp"-->
<!--#include file="QQCF_MyFunction.asp"-->
<%
ID=ChkStr(Request.QueryString("ID"),2)

If DbType=1 Then
 Sql="Update WWW_QQCF_COM_CFWZ_WebSite Set Total=Total+1,Lastvisittime=Now() Where ID="&ID
 Conn.ExeCute Sql

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

 If Rs(0)=0 Then
  Sql="Insert Into WWW_QQCF_COM_CFWZ_Counter (Counter) Values (1)"
 Else
  Sql="Update WWW_QQCF_COM_CFWZ_Counter Set Counter = Counter+1 Where AddDate=#"&Date()&"#"
 End If
 Conn.Execute Sql
 Rs.Close
 Conn.Close
ElseIf DbType=2 Then
 Sql="Update WWW_QQCF_COM_CFWZ_WebSite Set Total=Total+1,Lastvisittime=getdate() Where ID="&ID
 Conn.ExeCute Sql

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

 If Rs(0)=0 Then
  Sql="Insert Into WWW_QQCF_COM_CFWZ_Counter (Counter) Values (1)"
 Else
  Sql="Update WWW_QQCF_COM_CFWZ_Counter Set Counter = Counter+1 Where AddDate='"&Date()&"'"
 End If
 Conn.Execute Sql
 Rs.Close
 Conn.Close
End if
%>