qqcf_conn.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<%
SysCode="12345678" '在这里设置8个以上任意字符，请不要使用默认值12345678或容易破解的字符，这个保证数据库就算被盗，不知道此编码也无法侵入程序
MdbName="qqcf_wztg #.mdb" '数据库名称设置，使用默认值的话至少要设置上面的SysCode以保证安全,最好把qqcf_data里的默认数据库名称换一个名称，换好后在这个填写。

'以下是其它一些系统设置参数，一般情况请不要更改
UploadType=1 '上传图片组件类型，1为无组件上传，2使用AspUpload组件上传
IpAreaSwitch=1 '是否显示IP对应的地区，0不支持,1为支持
HourKeepDay=7 '小时统计的保留天数,默认为7天
DayKeepMonth=2 '每日统计记录保留的月数，默认为2个月
'其它设置结束

'在线支付设置开始
Online_Pay=1 '是否支持快钱在线支付,0不支持,1为支持,设置为1时你需要在www.99bill.com上注册一个个人高级账号填写以下两个参数
merchant_id="88990511121639870" '商户编号
merchant_key="adpflasoerpwqras"  '商户密钥
'在线支付设置结束


'轮循广告设置开始
CycleAdState=1 '是否启用轮循广告设置,可以设置最多6组轮循广告，每组里最多可以包括6个广告

CycleAd_1_State=1 '是否启用第1组轮循广告设置,1为开启，0为关闭
Cyclead_1_SonAd="4,9" '第1组广告包含的广告的ID，最多可以设置6个广告，广告ID可以在后台查看到，形式如1,2,3广告ID间用英文逗号隔开
CycleAd_1_Width=468 '第1组轮循广告的宽度
CycleAd_1_Height=60 '第1组轮循广告的高度

CycleAd_2_State=0 '是否启用第2组轮循广告设置,1为开启，0为关闭
Cyclead_2_SonAd="3,4" '第2组广告包含的广告的ID，广告ID可以在后台查看到
CycleAd_2_Width=768 '第2组轮循广告的宽度
CycleAd_2_Height=100 '第2组轮循广告的高度

CycleAd_3_State=0 '是否启用第3组轮循广告设置,1为开启，0为关闭
Cyclead_3_SonAd="3,4" '第3组广告包含的广告的ID，广告ID可以在后台查看到
CycleAd_3_Width=120 '第3组轮循广告的宽度
CycleAd_3_Height=60 '第3组轮循广告的高度


CycleAd_4_State=0 '是否启用第4组轮循广告设置,1为开启，0为关闭
Cyclead_4_SonAd="3,4" '第4组广告包含的广告的ID，广告ID可以在后台查看到
CycleAd_4_Width=120 '第4组轮循广告的宽度
CycleAd_4_Height=60 '第4组轮循广告的高度


CycleAd_5_State=0 '是否启用第5组轮循广告设置,1为开启，0为关闭
Cyclead_5_SonAd="3,4" '第5组广告包含的广告的ID，广告ID可以在后台查看到
CycleAd_5_Width=120 '第5组轮循广告的宽度
CycleAd_5_Height=60 '第5组轮循广告的高度


CycleAd_6_State=0 '是否启用第6组轮循广告设置,1为开启，0为关闭
Cyclead_6_SonAd="3,4" '第6组广告包含的广告的ID，广告ID可以在后台查看到
CycleAd_6_Width=120 '第6组轮循广告的宽度
CycleAd_6_Height=60 '第6组轮循广告的高度
'轮循广告设置结束



Dim Conn   
Dim ConnStr
On Error Resume Next
ConnStr="DBQ="+Server.MapPath("qqcf_data/"&MdbName)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject ("Adodb.Connection")
Conn.Open ConnStr

If Err Then
 err.Clear
 Set Conn = Nothing
 Response.Write "数据库连接出错，请检查连接字串。"
 Response.End
End If


Set RsSet=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfWztg_Admin"
RsSet.Open Sql,Conn,1,1
%>