conn.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.buffer = true
dim startTime
dim anysaleNow,anysale
dim iserr,errNote,sucNote,infoNote
dim conn,db,myDbPath
startTime = timer()
myDbPath = "/"

'const codeFile = "getCode.asp" '验证码文件，直接修改文件名，同时在空间上修改相应的文件名。
'const isUrlreWrite = 0 '伪静态设置 0=开闭,1=开启（需要在IIS添加ISAPI筛选，详细查看安装帮助）。
'系统采用XML版本设置
'最高版本为.4.0 依次为： const MsxmlVersion=".3.0" const MsxmlVersion=".2.6" 最低版本const MsxmlVersion=""
'const msxmlVersion=".3.0"
'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
const isSqlDataBase = 0

'================================================================================================================
if isSqlDataBase = 1 Then
	'必修改设置二：========================SQL数据库设置=============================================================
	'sql数据库连接参数：数据库名(sqlDatabaseName)、用户密码(sqlPassword)、用户名(sqlUsername)、
	'连接名(sqlLocalName)（本地用local，外地用IP）
	const sqlDatabaseName = "anysale2"
	const sqlPassword = "anysale"
	const sqlUsername = "sa"
	const sqlLocalName = "(local)"
	'================================================================================================================
	anysaleNow = "getDate()"
else
	'必修改设置三：========================access数据库设置==========================================================
	'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将anysale2.mdb修改为anysale2.asp
	db = "data/anysale2.mdb"
	'================================================================================================================
	anysaleNow = "now()"
end if

const anysaleVersion="v2.0.0"
	connDatabase
set anysale = new myAnySale
sub connDatabase()
	dim connStr
	if isSqlDataBase = 1 Then
		connStr = "provider = sqloledb; user ID = " & sqlUsername & "; password = " & sqlPassword & "; initial catalog = " & sqlDatabaseName & "; data source = " & sqlLocalName & ";"
	else
		connStr = "provider = microsoft.jet.OLEDB.4.0;data source = " & server.mapPath(myDbPath & db)
	end if
	on error resume next
	set conn = server.CreateObject("ADODB.Connection")
	conn.open connStr
	if err then
		err.clear
		set conn = nothing
		response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">"
		response.write "数据库连接出错，请检查连接字串。"
		response.end
	end if
end sub

sub closeConn()
    on error resume next
    if isObject(conn) then
        conn.close
        set conn = nothing
    end if
end sub
%>