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 ·½·¨½«´ÓÄĸö¼Ç¼¿ªÊ¼¼ìË÷Êý¾Ý¡£ ÈçÒª
Ïà¹ØÎĵµ£º
Õª×Ô£ºhttp://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO×é¼þÃû³Æ
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’¡ôÊÇ·ñÖ§³Ö×é¼þ
’=============================================== ......
Òý×Ô£ºhttp://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄÇé¿öÓÐÒÔϼ¸ÖÖ£º
1£©·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄaccessÊý¾Ý¿â
2£©·ÃÎÊÔ¶³ÌmssqlÊý¾Ý¿â»òoracleµÈÆäËû¹ØÏµÊý¾Ý¿â£¬µ«ÊÇÊý¾Ý¿âͨÐŶ˿ڱ»·À»ðǽ×èµ²»òÆäËûÍøÂçÔÒòÔì³ÉÎÞ·¨Ê¹Óøö˿Ú
±¾ÎĽöÔÚwindows2000 advance server,mdac2.8ϲâÊÔͨ¹ý£ ......
aspÖеÄrs.openÓÚconn.executeµÄÇø±ð
rs.open sql,conn£ºÈç¹ûsqlÊÇdelete,update,insertÔò»á·µ»ØÒ»¸ö¹Ø±ÕµÄ¼Ç¼¼¯£¬ÔÚʹÓùý³ÌÖв»ÒªÀ´¸örs.closeÔÚÎļþ×îºóÔÙдrs.close
Öмä¿ÉÒÔÀ´¶à¸ö¼Ç¼¼¯rs1.open sql1,conn£¬×îºóÒ»¿é¹Ø±Õ¼Ç¼¼¯:rs.close rs1.close
con ......
<%@Language="VBScript" CodePage="65001"%>
<% option explicit%>
<% on error resume next %>
<% Session.CodePage="65001" %>
<% response.charset="utf-8" %>
<%
dim conn,connstr,sql,rs,rs2,rs3
connstr="dbq=" & server.MapPath("../data091003/data09 ......
<%
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
......