Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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·þÎñÆ÷ ÓÃÓÚÊÖ»ú°²×°²âÊÔ³ÌÐò

À¶ÑÀ»µµôÁË£¬ÕâÑùÒ»À´ ÊÖ»ú°²×°³ÌÐò±äµÃºÜ²»·½±ãÁË¡£Ò»¿ªÊ¼ÊÇÏȰÑÒª°²×°µÄ³ÌÐòÒÔ¸½¼þµÄÐÎʽ·¢µ½ÓÊÏä ÔÙÔÚÊÖ»úÉÏÅäÖÃÓÊÏä ÈúóÏÂÔØ¸½¼þ°²×°£¬ÕâÑùËäÈ»½â¾öÁËÎÊÌâ  µ«ÊÇ»¹ÊÇÓкܶ಻·½±ãµÄµØ·½¡£ ÓÚÊÇ  ×Ô¼ºÏë´î½¨Ò»¸ö·þÎñÆ÷ Ö±½ÓʵÏÖÔÚÏß°²×°¡£Ç°ÌáÊÇÊÖ»úÖ§³Öwifi£¬¾ÍÊÇ˵ÐèÒªÊÖ»ú·ÃÎÊÄÚÍøµØÖ·£¬·ñÔòµÃ»° ¾Í±È½Ï ......

ÓÃASP×öÒ»¸ö¼Çʱ¾±à¼©Æ÷

<%@ Language=VBScript %>
<SCRIPT id=DebugDirectives runat=server language=javascript>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</SCRIPT>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
< ......

aspÖÐÅжÏinput±êÇ©ÊäÈëÊÇ·ñΪÊý×Ö

<input name="total" type="text" value="<%=webcounter%>" size="12" onbeforepaste="clipboarddata.setdata('text',clipboarddata.getdata('text').replace(/[^\d]/g,''))"
   onkeydown="subOnKeyDown()"
   onkeyup="value=value.replace(/[^\d]/g,'')"/>
ʹÓúó Èç¹ûÊäÈëΪ·ÇÊý×Ö ......

¼òµ¥µÄ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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ