ASPÑ»·Óï¾äµÄ¸ÅÄîÓëÀàÐÍ
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/829.html
Ñ»·Óï¾äµÄ¸ÅÄî
Ñ»·Óï¾äÊÇÖ¸ÖØ¸´Ö´ÐеÄÓï¾ä£¬¿É·ÖΪÈýÀࣺ
1£¬µ±Ìõ¼þ±äΪ¼ÙÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
2£¬µ±Ìõ¼þ±äÎªÕæÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
3£¬°´ÕÕÖ¸¶¨µÄ´ÎÊýÖØ¸´Ö´ÐÐÓï¾ä¡£
VBscript µÄÑ»·Óï¾ä
<1> do ... loop Ö±µ½Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ»·£»
<2> while ... wend µ±Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ»·£»
<3> for ... next Ö¸¶¨Ñ»·´ÎÊý£¬Ê¹ÓüÆÊýÆ÷ÖØ¸´Ö´ÐÐÓï¾ä£»
<4> foreach ... next ¶ÔÓÚ¼¯ºÏ»òÊý×éÖеÄÿÏî£¬ÖØ¸´Ö´ÐÐÒ»×éÓï¾ä¡£
Do ... loop Óï¾ä¸ñʽ
¸ñʽ1£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%
do while Ìõ¼þ //ÏÈÅÐ¶Ï while ºóÃæµÄÌõ¼þÊÇ·ñÎªÕæ£¬Èç¹ûÎªÕæÔòÖ´ÐÐÒÔÏ´úÂë¡£
ÐèÒªÖ´ÐеÄÓï¾ä
loop
%>
¸ñʽ2£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%
do //ÏÈÖÁÉÙÖ´ÐÐÒ»´ÎÑ»·Ì壬ȻºóÔÙÅÐ¶Ï while ºóÃæµÄÌõ¼þÊÇ·ñÎªÕæ
ÖØ¸´Ö´ÐеÄÓï¾ä
loop while Ìõ¼þ
%>
Ïà¹ØÎĵµ£º
ÉÏ´Îдµ½asp£¬php¿Õ¼äÓйØÊý¾Ý¿âÑ¡ÔñµÄÎÊÌâ¡£¶ÔÓÚÊý¾Ý¿âµÄ´îÅä Ò»°ãÊÇÕâÑù asp+access/ asp+sql server,È»ºóÊÇphp+mysql¡£accessÊÇ¿ÉÒÔºÍÍøÒ³¿Õ¼ä¹²Ïí´óСµÄ£¬¶øsql server ºÍmysqlÊÇÒªµ¥¶À¹ºÂòµÄ¡£¶ÔÓÚÒ»°ãµÄСӦÓã¬ÓÃasp+access¾Í¿ÉÒԸ㶨ÁË¡£»òÕßÊÇ.net+access¡£ ÕâЩ ¼¸ºõ¾Í²»Òª¿¼ÂÇÊý¾Ý¿â³É±¾ÁË¡£µ«ÊÇʹÓÃphpµÄ»°£¬¾Í ......
session
===================================
session¶ÔÏóÓÃÓÚ´æ´¢ÌØ¶¨µÄÓû§»á»°ËùÐèµÄÐÅÏ¢ ¡£ Session¶ÔÏóµÄÒýÈëÊÇΪÁËÃÖ²¹HTTPÐÒéµÄ²»×㣬HTTPÐÒéÊÇÒ»ÖÖÎÞ״̬µÄÐÒé¡£
¡¡¡¡SessionÖÐÎÄÊÇ“»á»°”µÄÒâ˼£¬ÔÚASPÖдú±íÁË·þÎñÆ÷Óë¿Í»§¶ËÖ®¼äµÄ“»á»°”¡£SessionµÄ×÷ÓÃʱ¼ä´ÓÓû§µ½´ïij¸öÌØ¶¨µÄ ......
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & se ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......