ÓÃ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. ÎÒÏë¶ÔÄãÃÇÒ²ÊǺÜÓаïÖúµÄ¡£

