2conn.asp

来自「网络办公系统源码」· ASP 代码 · 共 57 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
'--定义数据库类别，1为SQL数据库，0为Access数据库
Const isSqlDataBase = 1
Dim NowString
Dim ConnStr
If IsSqlDataBase = 1 Then
	'-----------------------MSSQL数据库连接参数---------------------------------------
	Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
	NowString = "GetDate()"
	SqlDatabaseName = "Northwind"     '数据库名
	SqlUsername = "sa"          '用户名
	SqlPassword = "123456"          '用户密码
    SqlLocalName = "127.0.0.1"        '连接名（本地用local，外地用IP）
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	'-------------------------------------------------------------------------------
Else
	'-----------------------ACCESS数据库连接----------------------------------------
	'NowString = "Now()"
	'ACCESS数据库连接,请使用根路径或者绝对路径
	'db="/database/Intime_Data.mdb"
	'db=Intime_DBpath&db
	'Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(db)
	'-------------------------------------------------------------------------------
End If
Sub OpenConn()
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。"
		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
call Openconn
'-------------发送邮件信息------------------------------------------------

%>
<script language="javascript">
function sel(a){ 
o=document.getElementsByName(a) 
for(i=0;i<o.length;i++) 
o[i].checked=event.srcElement.checked 
}
</script>