[點(diǎn)晴永久免費(fèi)OA]讓ASP搭配MYSQL數(shù)據(jù)庫(kù)
所需要工具:
mysql-4.1.11-win32 myodbc-3.51.11-1-dll myodbc-3.51.11-1-win mysqlcc-0.9.4-win32 ------------------------------------------------------------------- 注冊(cè)文件Mydbc.reg: REGEDIT4 [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\myodbc driver] "UsageCount"=dword:00000002 "Driver"="C:\\WINDOWS\\System\\myodbc.dll" "Setup"="C:\\WINDOWS\\System\\myodbc.dll" "SQLLevel"="1" "FileUsage"="0" "DriverODBCVer"="03.51" "ConnectFunctions"="YYY" "APILevel"="1" "CpTimeout"="120" [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers] "myodbc driver"="installed" ------------------------------------------------------------------- 建立ASP文件鏈接數(shù)據(jù)庫(kù),例子如下: Windows DSN name: 所要建立DSN的名稱 Mysql Host (name or ip):Mysql服務(wù)器的名稱或者是IP地址,通常填localhost Mysql database name: admin Database: admin password: 000000 Port(if not 3306): SQL command on connect: 下面兩種鏈接數(shù)據(jù)庫(kù)的ASP代碼: 1. 使用DSN <% strConnection = "dsn=admin;driver={myodbd driver};server=localhost;uid=root;pwd=000000;database=admin" Set adoDataConn = Server.createObject("ADODB.Connection") adoDataConn.Open strConnection strQuery = "select * from user" Set rs = adoDataConn.execute(strQuery) If Not rs.BOF Then %> <TABLE> <TR> <TD<b>username</b></TD> <TD><b>password</b></TD> </TR> <% Do While Not rs.EOF %> <TR> <TD><%=rs("username")%></TD> <TD><%=rs("password")%></TD> </TR> <% rs.MoveNext Loop %> </TABLE> <% Else Response.Write("Sorry, no data found.") End If rs.Close adoDataConn.Close Set adoDataConn = Nothing Set rsEmailData = Nothing %> 2. 不使用DSN <% strconnection="DefaultDir=;Driver={myodbc driver};database=admin" Set adoDataConn = Server.createObject("ADODB.Connection") adoDataConn.Open strConnection strQuery = "select * from user" Set rs = adoDataConn.execute(strQuery) If Not rs.BOF Then %> <TABLE> <TR> <TD<b>username</b></TD> <TD><b>password</b></TD> </TR> <% Do While Not rs.EOF %> <TR> <TD><%=rs("username")%></TD> <TD><%=rs("password")%></TD> </TR> <% rs.MoveNext Loop %> </TABLE> <% Else Response.Write("Sorry, no data found.") End If rs.Close adoDataConn.Close Set adoDataConn = Nothing Set rsEmailData = Nothing %> 該文章在 2022/7/5 1:32:16 編輯過 |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... |