发信人: liangdinfu(潇湘公子)
整理人: i_am_trueman(2003-10-22 16:08:11), 站内信件
|
<%
'ASP链接MYSQL的程序
'需要装MYSQLODBC驱动 下载地址：http://www.mysql.com/downloads/api-myodbc-2.50.html
'E-MAIL:[email protected] QQ:1345932 '整理时间：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><TDusername</TD><TD>password</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
%>
----
在我英雄年少时，有一个女生，她愿意为我失去生命——她意志坚定地说：你再缠着我，我就去死……. 在我负笈外地时，有一个女生，她愿意等我直到下辈子——她柔婉约地说：你想成为我男朋友，下辈子吧……。 在我穷困潦倒时，有一个女生，她愿意与我共赴黄泉——她眼眶泛红地说:今天你再不还我钱我就和你同归于尽…… |
|