Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPÑ­»·Óï¾äÖ®do...loopÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/830.html
do ... loop Óï¾äÁ½ÖÖ¸ñʽµÄʾÀý
do whil ... loop £º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> VBscript Ñ­»·Óï¾äÖ® do ... loop Óï¾ä </title>
</head>
<body>
<%
dim i          'ÉùÃ÷Ò»¸ö±äÁ¿
i=1            '¸ø±äÁ¿¸³Öµ
do while i<10
response.Write "VBscript Ñ­»·Óï¾äÖ® do ... loop Óï¾ä <br/>"
i=i+1
loop
%>
</body>
</html>
do ... loop while:
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> VBscript Ñ­»·Óï¾äÖ® do ... loop Óï¾ä </title>
</head>
<body>
<%
dim i          'ÉùÃ÷Ò»¸ö±äÁ¿
i=1            '¸ø±äÁ¿¸³Öµ
do 
response.Write "VBscript Ñ­»·Óï¾äÖ® do ... loop Óï¾ä <br/>"
i=i+1
loop while i<6
%>
</body>
</html> 


Ïà¹ØÎĵµ£º

ASP.NET±à³ÌÄ£ÐÍÖ®ASP.NETÒ³ÃæÉúÃüÖÜÆÚͼ½â

ASP.NET±à³ÌÄ£ÐÍÖÐASP.NETÒ³ÃæÉúÃüÖÜÆÚÊÇÖ¸Ê²Ã´ÄØ£¿Ëü°üÀ¨Ê²Ã´ÄØ£¿ASP.NET±à³ÌÄ£ÐÍÖ®ASP.NETÒ³ÃæÉúÃüÖÜÆÚ¾ßÌåµÄ¹ý³ÌÓÐÄÄÐ©ÄØ£¿ÏÂÃæ¾Í¿ªÊ¼ÎÒÃǵĽ²½â°É£º
ASP.NET Ò³ÔËÐÐʱ£¬´ËÒ³½«¾­ÀúÒ»¸öÉúÃüÖÜÆÚ£¬ÔÚÉúÃüÖÜÆÚÖн«Ö´ÐÐһϵÁд¦Àí²½Öè¡£ÕâЩ²½Öè°üÀ¨³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹Ô­ºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂëÒÔ¼°½øÐгÊÏÖ ......

ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔ­ÀíºÍ²ßÂÔ

±êÌâ: ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔ­ÀíºÍ²ßÂÔ
- Óëʱ¾ã½ø 2009-09-17 09:01 ÔĶÁ:18
- ÆÀÂÛ:0 | Ìí¼ÓÆÀÂÛ | ·µ»Ø ↓
˵һÏÂÎÒ¶ÔHTML·À²É¼¯È´²»·ÀËÑË÷ÒýÇæÖ©ÖëµÄһЩ¾­Ñ飺
ÎÒ¿ª·¢¹ý¼¸¸ö²É¼¯³ÌÐò£¬Ò²Ñо¿¹ýºÜ¶à²É¼¯³ÌÐò´úÂ룬ËùÒԶԲɼ¯³ÌÐòµÄÔ­Àí»¹ËãÊÇÉÔ΢ÓÐЩÁ˽⡣
ÏÈ˵һϲɼ¯Ô­Àí£º
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ ......

asp½ûÖ¹Íⲿ·þÎñÆ÷Ìá½»±íµ¥µ½·þÎñÆ÷

½ûÖ¹Õ¾ÍâÌá½»±íµ¥µÄasp´úÂëÈçÏ£º
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......

Asp´´½¨Êý¾Ý¿âÎļþ

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 ......

ASPÌõ¼þÓï¾äÖ®IFÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ