Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¼¼ÊõʵÏÖÎļþÖ±½ÓÉÏ´«¹¦ÄÜ

ÒýÑÔ 
²ÉÓÃWEB¼¼ÊõʵÏÖB/S£¨ä¯ÀÀÆ÷/·þÎñÆ÷£©½á¹¹µÄ¹ÜÀíϵͳÊǰ칫×Ô¶¯»¯µÄ·¢Õ¹Ç÷ÊÆ¡£»ùÓÚWEB¼¼ÊõµÄ¹ÜÀíϵͳ£¬ÓÉÓÚ¿ª·¢ÖÜÆÚ¶Ì£»ÓëÓû§Æ½Ì¨Î޹أ»Ò×ÓÚʵÏÖ½»»¥Ê½Ó¦Óã»ÄܶÔÐÅÏ¢½øÐпìËÙ¡¢¸ßЧµÄÊÕ¼¯¡¢´¦ÀíºÍ·¢²¼£¬½ü¼¸ÄêÀ´µÃµ½ÁËѸËÙ·¢Õ¹¡£¶øASP¼¼ÊõÓÉÓÚÆä¿ª·¢Ð§Âʸߡ¢½»»¥ÐԺ㬰²È«ÐÔÇ¿µÈÌØµã£¬Öð½¥³ÉΪ¿ª·¢¹ÜÀíϵͳ ......

ASP×Ö·û´®º¯Êý´óÈ«

º¯Êý Óï·¨ ¹¦ÄÜ
Len Len(string|varname) ·µ»Ø×Ö·û´®ÄÚ×Ö·ûµÄÊýÄ¿£¬»òÊÇ´æ´¢Ò»±äÁ¿ËùÐèµÄ×Ö½ÚÊý¡£
Trim Trim(string) ½«×Ö·û´®Ç°ºóµÄ¿Õ¸ñÈ¥µô
Ltrim Ltrim(string) ½«×Ö·û´®Ç°ÃæµÄ¿Õ¸ñÈ¥µô
Rtrim Rtrim(string) ½«×Ö·û´®ºóÃæµÄ¿Õ¸ñÈ¥µô
Mid Mid(string,start,length) ´Óstring×Ö·û´®µÄstart×Ö·û¿ªÊ¼È¡µÃlength³¤¶ ......

aspʵÏÖÅúÁ¿Â¼ÈëÊý¾Ý

Çë¿´ÈçÏÂÔ´´úÂ룺
<%
'ÏòÊý¾Ý¿âдÈëÊý¾Ý
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·À×¢Èë´úÂë)
·ÅÈë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| ......

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