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

¼òµ¥µÄ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("again")="" then
     If Not rs.Bof And Not rs.Eof Then
      'Èç¹û¼Ç¼¼¯·Ç¿Õ£¬±íʾÒѾ­ÓзÃÎÊ´ÎÊý£¬Ôò¶ÁȡԭÓеķÃÎÊ´ÎÊý¼Ó1
      visitNum=rs("visitNum")+1
      '¸üÐÂÊý¾Ý¿â£¬½«Ô­ÓеķÃÎÊ´ÎÊý¼Ó1
      strSql="update counter set visitNum=visitNum+1 "
      db.Execute(strSql)
     Else
      'Èç¹û¼Ç¼¼¯Îª¿Õ£¬±íʾÕâÊǵÚ1λ¿Í»§£¬ÔòÁî·ÃÎÊ´ÎÊýΪ1
      visitNum=1
      'ÔÚÊý¾Ý¿âÖвåÈëÒ»Ìõ¼Ç¼£¬ÖµÎª1
      strSql="insert into counter(visitNum) values(1)"
      db.Execute(strSql)
     End If
   else visitNum=rs("visitNum")
   end if
   session("again")="again"
'ÏÂÃæÔÚÒ³ÃæÉÏÊä³öͼƬ
Dim strImage
For I=1 To Len(CStr(visitNum))
   strImage=strImage & "<img src=../image/count/" & Mid(CStr(visitNum),I,1) & ".gif>"
Next
Response.Write "<span class='font2'>ÄúÊÇµÚ " & strImage & " λ·Ã¿Í</span>"
%></td>
</tr>


Ïà¹ØÎĵµ£º

aspµÄÐĵÃ

    ASP²¿·Ö½²Êö£º   ¶ÔÓÚASPÀ´ËµÏàÐÅ´ó¼Ò¶¼²¢²»Ä°Éú£¬ÔÚÕâÀïÎҾͲ»ÀË·ÑÌ«¶àµÄʱ¼äÀ´½øÐвûÊöÁË¡£
       ÎÒÕâÀïÖ÷ÒªÊǼǼÁËÎÒÔÚ¶ÁASPʱµÄһЩÐĵúÍÎÒ×Ô¼ºÈÏΪӦ¸Ã×¢ÒâµÄµØ·½£¬Ï£ÍûÕâЩµãµãµÎµÎÄܹ»ÎªÄÇЩ³õѧµÄÅóÓÑÓÐÒ»¶¨µÄ°ïÖú£¬Í¬Ê±Ò²Ï£ÍûºÍÒѾ­ÓкÜÉî¾­ÑéºÍ ......

vfp/(asp/vfpdll/Sql)

ÒÔÏÂÊÇ·¢ÔÚ÷×ÓÂÛ̳µÄÌù×Ó£¬×ª·¢¹ýÀ´£¬Ï£Íû¸øÓõÃ×ŵĺüÓѲο¼¡£
ÎҵijÌÐòÒÔǰһֱÊÇÓû¨Éú¿Ç°ó¶¨IPʵÏÖµÄÔ¶³Ì£¬ÓÉÓÚ¿Í»§·þÎñÆ÷ºÍ¿Í»§¶Ë¶¼ÊÇͨ¹ý¿í´øÉÏÍø£¬Ò»°ãµÄ²Ù×÷£¨¿ª½ø»õµ¥¡¢ÏúÊÛµ¥µÈ£©ËÙ¶ÈÒ²»¹²»´í£¬µ«ÊÇÔÚÔ¶³Ì¿Í»§¶ËÐÞ¸ÄÉÌÆ·×ÊÁÏ£¨10000¶àÌõ¼Ç¼£©¡¢²éѯһ¶ÎʱÆÚµÄ½øÏú´æÁ÷Ë®£¨Ò»ÖÜ5000ÌõÒÔÉÏ£©µÈÉæ¼°µ½È¡¼Ç¼Á¿´óµ ......

ʹÓÃVB½«ASP´úÂë·â×°µ½DLLÎļþÍêÕûʵÀý

ʹÓÃVB½«ASP´úÂë·â×°µ½DLLÎļþÍêÕûʵÀý
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
ÓÃVB·â×°ASP£¬½¨Á¢SayHello²âÊÔ³ÌÐò
1¡¢´ò¿ªVB6£¬Ð½¨ActiveX DLL
2¡¢ÔÚ¹¤³ÌÒýÓÃÖмÓÈëMicrosoft Active Server Pages Object LibraryÑ¡Ôñ
3¡¢Ìî¼Ó´úÂëÈçÏ£º
'Code Start
'ÉùÃ÷²¿·Ö
Private MyScriptingContext ......

ASP¿Ø¼þ´óÈ«½²½â

4.1 ³£ÓõÄHTML¿Ø¼þ
4.1.1 ±íµ¥¿Ø¼þ
ÓÃÓÚ½ÓÊÕ¿Í»§¶ËµÄÊäÈ룬²¢½«ÊäÈëµÄ½á¹ûÌá½»¸ø·þÎñÆ÷´¦Àí
1.HtmlForm¿Ø¼þ
 ËùÓеÄWeb Form¿Ø¼þ±ØÐë°üº¬ÔÚÒ»¶ÔHtmlForm¿Ø¼þ±êÇ©ÖÐ
<Form
   Id = "¿Ø¼þ±êʶ"
   Runat = "Server"
   Method = "Post | Get"
   Action = "ÒªÖ´ÐÐ ......

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)}" '½¨Á¢Êý¾Ý¿âÁ¬½Ó ÕâÀïÄã¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ