欧美日韩精品二区,国产大片一区二区,免费欧美日韩

讓ASP搭配MYSQL

所需要工具

   mysql-4.1.11-win32
   myodbc-3.51.11-1-dll
   myodbc-3.51.11-1-win
   mysqlcc-0.9.4-win32

-------------------------------------------------------------------

注冊文件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文件鏈接數據庫
   例子如下
   Windows DSN name: 所要建立DSN的名稱
   Mysql Host (name or ip):Mysql服務器的名稱或者是IP地址，通常填localhost
   Mysql database name: admin
   Database: admin
   password: 000000
   Port(if not 3306):
   SQL command on connect:

下面兩種鏈接數據庫的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
  %>

標簽：麗江懷化成都天津公主嶺內江重慶臺灣

巨人網絡通訊聲明：本文標題《讓ASP搭配MYSQL》，本文關鍵詞讓,ASP,搭配,MYSQL,讓,ASP,搭配,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

讓ASP搭配MYSQL