¼òµ¥µÄ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ʱµÄһЩÐĵúÍÎÒ×Ô¼ºÈÏΪӦ¸Ã×¢ÒâµÄµØ·½£¬Ï£ÍûÕâЩµãµãµÎµÎÄܹ»ÎªÄÇЩ³õѧµÄÅóÓÑÓÐÒ»¶¨µÄ°ïÖú£¬Í¬Ê±Ò²Ï£ÍûºÍÒѾÓкÜÉî¾ÑéºÍ ......
ÒÔÏÂÊÇ·¢ÔÚ÷×ÓÂÛ̳µÄÌù×Ó£¬×ª·¢¹ýÀ´£¬Ï£Íû¸øÓõÃ×ŵĺüÓѲο¼¡£
ÎҵijÌÐòÒÔǰһֱÊÇÓû¨Éú¿Ç°ó¶¨IPʵÏÖµÄÔ¶³Ì£¬ÓÉÓÚ¿Í»§·þÎñÆ÷ºÍ¿Í»§¶Ë¶¼ÊÇͨ¹ý¿í´øÉÏÍø£¬Ò»°ãµÄ²Ù×÷£¨¿ª½ø»õµ¥¡¢ÏúÊÛµ¥µÈ£©ËÙ¶ÈÒ²»¹²»´í£¬µ«ÊÇÔÚÔ¶³Ì¿Í»§¶ËÐÞ¸ÄÉÌÆ·×ÊÁÏ£¨10000¶àÌõ¼Ç¼£©¡¢²éѯһ¶ÎʱÆÚµÄ½øÏú´æÁ÷Ë®£¨Ò»ÖÜ5000ÌõÒÔÉÏ£©µÈÉæ¼°µ½È¡¼Ç¼Á¿´óµ ......
ʹÓÃ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 ......
4.1 ³£ÓõÄHTML¿Ø¼þ
4.1.1 ±íµ¥¿Ø¼þ
ÓÃÓÚ½ÓÊÕ¿Í»§¶ËµÄÊäÈ룬²¢½«ÊäÈëµÄ½á¹ûÌá½»¸ø·þÎñÆ÷´¦Àí
1.HtmlForm¿Ø¼þ
ËùÓеÄWeb Form¿Ø¼þ±ØÐë°üº¬ÔÚÒ»¶ÔHtmlForm¿Ø¼þ±êÇ©ÖÐ
<Form
Id = "¿Ø¼þ±êʶ"
Runat = "Server"
Method = "Post | Get"
Action = "ÒªÖ´ÐÐ ......
н¨Á¢Ò»¸ö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)}" '½¨Á¢Êý¾Ý¿âÁ¬½Ó ÕâÀïÄã¿ ......