程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> MYSQL數據庫 >> 關於MYSQL數據庫 >> 98系統中用ASP訪問MYSQL數據庫

98系統中用ASP訪問MYSQL數據庫

編輯:關於MYSQL數據庫

環境是Windows98+PWS4.0+MySQL-3.23.32-win+PHP4 必要的軟件:PWS4.0, mysql-3.23.32-win, myodbc-2.50.36-dll(這個是最重要的,MYSQL ODBC的驅動程序www.MySQL.com下載)

第一步:

安裝MySQL ODBD的驅動程序,將下載的myodbd-2.50.46-dll文件復制到windows\system目錄下(Windows2000 是winnt/system32) 然後建立一新文件,擴展名為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"="02.50"  



"ConnectFunctions"="YYY"  



"APILevel"="1"  



"CpTimeout"="120"  



[HKEY_LOCAL_MacHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers]  



"myodbc driver"="installed"  



保存後雙擊該文件,將上面代碼注冊到WINDOWS注冊表中。 如果安裝在Windows2000中,則Driver和Setup主鍵的值要做相應改變,這裡我想就不用多說了。 如果成功,在控制面板/ODBD數據源的驅動程序裡將看到myodbd driver這一項!

第二步:

建立ASP文件鏈接數據庫。

這裡有兩種方法,一種是在ODBC數據源中建立一個系統DSN。後來我發現不建立也可以在ASP中使用MYSQL,方 法在下文將講道。 打開控制面板/ODBD數據源,選擇系統DSN,然後添加一個新的DSN,驅動程序選擇myodbd driver,會出現一個對 話框供輸入mysql相關信息。 Windows DSN name: 所要建立DSN的名稱 Mysql Host (name or ip):Mysql服務器的名稱或者是IP地址,通常填localhost Mysql database name:需要使用數據庫的名稱,數據庫在Mysql管理程序中建立。這裡我們使用一個例子。數 據庫名:hc188 裡面有數據表:user 數據表有兩個字段分別是:username和password,隨便插入幾個 數據。 user:鏈接數據庫的用戶名,我填的是root超級用戶 passWord:鏈接數據庫用戶密碼,如果沒有,可以不填 Port(if not 3306):MySQL在服務器的端口,如果不填默認為3306 SQL command on connect:使用sql命令鏈接數據庫,這項可以不填 填寫完畢後選擇OK保存。

下面鏈接數據庫的ASP代碼!

lt;%

trConnection = "dsn=hc188;driver={myodbd driver};server=localhost;uid=root;pwd=;database=hc188"

Set adoDataConn = Server.CreateObject("ADODB.Connection")

adoDataConn.Open strConnection

trQuery = "SELECT * FROM user"

Set rs = adoDataConn.Execute(strQuery)

If Not rs.BOF Then

%>

lt;TABLE>

lt;TR>

lt;TDusername

lt;TD>passWord

lt;/TR>

lt;%

Do While Not rs.EOF

%>

lt;TR>

lt;TD><%=rs("username")%>

lt;TD><%=rs("password")%>

lt;/TR>

lt;%

rs.MoveNext

Loop

%>

lt;/TABLE>

lt;%

Else

Response.Write("Sorry,

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved