Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¹ØÓÚASP Recordset ·ÖÒ³³öÏÖ¸ºÊý½â¾ö·½·¨¼°½¨Òé


¶ÔÓÚRecordset·Öҳʱ³öÏÖ¸ºÊýµÄÏÖÏó£¬ÏàÐÅ»áÓкܶàÈËÓöµ½¹ýÕâ¸öÎÊÌ⣬ÓÐʱ°Ù¶È¡¢GOOGLEÒ²²»µÃÆä½â£¬ÏÖÔÚÓÉÎÒÀ´×ܽáһϡ£
³öÏÖ¸ºÊý£¬Ö÷ÒªºÍÓαêÀàÐÍÓйØÏµ¡££¨Îª¾ÙÀý·½±ã£¬¼ÙÉèÒѾ­ÓÐÒ»¸öconn.aspÁ´½ÓÊý¾Ý¿âµÄÎļþ²¢ÇÒÒѾ­include£©ÏÖÔÚ¾ÙÒ»¸öÀý×Ó£¬´úÂëÈçÏ£º
'=======================================================
          sql="Select * from ±íÃû where Ìõ¼þ order by ID desc"    'ÕâÀïµÄorder by Ìõ¼þ¿É¸ù¾Ý×Ô¼ºÐèÒª¸Äд
          Set rs=conn.execute(sql)      '===×¢ÒâÒ»ÏÂÕâÒ»¾ä===
          rs.pagesize=10      '===ÉèÖÃÿҳµÄ¼Ç¼ÊýΪ10===
          page=request.querystring("page")
          If page="" Then page=1
          If Not IsNumeric(page) Then page=1
          page=clng(page)
          If page<1 Then page=1
          If page>rs.pagecount Then page=Vrs.pagecount
          rs.absolutepage=page
         dim c
         c=1
         Do while Not rs.eof And c<=rs.pagecount
              'Êä³öÄÚÈÝ
         c=c+1
         rs.movenext
         Loop
         '×öÒ³ÃæµÄÁ´½Ó
'=======================================================
¸ù¾ÝÉÏÃæµÄ´úÂ룬RecordSet¶ÔÏóÖ±½ÓÓÉ´úÂ룺Set rs=conn.execute(sql)£¬Ê¹Óøþäºó£¬RecordSe


Ïà¹ØÎĵµ£º

ASP»ù´¡½Ì³Ì:ADO´æÈ¡Êý¾Ý¿âʱÈçºÎ·ÖÒ³ÏÔʾ

ʲôÊÇ ADO ´æÈ¡Êý¾Ý¿âʱµÄ·ÖÒ³ÏÔʾ£¿Èç¹ûÄãʹÓùýĿǰÖÚ¶àÍøÕ¾Éϵĵç×Ó¹«¸æ°å³ÌÐòµÄ»°£¬ÄÇÄãÓ¦¸Ã»áÖªµÀµç×Ó¹«¸æ°å³ÌÐòΪÁËÌá¸ßÒ³ÃæµÄ¶ÁÈ¡ËÙ¶È£¬Ò»°ã²»»á½«ËùÓеÄÌû×ÓÈ«²¿ÔÚÒ»Ò³ÖÐÂÞÁгöÀ´£¬¶øÊǽ«Æä·Ö³É¶àÒ³ÏÔʾ£¬Ã¿Ò³ÏÔʾһ¶¨ÊýÄ¿µÄÌû×ÓÊý£¬Æ©Èç 20 Ìõ¡£Õâ¾ÍÊÇÊý¾Ý¿â²éѯµÄ·ÖÒ³ÏÔʾ£¬Èç¹ûÄ㻹²»Ã÷°×£¬È¥¿´¿´ yahoo µÈËÑË÷ ......

ASP ÏÞÖÆ·¢Ìûʱ¼ä ºÍ µÇ½ÏÞÖÆ


н¨Á¢Ò»¸öASPÎļþ °Ñ ÒÔÏ´úÂë¸´ÖÆ½øÈ¥
<%
ip=request.ServerVariables("REMOTE_ADDR") '»ñÈ¡À´·ÃµÄIPµØÖ·
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '½¨Á¢Êý¾Ý¿âÁ¬½Ó ÕâÀïÄã¿ ......

ASpÁ¬½ÓÊý¾Ý¿â

1. ASPÁ¬½ÓAccessÊý¾Ý¿âÓï¾ä
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("www/bbs.mdb")+";DefaultDir=;DRIVER={Microsoft
AccessDriver(*.mdb)};"
Conn.Open connstr
ÆäÖÐSet Conn=Server.CreateObject("ADODB.Connection")Ϊ½¨Á¢Ò»¸ö·ÃÎÊÊý¾ÝµÄ¶ÔÏó
server.mappath("w ......

¼òµ¥µÄASP·ÀË¢ÐÂͼ±ê¼ÆÊýÆ÷´úÂë

<%
    dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
   if session("agai ......

aspÒ³Ãæ³öÏÖÂÒÂë

½ñÌìÔÚÓÃutf-8±àÂëÓÃÔÚеÄÍøÕ¾ÉÏ£¬²»ÏëÎÊÌâ»¹Õæ¶à£¬ËùÒÔÕÒÁËЩÎÄÕ£¬Ìû×Ó£¬¿´ÁË¿´£¬µÈÏÂÓÐÓõľÍÌùÏÂÃæÁË¡£
½ñÌ죬ÎÒ¿ªÊ¼°Ñ CODEPAGE="936" ¸Ä³É CODEPAGE="65001"
°Ñcharset=gb2312¸Ä³É charset=utf-8
¿ÉÊÇ»¹ÊÇÂÒÂ룬ֻҪÊǽű¾Óõĵط½»¹ÊÇÂÒÂ룬ÏÖÔÚÖÕÓÚÕÒµ½ÎÊÌâÁË£¬¾ÍÊǵ±½Å±¾Êä³öʱºò£¬ÒªÒÔutf-8±àÂëÊä³ö¡£
¾ÍÊÇ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ