<% Dim conn,strconn,mmdb mmdb="%23rss.mdb" '数据库路径名字 'ACCESS数据库连接 'OLEDB链接 'strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"") 'ODBC链接(较老) 'strconn="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&mmdb&"") 'sqlserver数据库连接 'OLEDB链接 'strconn ="Provider=Sqloledb;UserID=movie;Password=movie;Initial Catalog=(local);Data Source=mymovie;" 'ODBC链接(较老) strconn="Driver={sql server};server=(local);uid=movie;pwd=movie;database=mymovie;" 'Oracle数据库连接 'OLEDB链接 'strconn="Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;" 'ODBC链接(较老) '"Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;" 'MStext连接 'OLEDB链接 '"Provider=microsof.jet.oledb.4.0;data source=your_path;Extended Properties'text;FMT=Delimited'"" 'ODBC链接(较老) '"Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;extensions=asc,csv,tab,txt;Persist SecurityInfo=false;" 'dBase连接 'ODBC链接(较老) '"Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;" 'Visual Foxpro连接 'ODBC链接(较老) '"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;" 'MySQL连接 'ODBC链接(较老) '"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;" 'response.write(strconn) '测试语句 '调试的时候把on error resume next注释掉,否则有些错误你就看不到了 'on error resume next Set conn = Server.CreateObject("ADODB.Connection") conn.Open strconn if err then err.clear set conn=nothing conn.Close Response.Write "
本网站正在进行日常维护，请稍候再来！
”
Response.End
‘else
‘response.Write(“连接成功”)
end if
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
function RealString(strSrc)
RealString = Replace(Trim(strSrc), “‘”, “’”)
end function
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), “‘”, “’”))
Convert = Replace(Convert, chr(13), “
“)
end function
%>
<%
Dim conn,strconn,mmdb
'更改数据库名字
mmdb="#test.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&mmdb&"")
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'strconn="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&mmdb&"")
'如果是是用sqlserver的用下面的连接方法
strconn="Driver={sql server};server=192.168.0.110;database=wawa;uid=sa;pwd=sa;"
'response.write(strconn) '测试语句
'调试的时候把on error resume next注释掉,否则有些错误你就看不到了
on error resume next
conn.Open strconn
if err then
err.clear
conn.Close
Response.Write "
本网站正在进行日常维护，请稍候再来！
”
Response.End
‘else
‘response.Write(“连接成功”)
end if
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
function RealString(strSrc)
RealString = Replace(Trim(strSrc), “‘”, “’”)
end function
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), “‘”, “’”))
Convert = Replace(Convert, chr(13), “
“)
end function
%>