让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_MACHINESOFTWAREODBCODBCINST.INImyodbc 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_MACHINESOFTWAREODBCODBCINST.INIODBC 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 %>

　　推荐阅读

　　显示在线人数

<%NowUrl=request.servervariables("HTTP_REFERER")UserName = session("Wenday_sys_User")if UserName="" then UserName="客人"end ifcall sqlonline()Response.Write "document.write(" & chr(34) & " <font >>>详细阅读

本文标题：让ASP搭配MYSQL

地址：http://www.17bianji.com/kaifa2/ASP/33239.html

 1/2    1