conn.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日									
'===================================
%>
<%
dim conn   
dim connstr
on error resume next

DBType=1 '数据库类型,1为Access,2为Mssql 

If DbType=1 Then
 DBPath = "QQCF_Data/QQCF_Wz #.Mdb"'Access数据库
 
 ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DBPath)
Elseif DbType=2 Then
 DbAddress="127.0.0.1" '请输入Sqlserver服务器的IP地址，数据库和推广系统在同一台服务器上只要填写127.0.0.1就可以
 DbUser="sa"           '请输入连接Sqlserver服务器的用户名
 DbPassword="qq36599940"     '请输入连接Sqlserver服务器的密码
 DbName="cfwzsql"     '请输入Sqlserver服务器的数据库名称 
 DbPort="1433"          '默认为1433,一般此处不需要更改 


 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&";"
End If

set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr


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

If InjGuard=1 Then
SQL_injdata = "'|'"
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 * From WWW_QQCF_COM_CFWZ_Admin"
RsSet.Open Sql,conn,1,1 
%>