¸ßÊִͽ̡£aspºÍmysqlÁ¬½ÓµÄÎÊÌ⣡
ÎÒдµÄÓï¾äÈçÏ£º
<table border="2"> <tr> <td>
<%
Dim sConnection, Conn , objRS
'SERVERΪÊý¾Ý¿âÖ÷»úÃû£¨±¾µØÖ÷»úÓÃlocalhost,Ô¶³ÌÓÃIPµØÖ·£©£»DATABASEΪÊý¾Ý¿âÃû£»UIDΪÓû§Ãû£»PASSWORDΪÃÜÂë
sConnection = "DRIVER={mysql odbc 3.51 driver}; SERVER=58.64.162.184; DATABASE=my10080; my;PASSWORD=sz123; OPTION=3"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(sConnection)
'ÒÔÏÂSQLÓï¾äΪʾÀýÓï¾ä£¬Çë¸ù¾Ýʵ¼ÊÇé¿öÐÞ¸Ä
Set objRS = Conn.Execute("SELECT jieshao,tupian from wangzhanzhi where id=1")
While Not objRS.EOF 'while...wendÑ»·£¬ÓÃÓÚ¶ÁÈ¡ËùÓеÄÐÅÏ¢
Response.Write objRS.Fields("jieshao") & ", " & objRS.Fields("tupian") & " <br>"
objRS.MoveNext '¼Ç¼¼¯Ö¸ÕëÏÂÒÆ
Wend
%>
</td> </tr> </table>
³öµÄ´íÎóÈçÏ£º
Microsoft OLE DB Provider for ODBC Drivers ´íÎó '80004005'
[Microsoft][ODBC Çý¶¯³ÌÐò¹ÜÀíÆ÷] δ·¢ÏÖÊý¾ÝÔ´Ãû³Æ²¢ÇÒ
Ïà¹ØÎÊ´ð£º
ÎÒÕÒÁËÒ»¸öα¾²Ì¬´úÂ룬ÈçÏ£º
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls
Namespace CBDAspNet.WebControls.HTML
''' <summary>
'' ......
asp ÎÒ²»Õ¦¸ö¶«£¬ÎÒÊÇ×öasp.netµÄµ«ÊÇǰÕß¿´¶®Ó¦¸ÃûÓÐÎÊÌ⣬ÎÒÔÙά»¤Ç°ÃæµÄÒ»¸öÍøÕ¾£¬µ«ÊÇ£¬½ñÌìÎÒÒ²²»ÖªµÀÊÇÔõô¶¯ÁË·þÎñÆ÷ºÍÊý¾Ý¿â£¬µ¼ÖÂÎÒaspÒ³ÃæÃ»ÓÐʹÓÃÊÓͼֱ½Ó´Ó±íÖлñµÃµÄÊý¾ÝÕý³£ÏÔʾ£¬¶øÄÇЩʹÓÃÁËÊÓͼÀ´ ......
ÓÐÒ»¸öÀà
class adc
{
dim a,b,c
}
ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý
class getmenber
{
dim menbers()
function getmenbers(resclass)
'resΪһδ֪Àà
'getmenber ......