mysql| Program | link | data <%
' ASP link MySQL program
' Need to install MYSQLODBC driver download address: http://www.mysql.com/downloads/api-myodbc-2.50.html
' E-mail:kaxue@hotmail.com qq:484110 HOMEPAGE:www.Flyday.net
' Finishing Time: Thursday, May, 2002 5:54 PM WIN2000SERVER+IIS5-Test Pass
strconnection = "Dsn=user"
' strconnection= ' defaultdir=;D river={myodbc Driver};d Atabase=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 but not Rs. Eof
%>
<tr><td><%=rs ("username")%></td><td><%=rs ("password")%></td></tr >
<%
Rs. MoveNext
Loop
%>
</TABLE>
<%
Else
Response.Write ("Sorry, didn't find the data you need")
End If
Rs. Close
Adodataconn.close
Set Adodataconn = Nothing
%>