| <% 'ASP链接MYSQL的程序 '需要装MYSQLODBC驱动 下载地址http://www.mysql.com/downloads/api-myodbc-2.50.html 'E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net '整理时间：Thursday, May 23, 2002 5:54 PM WIN2000SERVER+IIS5 测式通过 strConnection = "dsn=user" 'strconnection="DefaultDir=;Driver={myodbc driver};database=bbs" Set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection strQuery = "SELECT * FROM user where username="kaxi"" Set rs= Server.CreateObject("ADODB.Recordset") rs.open strQuery,strConnection,2,1 response.write rs.recordcount 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("对不起，没有找到您需要的数据") End If rs.Close adoDataConn.Close Set adoDataConn = Nothing %> |