<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
DbAddress="localhost" '请输入Sqlserver服务器的IP地址，数据库和推广系统在同一台服务器上只要填写localhost就可以
DbUser="sa"           '请输入连接Sqlserver服务器的用户名
DbPassword="cf1234"     '请输入连接Sqlserver服务器的密码
DbName="cfcountsql"     '请输入Sqlserver服务器的数据库名称
DbPort="1433"          '默认为1433,一般此处不需要更改



On Error Resume Next
If DbPort="1433" Then
 DbPort=""
Else
 DbPort=","&DbPort
End If

ConnStr="Provider = Sqloledb;Data Source ="&DbAddress&DbPort&";User ID ="&DbUser&";Password ="&DbPassword&";Initial Catalog ="&DbName&";"
Set Conn = Server.CreateObject ("Adodb.Connection")
Conn.Open ConnStr
If Err Then
 err.Clear
 Set Conn = Nothing
 Response.Write "数据库连接出错，请检查连接字串。"
 Response.End
End If

'--是否开启通用防注入，0：不开启，1：开启，默认为：0，注程序中已经做过防注入处理了,这里一般设置关闭就可以了
InjGuard=0

'--是否允许超级管理员后台数据库管理里在线执行Sql，0：否，1：是，默认为0
AdminOnlineExecSql=0

If InjGuard=1 Then
SQL_injdata = "'|insert|update|delete|truncate|creat|declare|varchar"
SQL_inj = split(SQL_Injdata,"|") 

If Request.QueryString<>"" Then 
 For Each SQL_Get In Request.QueryString 
  For SQL_Data=0 To Ubound(SQL_inj) 
   if instr(Lcase(Request.QueryString(SQL_Get)),Sql_Inj(Sql_DATA))>0 Then 
    Response.Write "网址中包含非法字符"&Sql_Inj(Sql_DATA)
    Response.End 
   End If
  Next
 Next
End If

If Request.Form<>"" Then 
 For Each Sql_Post In Request.Form 
  For SQL_Data=0 To Ubound(SQL_inj) 
   if instr(Lcase(Request.Form(Sql_Post)),Sql_Inj(Sql_DATA))>0 Then 
    Response.Write "表单中包含非法字符"&Sql_Inj(Sql_DATA)
    Response.end 
   End If 
  Next 
 Next 
End If

If Request.Cookies<>"" Then
 For Each Sql_Cookies In Request.Cookies
  For SQL_Data=0 To Ubound(SQL_inj)
   if instr(Lcase(Request.Cookies(Sql_Cookies)),Sql_Inj(Sql_DATA))>0 Then
    Response.Write "Cookies中包含非法字符"&Sql_Inj(Sql_DATA)&",请在 IE选项-常规 里删除Cookiess再执行操作!"
    Response.end
   End If
  Next
 Next
End If
End If


Set RsSet=Server.CreateObject("Adodb.RecordSet")
Sql="Select Top 1 * From CFCount_Admin Order By ID"
RsSet.Open Sql,Conn,1,1


'系统随机码
SysCode=RsSet("SysCode")
'系统名称
SysTitle=RsSet("SysTitle")
'非关键表保留的记录表
StoreRsTotal=RsSet("StoreRsTotal")
'--普通用户是否可以自定义文字
SelfTextState=RsSet("SelfTextState")

'背景图片地址
BgImgPath="templet/default/images/bg"&RsSet("SkinType")&".gif"
'菜单背景图片地址
MenuBgImgPath="templet/default/images/topmenubg"&RsSet("SkinType")&".gif"
'表格边框颜色
TableBorderColor=GetSkinColor(RsSet("SkinColor"),0)
'表格行的标题背景颜色
TableHeadBgColor=GetSkinColor(RsSet("SkinColor"),1)
'字体颜色
FontColor=GetSkinColor(RsSet("SkinColor"),2)
'链接颜色：
LinkColor=GetSkinColor(RsSet("SkinColor"),3)
'点过的链接颜色
LinkOverColor=GetSkinColor(RsSet("SkinColor"),4)
%>