让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

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

注册文件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,搭配,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。