ASPÖÐÊ®´ó³£ÓóÌÐò´úÂë.£ºµÚÈý½Ú¡´ÎÒµÄÐĵáµ
ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍƳµ(1)
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶©µ¥
²úÆ·±àºÅ ProductID
²úÆ·Ãû ProductName
¼Û¸ñ Price
¿Í»§Session±êºÅ SessionID
¶©¹ºÊýÁ¿ Quantity
¡¡¡¡Orders£º¶©µ¥£¬µ±Óû§È·È϶©µ¥ºó£¬¶©»õÊý¾Ý½«ÓÉCart±íת´æÈë´Ë±í
²úÆ·±àºÅ ProductID
¿Í»§Session±àºÅ SessionID
¶©¹ºÊýÁ¿ Quantity
¡¡¡¡Customers£º¿Í»§£¬ÊµÏÖ¿Í»§µÇ¼ʱ½«Ê¹Óøñí
¡¡¡¡¶þ¡¢ ½¨Á¢Êý¾Ý¿âÁ¬½Ó£º
¡¡¡¡1¡¢ Ìí¼ÓÊý¾ÝÔ´£ºÔÚ¿ØÖÆÃæ°åÖÐÑ¡Ôñ£º¹ÜÀí¹¤¾ß/ODBCÊý¾ÝÔ´£¬µ¥»÷Ìí¼Ó£¬Ñ¡ÔñÊý¾Ý¿âÇý¶¯³ÌÐòΪMicrosoft Access Driver£¬µ¥»÷"Íê³É"£¬ÔÚµ¯³öµÄ¶Ô»°¿òÖÐΪÊý¾ÝÔ´ÃüÃûΪ"Store"£¬µ¥»÷Ñ¡Ôñ£¬ÕÒµ½½¨Á¢ºÃµÄ.mdbÎļþ£¬È»ºóµ¥»÷È·¶¨
¡¡¡¡2¡¢ ½¨Á¢Á¬½Ó£ºÔÚInterDevÖеÄProject ExlporerÖÐÓÒ»÷Ñ¡ÔñAdd Data Connection£¬Ñ¡ÔñÊý¾ÝÔ´£¬ÃüÃûΪCon£¬Á¬½Ó½¨Á¢ºóµÄËùÓÐÊý¾Ý´æÈ¡¶¼½«»ùÓÚ´ËÁ¬½Ó¡£
¡¡¡¡Èý¡¢ ¹ºÎﳵҪʵÏֵĻù±¾¹¦ÄܺͶÔÓ¦µÄÎļþ£º
²úÆ·ä¯ÀÀºÍÑ¡¹º Products.asp
·ÅÈ빺Îï³µ AddtoCart.asp
ä¯ÀÀ¹ºÎï³µ ViewCart.asp
ɾ³ýÒ»¸ö²úÆ· DeleteItem.asp
¸üйºÎï³µ UpdateCart.asp
È·È϶©µ¥ SaveOrder.asp
¡¡¡¡ËÄ¡¢ Products.asp
¡¡¡¡±¾Ò³ÒÔ±í¸ñÏÔʾ¿Í»§ËùÑ¡µÄ²úÆ··ÖÀàÖеÄËùÓÐÉÌÆ·£¬Ã¿Ò»¸öÉÌÆ·ºó¶¼ÓÐÒ»¸ö"Ìí¼Óµ½¹ºÎï³µ"°´Å¥£¬Ö¸ÏòAddtoCart.asp¡£
¡¡¡¡1¡¢ Ìí¼ÓprodRec¿Ø¼þ£¬É趨¼Ç¼ԴΪProducts±í¡£
¡¡¡¡2¡¢ Ìí¼ÓGrid¿Ø¼þ£¬É趨ÆäÊý¾ÝԴΪprodRec
¡¡¡¡3¡¢ Ìí¼Ó"Ñ¡¹º´Ë²úÆ·"Á´½Ó
¡¡¡¡ÔÚGridµÄÊôÐÔÒ³Öе¥»÷Add Unbound Column£¬ÔÚHeaderÖÐÊäÈ룺"Ñ¡¹º´Ë²úÆ·"£¬ÔÚField/expressionÖÐÊäÈ룺="£¼A href=AddtoCart.asp?ProductID="+[ProductID]+"£¾Ñ¡¹º"+"£¼/A£¾"¡£´ËÓï¾äµÄ×÷ÓÃÊÇ£¬½«µ±Ç°Ñ¡¶¨µÄ²úÆ·µÄ²úÆ·±àºÅ´æ·ÅÔÚ±äÁ¿ProductIDÖд«µÝ¸øAddtoCart.asp£¬ÔÚAddtoCart.aspÖн«¸ù¾Ý´Ë²úÆ·±àºÅΪ¹ºÎï³µÌí¼Ó¼Ç¼¡£
¡¡¡¡Îå¡¢ AddtoCart.asp
¡¡¡¡±¾Ò³ÌṩÓû§ËùÑ¡ÉÌÆ·µÄÏêϸÐÅÏ¢£¬Óû§ÔÚ´ËÒ³¿ÉÒÔÐ޸Ķ©¹ºÊýÁ¿¡£
¡¡¡¡1¡¢ Ìí¼ÓÒ»¸ö¼Ç¼¼¯£¬ÃüÃûΪprodRec£¬É趨¼Ç¼ԴΪSQL statement£¬ÊäÈ룺SELECT * from Products¡£ÔÚ£¼Head£¾ÇøÖÐÊäÈëÈçÏ´úÂ룺
£¼Script Language=J
Ïà¹ØÎĵµ£º
VBSÀ³¬³öIntegerÀàÐ͵ÄÈ¡Öµ·¶Î§£¬¸ÃÀàÐ͵ÄÈ¡Öµ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýÈ¡Öµ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......
<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......
ASPÈ«³ÆΪActive Server Pages£¬ÊÇÒ»ÖÖÓÉ΢Èí(M1crosoft)¹«Ë¾¿ª·¢µÄ·þÎñÆ÷¶Ë½Å±¾ÓïÑÔÔËÐл·¾³£¬Ëü¿ÉÒÔ½áºÏHTMLÓïÑÔºÍActiveX×é¼þ½¨Á¢¶¯Ì¬¡¢½»»¥¡¢¸ßЧµÄWeb·þÎñÆ÷¶ËÓ¦ÓóÌÐò¡£µ±Ò»¸öÓû§ä¯ÀÀÆ÷´Óweb·þÎñÆ÷ÇëÇóÒ»¸öAsPÍøҳʱ£¬web·þÎñÆ÷»á
½«Õâ¸öAsPÎļþ·¢Ë͸øweb·þÎñÆ÷µÄAsPÒýÇ棬AsPÒýÇ潫¸ÃAsPÍøÒ³ÖÐ ......
<bgsound src="wen.mid" loop="0">
<% dim weh
If Time >=#1:00:00 AM# And Time < #6:00:00 PM# Then
weh = "<bgsound src="1.mid" loop="0">"
Else If Time >#6:00:00 AM# And Time < #9:00:00 PM#
weh = "<bg ......
µÚÒ»½Ú:×¢²áϵͳ
×¢²á¼¸ºõÊÇÿ¸öÍøÕ¾¶¼ÒªÊ¹Óõģ¬È¥ÂÛ̳Ҫע²á£¬ÁÄÌìҪע²á£¬¼¸ºõÎÞ´¦²»×¢²á£¬ËùÒÔ×¢²áÊÇËùÓÐASPÓ¦ÓóÌÐòÖÐ×î³£¼ûµÄ¡£
& ......