ASP:rs.getRows()
±¾ÎÄת×Ô£ºhttp://hi.baidu.com/viewhainan/blog/item/663d68605e7de942ebf8f80a.html
GetRows()·½·¨
Êǽ«Êý¾Ý´Ó Recordset ¸´ÖƵ½¶þάÊý×éÖУ¬ÕâÊÇÒ»¸ö¶þάÊý×飬µÚÒ»¸öϱê±êʶ×ֶΣ¬µÚ¶þ¸öÔò±êʶ¼Ç¼ºÅ£¬ËùÒÔ rsArray = rs.GetRows() rsArray(0, 0)¾Í±íʾ¼Ç¼¼¯µÚÒ»ÐеĵÚÒ»×Ö¶ÎÖµ rsArray(1, 0)¾Í±íʾ¼Ç¼¼¯µÚÒ»Ðеĵڶþ×Ö¶ÎÖµ Êý×éµÄÊý¾ÝÊDZ£´æÔÚÄÚ´æÖеģ¬Õâ¾Í´Ó¸ù±¾ÉϽâ¾öÁËÿ´ÎÏÔʾ¼Ç¼»¹ÐèÏòÊý¾Ý¿âÇëÇóµÄÂé·³
²Î¿¼:
¹ØÓÚGetRows()µÄÏêϸ½éÉܺÍÓ÷¨£º
GetRows ·½·¨
½« Recordset ¶ÔÏóµÄ¶à¸ö¼Ç¼»Ö¸´µ½Êý×éÖС£
Óï·¨
array = recordset.GetRows( Rows, Start, Fields )
·µ»ØÖµ ·µ»Ø¶þάÊý×é¡£
²ÎÊý
Rows ¿ÉÑ¡£¬³¤ÕûÐͱí´ïʽ£¬Ö¸¶¨Òª¼ìË÷¼Ç¼Êý¡£Ä¬ÈÏֵΪ adGetRowsRest (-1)¡£
Start ¿ÉÑ¡£¬×Ö·û´®»ò³¤ÕûÐÍ£¬¼ÆËãµÃµ½ÔÚ GetRows ²Ù×÷¿ªÊ¼´¦µÄ¼Ç¼µÄÊéÇ©¡£Ò²¿ÉʹÓÃÏÂÁÐ BookmarkEnum Öµ¡£³£Á¿ ˵Ã÷ AdBookmarkCurrent ´Óµ±Ç°¼Ç¼¿ªÊ¼¡£ AdBookmarkFirst ´ÓÊ׼Ǽ¿ªÊ¼¡£ AdBookmarkLast ´Óβ¼Ç¼¿ªÊ¼¡£
Fields ¿ÉÑ¡£¬±äÌåÐÍ£¬´ú±íµ¥¸ö×Ö¶ÎÃû¡¢Ë³ÐòλÖá¢×Ö¶ÎÃûÊý×é»ò˳ÐòλÖúš£ADO ½ö·µ»ØÕâЩ×Ö¶ÎÖеÄÊý¾Ý¡£
˵Ã÷
ʹÓà GetRows ·½·¨¿É½«¼Ç¼´Ó Recordset ¸´ÖƵ½¶þάÊý×éÖС£µÚÒ»¸öϱê±êʶ×ֶΣ¬µÚ¶þ¸öÔò±êʶ¼Ç¼ºÅ¡£µ± GetRows ·½·¨·µ»ØÊý¾ÝʱÊý×é±äÁ¿½«×Ô¶¯µ÷Õûµ½ÕýÈ·´óС¡£ Èç¹û²»Ö¸¶¨ Rows ²ÎÊýµÄÖµ£¬GetRows ·½·¨½«×Ô¶¯¼ìË÷ Recordset ¶ÔÏóÖеÄËùÓмǼ¡£Èç¹ûÇëÇóµÄ¼Ç¼±È¿ÉÓüǼ¶à£¬Ôò GetRows ½ö·µ»Ø¿ÉÓüǼÊý¡£ Èç¹û Recordset ¶ÔÏóÖ§³ÖÊéÇ©£¬Ôò¿ÉÒÔͨ¹ý´«Ë͸üǼµÄ Bookmark ÊôÐÔÖµ£¬À´Ö¸¶¨ GetRows ·½·¨½«´ÓÄĸö¼Ç¼¿ªÊ¼¼ìË÷Êý¾Ý¡£ ÈçÒª
Ïà¹ØÎĵµ£º
×î½ü¹À¼ÆºÜ¶àÈ˶¼Åöµ½ºÍÎÒͬÑùµÄÎÊÌ⣬¾ÍÊÇÒòΪɨ»Æ¼°±¸°¸¹ÜÀí·Ç³£ÑÏ£¬Ò»¸öû±¸°¸Ö±½Ó¹Ø·þÎñÆ÷£¬Ò»¸ö»ÆÕ¾Ö±½Ó·â»ú·¿¡£ÏÖÔÚÍøÕ¾ËùÓÐÓòÃû±ØÐèͨ¹ý±¸°¸£¬ÒÔǰ»¹Ëɵ㡣µ«ÎÒÃÇ·þÎñÆ÷100¶à¸ö£¬×ܲ»ÄÜÒ»¸öÒ»¸ö¼ì²é°É£¬ÉÏÍøËÑÁËÏ£¬Óиö³ÌÐòÉÔºÏÊÊ£¬µ«µ¼³öµÄÊÇÍøÕ¾ÓòÃûÕ¾µãÃû£¬ÎÒÐÞ¸ÄΪµ¼³öÓòÃûÁÐ±í£¬Í¬Ê±½â¾öÁ˵¼³öÒ»¸öÕ¾µã°ó¶¨¶à¸ ......
<div id="storyScroller" style="width:100%;height:140px;line-height:28px;overflow:hidden;">
<div id="storyScrollMid">
<ul id="storyScrollUl" style=" list-style-type:circle; list-style-position: outside; margin-left:18px; margin-right:0px">
<li>item01</l ......
<%
function dt(v)
dim dy
dy=31
Marr=array(4,6,9,11)
yyyy=Year(Date())
mm=Month(Date())
dd=Day(Date())
if mm=2 then
if yyyy mod 400 or (yyyy mod 4=0 and yyyy mod v0=0) then
dy=29
else
dy=28
end if
else
for i=0 to 3
......
<%
Function RemoveHTML( strText )
Dim TAGLIST
TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
&n ......