¡¾·±ÌåÖÐÎÄ¡¿
¡¾ÉèΪÊ×Ò³¡¿
¡¾¼ÓÈëÊղء¿
µ±Ç°Î»ÖãºASP¼¼ÊõÊ×Ò³ >> ASP»ù´¡ >> ÓÃGetStringÀ´Ìá¸ßASPµÄËÙ¶È(¿ÉÒÔÁÐÈëרÀ¸µÄÎÄÕÂ)

ÓÃGetStringÀ´Ìá¸ßASPµÄËÙ¶È(¿ÉÒÔÁÐÈëרÀ¸µÄÎÄÕÂ)

2006-06-15 08:00:00  ×÷Õߣº  À´Ô´£º»¥ÁªÍø  ä¯ÀÀ´ÎÊý£º0  ÎÄ×Ö´óС£º¡¾´ó¡¿¡¾ÖС¿¡¾Ð¡¡¿
¼ò½é£ºÓÃGetStringÀ´Ìá¸ßASPµÄËÙ¶È Ðí¶àASP³ÌÐòÔ±¶¼ÓйýÖ´ÐÐÊý¾Ý¿â²éѯ,È»ºó½«²éѯ½á¹ûÓÃHTML±í¸ñµÄÐÎʽÏÔʾ³öÀ´µÄ¾­Àú°É. ͨ³£ÎÒÃÇÊÇÕâô×öµÄ: < % 'Create connection / recordset 'Populate data into recordset ob...

ÓÃGetStringÀ´Ìá¸ßASPµÄËÙ¶È

Ðí¶àASP³ÌÐòÔ±¶¼ÓйýÖ´ÐÐÊý¾Ý¿â²éѯ,È»ºó½«²éѯ½á¹ûÓÃHTML±í¸ñµÄÐÎʽÏÔʾ³öÀ´µÄ¾­Àú°É. ͨ³£ÎÒÃÇÊÇÕâô×öµÄ:

< %

'Create connection / recordset

'Populate data into recordset object

% >

< TABLE >

< % Do While not rs.EOF % >

< TR >

< TD >< %=rs("Field1")% >< /TD >

< TD >< %=rs("Field2")% >< /TD >

...

< /TR >

< % rs.MoveNext

Loop % >

< /TABLE >

Èç¹û²éѯ½á¹ûºÜ¶à,·þÎñÆ÷½âÊÍÄãµÄASP script½«»¨·Ñ´óÁ¿µÄʱ¼ä,ÒòΪÓÐÐí¶àµÄResponse.WriteÓï¾äÒª´¦Àí. Èç¹ûÄ㽫Êä³öµÄÈ«²¿½á¹û·ÅÔÚÒ»¸öºÜ³¤µÄ×Ö·û´®Àï(´Ó< TABLE >µ½< /TABLE >),ÄÇô·þÎñÆ÷Ö»Ðè½âÊÍÒ»±éResponse.WriteÓï¾ä,ËٶȾͻá¿ìµÃ¶à. ΢Èí¹«Ë¾ÀïµÄһЩÄܸɵļһïÒѾ­½«Ïë·¨±ä³ÉÁËÏÖʵ. (×¢Òâ,ÕâÊÇÒ»¸öADO 2.0²ÅÓеÄÌØÐÔ. Èç¹ûÄ㻹ÔÚʹÓÃADO 1.5»°,¿ÉÒÔÔÚhttp://www.microsoft.com/data/download.htmÃâ·ÑÏÂÔØADO 2.0)

ÓÐÁËGetString·½·¨,ÎÒÃǾͿÉÒÔ½öÓÃÒ»¸öResponse.WriteÀ´ÏÔʾËùÓеÄÊä³öÁË,Ëü¾ÍÏóÊÇÄÜÅжÏRecordsetÊÇ·ñΪEOFµÄDO ... LOOPÑ­»·.

GetStringµÄÓ÷¨ÈçÏÂ(ËùÓеIJÎÊý¶¼ÊÇ¿ÉÑ¡µÄ):

String = recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)

Òª´ÓRecordsetµÄ½á¹ûÀïÉú³ÉHTML±í¸ñ,ÎÒÃÇÖ»Ðè¹ØÐÄGetStringµÄ5¸ö²ÎÊýÖеÄ3¸ö: ColumnDelimiter(·Ö¸ô¼Ç¼¼¯µÄÁеÄHTML´úÂë),RowDelimiter(·Ö¸ô¼Ç¼¼¯µÄÐеÄHTML´úÂë),ºÍNullExpr(µ±Ç°¼Ç¼Ϊ¿ÕʱӦÉú³ÉµÄHTML´úÂë). ¾ÍÏóÄãÔÚÏÂÃæÉú³ÉHTML±í¸ñµÄÀý×ÓÀïËù¿´µ½µÄÄÇÑù,ÿÁÐÓÃ< TD >...< /TD >·Ö¸ô,ÿÐÐÓÃ< TR >...< /TR >·Ö¸ô. À´¿´¿´Àý×ӵĴúÂë°É.

< %@ LANGUAGE="VBSCRIPT" % >

< % Option Explicit 'Good coding technique

'Establish connection to DB

Dim conn

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DSN=Northwind;"

'Create a recordset

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "SELECT * FROM table1", conn

'Store our one big string

Dim strTable

strTable = rs.GetString(,,"< /td >< td >","< /td >< /tr >< tr >< td >"," ") % >

< HTML >

< BODY >

< TABLE >

< TR >< TD >

< % Response.Write(strTable) % >

< /TR >< /TD >

< /TABLE >

< /BODY >

< /HTML >

< %

'Cleanup!

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

% >

strTable×Ö·û´®ÓÃÓÚ´æ·ÅÎÒÃÇ´Ó"SELECT * FROM table1"½á¹ûÉú³ÉµÄHTML±í¸ñµÄ´úÂë. HTML±í¸ñµÄÿÁÐÖ®¼ä¶¼½«ÓÐ< /td >< td >µÄHTML´úÂë,ÿÐÐÖ®¼äµÄHTML´úÂëÊÇ< /td >< /td >< tr >< td >. GetString·½·¨½«Êä³öÕýÈ·µÄHTML´úÂë²¢´æ·ÅÔÚstrTableÖÐ,ÕâÑùÎÒÃÇÖ»ÐèÒ»ÐÐResponse.Write±ã¿ÉÒÔÊä³öÊý¾Ý¼¯ÖеÄËùÓмǼ. ÈÃÎÒÃÇÀ´¿´¸ö¼òµ¥µÄÀý×Ó,¼ÙÉèÎÒÃǵIJéѯ½á¹û·µ»ØÁËÒÔϵÄÐкÍÁÐ:

Col1 Col2 Col3

Row1 Bob Smith 40

Row1 Ed Frank 43

Row1 Sue Void 42

ÄÇôGetStringÓï¾ä·µ»ØµÄ×Ö·û´®½«ÊÇ:

Bob< /td >< td >Smith< /td >< td >40< /td >< td >< /td >< /tr >< tr >< td >Ed ...

˵ʵ»°,Õâ¸ö×Ö·û´®¿´ÉÏÈ¥Èß³¤¶øÔÓÂÒ,µ«Ëü¾ÍÊÇÎÒÃÇÏëÒªµÄHTML´úÂë. (×¢Òâ¿´,ÎÒÃÇÔÚÊÖ¹¤ÊéдµÄHTML´úÂëÖÐ,½«< TABLE >< TR >< TD >·ÅÔÚResponse.WriteµÄÇ°Ãæ,½«< /TD >< /TR >< /TABLE >·ÅÔÚËüµÄºóÃæ. ÕâÊÇÒòΪÎÒÃǵĸñʽ»¯×Ö·û´®Öв¢²»º¬ÓÐÕâЩ±í¸ñͷβËùÐèµÄ×Ö·û´®.)

Charles CarrollµÄÎÄÕÂ:http://www.learnASP.com/learn/dbgetstring.ASP½²ÊöÁËÈçºÎÓÃGetStringÀ´Éú³ÉÒ»¸öSELECT box. ÎÒÏë¶ÔÄãÃÇÒ²ÊǺÜÓаïÖúµÄ¡£

ÔðÈα༭£ºadmin
±¾ÎÄÒýÓõØÖ·£º http://www.3pcode.com/asp/2006/06/83365.htm
Ïà¹ØÎÄÕÂ