页面导航： 首页 → 网络编程 → ASP编程 → ASP基础 → 正文内容

发布：dxy 字体：[增加 减小] 类型：转载

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

文章评论

共有 位脚本之家网友发表了评论我来说两句