conn.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Dim Conn,ConnStr,Startime,SqlNowString,ACCdbPath,sitidata
Startime = Timer()
'必修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库===============================
Const IsSqlDataBase = 0
'================================================================================================================
'必修改设置二：======================ACCESS数据库目录设置（必须为绝对地址即前后都加“/”）======================================================
'根目录直接填写数据库目录名称"/databas/"即可（注意名称前后必须带上“/”，且不要使用中文名称），
'其他目录（二级、三级或多极）应在数据库目录名称前加多极目录的名称。（如放在001目录下则输入“/001/databas/”）
ACCdbPath="/JsIcewebv/databas/"
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置三：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（外地数据库用IP地址（注意端口号），
'本地可以用(local)代替IP地址，当出现连接错误时换用IP地址一般都能解决）
Const SqlDatabaseName = "JsIce"
Const SqlPassword = "123456789"
Const SqlUsername = "sa"
Const SqlLocalName = "(local)"
'================================================================================================================
SqlNowString = "GetDate()"
Else
SqlNowString = "Now()"
End If
	If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
sitidata = "#data#bas.mdb"
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&ACCdbPath&""&sitidata&"")
	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 "主数据库连接出错，请检查根目录中数据库连接文件的连接设置。"
		Response.End
	End If
'-----------------------------------------------------------------------------------------------------
sub connclose()
conn.close
set conn=nothing
end sub
dim connstrItem
dim connItem,Itemdata
Set connItem = Server.CreateObject("ADODB.Connection")
Itemdata="#Item.Mdb"
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&ACCdbPath&""&Itemdata&"")
connItem.Open connstrItem
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "采集数据库连接出错，请检查根目录中数据库连接文件的连接设置。"
   Response.End
End If

Sub CloseConnItem()
   ConnItem.close
   Set ConnItem=nothing
End sub
dim connstrTemp
dim connTemp,Tempdatd
Set connTemp = Server.CreateObject("ADODB.Connection")
Tempdata="#Temp.Mdb"
connstrTemp="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&ACCdbPath&""&Tempdata&"")
connTemp.Open connstrTemp
If Err Then
   err.Clear
   Set ConnTemp = Nothing
   Response.Write "模板数据库连接出错，请检查根目录中数据库连接文件的连接设置。"
   Response.End
End If
set rsend=connTemp.execute("select top 1 Id from Template where IsDefault=1")
if rsend.eof then
	TempId=0
else
	TempId=rsend("Id")
end if
rsend.close
set rsend=Nothing

Sub CloseConnTemp()
   ConnTemp.close
   Set ConnTemp=nothing
End sub

Function CheckSql(str)
dim textstr
textstr=LCase(str)
textstr=replace(textstr,"'","")
textstr=replace(textstr,"%","")
textstr=replace(textstr,",","")
textstr=replace(textstr," ","")
textstr=replace(textstr,"%20","")
textstr=replace(textstr,"insert","")
textstr=replace(textstr,"select","")
textstr=replace(textstr,"update","")
textstr=replace(textstr,"count","")
textstr=replace(textstr,"delete","")
textstr=replace(textstr,"where","")
CheckSql=textstr
End Function

Function CheckSqlnum(str)
if IsNumeric(str)=false then
response.write "<script language=javascript>alert('数据错误，请检查所有数字内容是否有误！');history.back(-1);</script>"
response.End
end if
End Function
%>