asp ¹ºÎï³µÀà
<%
'¹ºÎï³µÀà ÀàÃû£ºUserCart
'×÷Õß:gameing
'»ù±¾ÔÀí:´ËÀàÓ÷þÎñÆ÷Session±äÁ¿±£´æÉÌÆ·Êý¾Ý,ÉÌÆ·ÓÃÒ»¸öÊý×é±íʾ.´ËÀàÀïÃæ±£´æÁËÈýÖÐÉÌÆ·¼Û¸ñ.
'1¡¢2008-11-25ÐÞ¸ÄFunction AddItem() by tommy ÉÌÆ·Ôö¼ÓÔÚ×îºó
'2¡¢2008-11-25ÐÞ¸Äby tommy Ôö¼Óɾ³ýÉÌÆ·¹ý³Ì Sub DelItem()
'3¡¢2008-11-25ת»»Ò»Ð©Êý¾ÝÀàÐͲÅÄÜÔËËã
'==========================
Class UserCart
'½¨Á¢¹ºÎï³µ
Sub CreateCart()
Dim CFlag
dim mCart(6,0)
CFlag=CheckCart()
if CFlag=false then
For iCount =LBound(mCart,2) to UBound(mCart,2)
mCart(0,iCount)=""
next
Session("UserCart")=mCart
end if
End Sub
'¼ì²é¹ºÎï³µ
Public Function CheckCart()
IF IsArray(Session("UserCart")) THEN
CheckCart = true
ELSE
CheckCart = false
END IF
End Function
'¼ì²é¹ºÎï³µÊÇ·ñΪ¿Õ
Function CheckEmtpy()
dim mCart
mCart=Session("UserCart")
For i =LBound(mCart,2) to UBound(mCart,2)
if mCart(0,i)<>"" then
CheckEmtpy=false
Exit Function
end if
next
CheckEmtpy=True
End Function
'Ìí¼ÓÉÌÆ·
Function AddItem(aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage) '2008-12-25¸Ä½ø by tommy ÉÌÆ·Ôö¼ÓÔÚ×îºó
dim mCart
AddItem=false
if CheckItem(aID)=false then
'ÎÞ´ËÉÌÆ·
mCart=Session("UserCart")
i =UBound(mCart,2)
i=i+1
Redim preserve mCart(6,i)
mCart(0,i)=aID
mCart(1,i)=aName
mCart(2,i)=aPrice1
mCart(3,i)=aPrice2
mCart(4,i)=aPrice3
mCart(5,i)=aCount
mCart(6,i)=aImage
session("UserCart")=mCart
AddItem=True
Else
'ÓдËÉÌÆ·,ÔòÉÌÆ·ÊýÁ¿+1
ModifItem aID,aCount,0
AddItem=True
End if
En
Ïà¹ØÎĵµ£º
Ò³ÃæÉúÃüÖÜÆÚ
Ò³ ÃæÉúÃüÖÜÆÚÖ´ÐÐһϵÁв½Öè£ºÒ³ÃæµÄ³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹ÔºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂë¡¢³ÊÏÖ¡£ÎªÁËÔÚºÏÊʵĽ׶ÎÖ´ÐÐËùÐèµÄ´úÂ룬ËùÒÔÒª¶ÔÒ³ÃæÉúÃü ÖÜÆÚ·Ç³£ÊìϤ¡£ÔÚÒ³ÉúÃüÖÜÆÚµÄ¸÷¸ö½×¶Î£¬Ò³Ãæ»áÖð¸öÒý·¢¶¨ÒåµÄʼþ£¬Í¨¹ý¶Ô´úÂ뿪·¢£¬ÔÚÒ³ÃæµÄÉúÃüʼþÖÐÖ´ÐÐÎÒÃÇËùÐèÒªµÄ³ÌÐò
Ò³ÉúÃüÖÜÆÚ½×¶Î
1¡ ......
<head runat="server">
<title></title>
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<script language="JavaScript"> ......
1.·Å×¢È뺯Êý
sub aspsql()
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post) ......
©¶´ÃèÊö:
ÔÚlogin.aspÖУ¬½ÓÊÕÓû§ÊäÈëµÄUseridºÍPasswordÊý¾Ý£¬²¢·Ö±ð¸³Öµ¸øuserºÍpwd£¬È»ºóÔÙÓÃsql="select * from admin where username="&user&" and password="&pwd&"" Õâ¾äÀ´¶ÔÓû§ÃûºÍÃÜÂë¼ÓÒÔÑéÖ¤¡£
ÒÔ³£ÀíÀ´¿¼Âǵϰ£¬ÕâÊǸöºÜÍêÕûµÄ³ÌÐòÁË¡£¶øÔÚʵ¼ÊµÄʹÓùý³ÌÖУ¬ÕûÌ׳ÌÐòÒ²µÄ ......