<%
mydata=1
'on error resume next '容错处理

if mydata=1 then '这里如果等于1则说明使用SQL数据库

'---------------------数据库类型及路径定义---------------------

dim conn,connstr,strSQLServerName,strSQLDBUserName,strSQLDBPassword,strSQLDBName
strSQLServerName = "127.0.0.1"      '服务器名称或地址
strSQLDBUserName = "sa"    '数据库帐号
strSQLDBPassword = "1111"    '数据库密码,这个是我的，改成你自己的
strSQLDBName = "snsn.net"  '数据库名称
userid=1 
response.buffer=true '启用缓冲处理
Set conn = Server.CreateObject("ADODB.Connection") 
conn.ConnectionTimeout = 10 '设置connection对象连接数据库的逾期时间
conn.CommandTimeout = 20 '设置执行execute方法时间
conn.CursorLocation = 3 '将记录存放在游览器端
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open connstr


elseif mydata=2 then '如果不等于2则使用ACCESS数据库


'------------ACCESS数据库连接--------------------------------------------
db="/mini.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr


else '如果不等于1也不等于2则提示错误

response.write "数据库连接错误，请修改Conn文件夹中的Conn.asp文件"
response.end

end if '结束
%>
