<%
'========================以下参数由系统自动生成，不用在此直接修改======================================
Call SqlError(1)
Response.Buffer = True
IsSqlDataBase = {$ask@IsSqlDataBase}
If IsSqlDataBase = 1 Then
	SqlDatabaseNameask = "{$ask@SqlDatabaseNameask}"
	SqlPasswordask = "{$ask@SqlUsernameask}"
	SqlUsernameask = "{$ask@SqlPasswordask}"
	SqlLocalName = "{$ask@SqlLocalName}"
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsernameask & "; Password = " & SqlPasswordask & "; Initial Catalog = " & SqlDatabaseNameask & "; Data Source = " & SqlLocalName & ";"
Else
	DbFile = "{$ask@setupurl}{$ask@askDBFile}"
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbFile)
End If
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
	Err.Clear
	Set Conn = Nothing
	Call Info("打开数据库发生错误！",1,"")
End If
On Error GoTo 0

%>