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>
Ïà¹ØÎĵµ£º
Macromedia Dreamweaver MX ÊÇÒ»¿îרҵµÄ HTML ±à¼Æ÷£¬ÓÃÓÚ¶Ô Web Õ¾µã¡¢Web Ò³ºÍ Web Ó¦ÓóÌÐò½øÐÐÉè¼Æ¡¢±àÂëºÍ¿ª·¢¡£ÎÞÂÛÄúÔ¸ÒâÏíÊÜÊÖ¹¤±àд HTML ´úÂëʱµÄ¼ÝÔ¦¸Ð»¹ÊÇÆ«°®ÔÚ¿ÉÊÓ»¯±à¼»·¾³Öй¤×÷£¬Dreamweaver ¶¼»áΪÄúÌṩÓÐÓõŤ¾ß£¬Ê¹ÄúÓµÓиü¼ÓÍêÃÀµÄ Web ´´×÷ÌåÑé¡£ Dreamweaver ʹÄú¿ÉÒÔʹÓ÷þÎñÆ÷¼¼Êõ(ÀýÈç CFML ......
¸øÄãÒ»¸ö΢ÈíµÄ¼ÓÃܺö«¶«£º
Script Encoder ÏÂÔصØÖ·£º
http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe
Windows Script Engine 5.0
Windows ......
½ûÖ¹Õ¾ÍâÌá½»±íµ¥µÄ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 ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......