[其他] ASP中各种数据库连接代码

1. MS Access数据库连接
   
2. 用DSN连接并且没有用户名和密码：
   
3. <%
   
4. set conn = Server.CreateObject("ADODB.Connection")
   
5. conn.open "YourDSNName"
   
6. %>
   
7. 用DSN连接并且有用户名和密码：
   
8. <%
   
9. set conn = Server.CreateObject("ADODB.Connection")
   
10. conn.open "YourDSNName","username","password"
    
11. %>
    
12. 用实际的数据库绝对路径连接：
    
13. <%
    
14. Set conn = Server.CreateObject("ADODB.Connection")
    
15. Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
    
16. Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
    
17. conn.Open Strconn
    
18. %>
    
19. 用实际的数据库相对路径连接：
    
20. <%
    
21. Set conn = Server.CreateObject("ADODB.Connection")
    
22. Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
    
23. Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
    
24. conn.Open Strconn
    
25. %>
    
26. 
    
27. MS SQL Server数据库连接
    
28. 用DSN连接：
    
29. <%
    
30. set conn = Server.CreateObject("ADODB.Connection")
    
31. conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
    
32. %>
    
33. 不用DSN连接：
    
34. <%
    
35. Set conn = Server.CreateObject("ADODB.Connection")
    
36. DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
    
37. conn.open DSNtemp
    
38. %>
    
39. 
    
40. FoxPro数据库连接
    
41. <%
    
42. Set Conn = Server.CreateObject("ADODB.connection")
    
43. ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"
    
44. Conn.Open ConnStr
    
45. %>
    
46. 
    
47. Oracle数据库连接：
    
48. <%
    
49. set conn=server.createobject("adodb.connection")
    
50. conn.cursorlocation=adUseClient
    
51. DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
    
52. conn.open DSNtemp
    
53. %>

复制代码