主頁(yè) > 知識(shí)庫(kù) > 讓ASP搭配MYSQL

讓ASP搭配MYSQL

讓ASP搭配MYSQL

所需要工具

   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>
  TDb>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>
  TDb>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
  %>

標(biāo)簽：蚌埠衢州衡水棗莊萍鄉(xiāng) 大理江蘇廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《讓ASP搭配MYSQL》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

佳木斯湛栽影视文化发展公司

讓ASP搭配MYSQL

QQ咨詢

電話咨詢