conn.asp

这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=========================================================
' 文件：Conn.asp
' 功能：为系统创建数据库链接，兼容Access和Sql Server
' 版本：爱雪儿内容管理系统 Version 1.1.0
' 时间：2006-01-09
' 作者：Guidy
' 版权：爱雪儿工作室 [iXuEr Studio]
'=========================================================
' Copyright (C) 2005-2008 iXuEr.Net All Rights Reserved .
' 官方网站：http://www.ixuer.net/
' 技术论坛：http://bbs.ixuer.net/
' 电子信箱：[e-mail]
'=========================================================
Option Explicit
Response.Buffer = True

Dim StarTime, EndTime, SqlNowString
Dim Conn, DBPath, DB, ConnStr, MyPath, MyRootPath, QQWryPath
Const IsDeBug = 1 ' 取值非0时是调试模式，1只显示数据库查询的错误信息，2会显示所有错误信息
MyPath = "" : MyRootPath = ""
' -------------------------------------------------------------------------------------------------------------------------
' 可修改设置：======================== 用于定义服务器端对象创建 =============================
' 这里所有的内容都是本系统要用到的组件对象，集合在这里是为了大家修改方便，同时也是为了解决杀毒软件误报的问题
' 例如：有的服务器端FSO组件进行过改名，那么您可以在这里定义自己的FSO组件对象名称
' 例如：一些杀毒软件，根据特征码"ADODB.Stream"来判断是否Asp木马，如果您修改成"ADO" & "DB.Str" & "eam"，那么就可以躲避查杀
' -------------------------------------------------------------------------------------------------------------------------
Const ServerObject_001 = "ADODB.Connection" 			' ＋必须 数据库链接对象
Const ServerObject_002 = "ADODB.RecordSet" 				' ＋必须 数据库记录集操作对象
Const ServerObject_003 = "ADODB.Stream" 				' ＋必须 文件流操作组件

Const ServerObject_004 = "Scripting.Dictionary" 		' ＋必须 内置 字典对象
Const ServerObject_005 = "Scripting.FileSystemObject" 	' ＋必须 内置 文件系统组件

Const ServerObject_006 = "JMail.Message" 				' －可选 JMail邮件收发组件
Const ServerObject_007 = "CDONTS.NewMail" 				' －可选 CDONTS邮件收发组件
Const ServerObject_008 = "Persits.MailSender" 			' －可选 AspEmail邮件收发组件
Const ServerObject_009 = "CDO.Message" 					' －可选 内置 Window 2003 New SendMailCom Object
Const ServerObject_010 = "CDO.Configuration"			' －可选 内置 CDO的Configuration对象

Const ServerObject_011 = "Persits.Upload"				' －可选 AspUpload 3.0 组件
Const ServerObject_012 = "Persits.UploadProgress"		' －可选 AspUpload 3.0 组件 上传进度对象 此组件在iXs_UpLoadAspUp3.asp有单独项目，要修改请同时修改
Const ServerObject_013 = "SoftArtisans.FileUp"			' －可选 SA-FileUp 4.0 组件
Const ServerObject_014 = "DvFile.Upload"				' －可选 DvFile.Upload 1.0 组件

Const ServerObject_015 = "CreatePreviewImage.cGvbox"	' －可选 CreatePreviewImage 组件
Const ServerObject_016 = "Persits.Jpeg"					' －可选 AspJpeg 1.2 组件
Const ServerObject_017 = "SoftArtisans.ImageGen"		' －SoftArtisans ImgWriter V1.21组件

Const ServerObject_018 = "MSXML2.XMLHTTP"				' ＋必须 MSXML2.XMLHTTP 对象
Const ServerObject_019 = "Microsoft.XMLDOM"				
Const ServerObject_020 = "JRO.JetEngIne"				' ＋必须 JRO.JetEngIne 对象，在本系统中应用于数据库压缩，只要有数据库链接对象，这个也应该存在
' -------------------------------------------------------------------------------------------------------------------------
StarTime 	= Timer()
MyRootPath 	= ""
QQWryPath 	= "DataBase/QQWry.dat" 'QQ IP库路径，要转换成物理路径
' -------------------------------------------------------------------------------------------------------------------------
' 可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0

If IsSqlDataBase = 1 Then
' 必修改设置二：========================SQL数据库设置=============================================================
	' sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
	' 连接名(SqlLocalName)（本地用local，外地用IP）
	Const SqlDatabaseName 	= "iXuEr_Pams_1" 	' 数据库名
	Const SqlUsername 		= "iXuEr_Studio"	' 用户名
	Const SqlPassword 		= "iXuEr_Studio"	' 用户密码
	Const SqlLocalName 		= "(local)"			' 连接名
	' ================================================================================================================
	SqlNowString = "GetDate()"
Else
' 必修改设置三：========================Access数据库设置==========================================================
	' 免费用户第一次使用请在Inc/MyDbPath.asp中修改数据库地址和名称
	' 或者进入控制面板进行数据库改名
%>
<!--#include file="Include/MyDbPath.asp" -->
<%
	' ================================================================================================================
	SqlNowString = "Now()"
End If
' ============================================
' 函数名称：ConnectionDatabase
' 函数功能：为全站创建主数据库连接
' 其他说明：该函数可以容错
' 传入参数：
'   1、p_Type：要创建的对象类型，用于区分独立数据库对象
' 返回结果：返回执行的数据库连接对象
' ============================================
Function ConnectionDatabase(p_Type)
	On Error Resume Next
	If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
		'第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyRootPath & DB)
	End If
	
	Select Case p_Type
		Case 1
		Case 2
		Case 3
		Case Else ' 系统默认数据库对象，集成数据库联机
			Set Conn = Server.CreateObject(ServerObject_001)
			Conn.Open ConnStr
	End Select
	
	If Err Then
		Err.Clear
		If IsObject(Conn) Then Set Conn = Nothing
		Call SystemError(1, 1)
	End If
End Function
' ============================================
' 函数名称：CloseDB
' 函数功能：为全站关闭主数据库连接
' ============================================
Function CloseDB()
	If IsObject(Conn) Then Conn.Close : Set Conn = Nothing
End Function
%>