conn.asp

小说站源代码文件

<%@ 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="/1.0/databas/"
'================================================================================================================
If IsSqlDataBase = 1 or IsSqlDataBase = 2 Then
'必修改设置三：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（外地数据库用IP地址（注意端口号），
'本地可以用(local)代替IP地址，当出现连接错误时换用IP地址一般都能解决）
Const SqlDatabaseName = "book"
Const SqlPassword = ""
Const SqlUsername = "root"
Const SqlLocalName = "localhost"
Const MySQLdsn = "myodbc"
Const MySQLdriver = "3.51"
'================================================================================================================
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 & ";"
	Elseif IsSqlDataBase = 0 Then
	sitidata = "#data#bas.mdb"
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&ACCdbPath&sitidata&"")
	Elseif IsSqlDataBase = 2 Then
		ConnStr = "dsn=" & MySQLdsn & ";driver={mySQL ODBC " & MySQLdriver & " driver};database=" & SQLDatabaseName & ";server=" & SQLLocalName & ";uid=" & loginName & ";pwd=" & loginPassword & ";OPTION=3;stmt=SET NAMES GB2312"
	End If
'	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		Set Conn = Nothing
		Response.Write "主数据库连接出错，请检查根目录中数据库连接文件的连接设置。<br>"
		Response.Write Err.Description
		Response.End
		err.Clear
	End If
'-----------------------------------------------------------------------------------------------------
sub connclose()
conn.close
set conn=nothing
end sub
dim connstrItem
dim connItem,Itemdata
Itemdata="#Item.Mdb"
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&ACCdbPath&Itemdata&"")
connItem.Open connstrItem
If Err Then
	Set ConnItem = Nothing
	Response.Write "采集数据库连接出错，请检查根目录中数据库连接文件的连接设置。<br>"
	Response.Write Err.Description
	Response.End
	err.Clear
End If

Sub CloseConnItem()
	ConnItem.close
	Set ConnItem=nothing
End sub
dim connstrTemp
Tempdata="#Temp.Mdb"
Set connTemp = Server.CreateObject("ADODB.Connection")
connstrTemp="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&ACCdbPath&Tempdata&"")
connTemp.Open connstrTemp
If Err Then
	Set ConnTemp = Nothing
	Response.Write "模板数据库连接出错，请检查根目录中数据库连接文件的连接设置。<br>"
	Response.Write Err.Description
	Response.End
	err.Clear
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,"insert","ＩnＳerＴ")
textstr=replace(textstr,"select","ＳeＬecＴ")
textstr=replace(textstr,"update","ＵpＤatＥ")
textstr=replace(textstr,"count","ＣoＵnt")
textstr=replace(textstr,"delete","ＤeＬetＥ")
textstr=replace(textstr,"where","ＷheＲe")
textstr=replace(textstr,"execute","ＥxＥcutＥ")

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
%>