<%
dim SqlInPwd
Server.ScriptTimeout	=500						
SqlInPwd				= "melyysoft"			'系统管理密码，请修改melyysoft为你自己的密码！
'--------数据库连接部分--------------
dim dbkillSql,killSqlconn,connkillSql
dbkillSql=Installdir&"database/#SqlIn.mdb"             '数据库网站目录绝对地址,如果网站目录为sql,则地址为:/sql/database/数据库地址.
'On Error Resume Next
Set killSqlconn = Server.CreateObject("ADODB.Connection")
connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql)
killSqlconn.Open connkillSql
If Err Then
	err.Clear
	Set killSqlconn = Nothing
	Response.Write "Sqlin_conn.asp数据库连接出错，请检查连接字串。"
	Response.End
End If

%>