¼òµ¥µÄ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>
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    ÒýÑÔ  
²ÉÓÃWEB¼¼ÊõʵÏÖB/S£¨ä¯ÀÀÆ÷/·þÎñÆ÷£©½á¹¹µÄ¹ÜÀíϵͳÊǰ칫×Ô¶¯»¯µÄ·¢Õ¹Ç÷ÊÆ¡£»ùÓÚWEB¼¼ÊõµÄ¹ÜÀíϵͳ£¬ÓÉÓÚ¿ª·¢ÖÜÆÚ¶Ì£»ÓëÓû§Æ½Ì¨Î޹أ»Ò×ÓÚʵÏÖ½»»¥Ê½Ó¦Óã»ÄܶÔÐÅÏ¢½øÐпìËÙ¡¢¸ßЧµÄÊÕ¼¯¡¢´¦ÀíºÍ·¢²¼£¬½ü¼¸ÄêÀ´µÃµ½ÁËѸËÙ·¢Õ¹¡£¶øASP¼¼ÊõÓÉÓÚÆä¿ª·¢Ð§Âʸߡ¢½»»¥ÐԺ㬰²È«ÐÔÇ¿µÈÌØµã£¬Öð½¥³ÉΪ¿ª·¢¹ÜÀíϵͳ ......
	
    
        
    
    º¯Êý Óï·¨ ¹¦ÄÜ 
Len Len(string|varname) ·µ»Ø×Ö·û´®ÄÚ×Ö·ûµÄÊýÄ¿£¬»òÊÇ´æ´¢Ò»±äÁ¿ËùÐèµÄ×Ö½ÚÊý¡£ 
Trim Trim(string) ½«×Ö·û´®Ç°ºóµÄ¿Õ¸ñÈ¥µô 
Ltrim Ltrim(string) ½«×Ö·û´®Ç°ÃæµÄ¿Õ¸ñÈ¥µô 
Rtrim Rtrim(string) ½«×Ö·û´®ºóÃæµÄ¿Õ¸ñÈ¥µô 
Mid Mid(string,start,length) ´Óstring×Ö·û´®µÄstart×Ö·û¿ªÊ¼È¡µÃlength³¤¶ ......
	
    
        
    
    Çë¿´ÈçÏÂÔ´´úÂ룺
<% 
'ÏòÊý¾Ý¿âдÈëÊý¾Ý 
SUB writeData() 
dim recCnt,i 
dim fieldName1,fieldName2,fieldName3 
dim conn 
dim sqlStr,connStr 
connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD=" 
set conn=Server.CreateObject("ADODB.Connection") 
c ......
	
    
        
    
    
·ÅÈëconn.aspÖÐ(¾Ü¾ø¹¥»÷ ÍòÄÜAsp·À×¢Èë´úÂë)
·ÅÈëconn.aspÖÐ(¾Ü¾ø¹¥»÷ ÍòÄÜAsp·À×¢Èë´úÂë)
µÚÒ»ÖÖ£º
squery=lcase(Request.ServerVariables("QUERY_STRING"))
sURL=lcase(Request.ServerVariables("HTTP_HOST"))
 
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec| ......
	
    
        
    
    <%@ 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>
< ......