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 Ò³ÔËÐÐʱ£¬´ËÒ³½«¾ÀúÒ»¸öÉúÃüÖÜÆÚ£¬ÔÚÉúÃüÖÜÆÚÖн«Ö´ÐÐһϵÁд¦Àí²½Öè¡£ÕâЩ²½Öè°üÀ¨³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹ÔºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂëÒÔ¼°½øÐгÊÏÖ ......
Ó¦ÓóÌÐòÓòÊÇͨ¹ýCLRÇ¿ÖÆ½ç¶¨µÄÈ·±£Ó¦ÓóÌÐò¼ä²»Ï໥ӰÏìµÄµØÖ·¿Õ¼ä£¬Ëü¾ßÓÐÒÔÏÂÌØÕ÷
1£®Ò»¸ö¶ÀÁ¢µÄWebÓ¦ÓóÌÐòµÄËùÓÐWebÒ³¹²ÏíÏàͬµÄÄÚ´æ×ÊÔ´£¬ÀýÈçÈ«¾ÖµÄÓ¦ÓóÌÐòÊý¾Ý£¬Ã¿¸öÓû§µÄSessionÊý¾ÝÒÔ¼°»º´æÊý¾Ý¡£ÕâЩÐÅÏ¢²»Äܱ»ÆäËûµÄASP.Net»òASPÓ¦ÓóÌÐòÖ±½Ó·ÃÎÊ¡£
2£®Ò»¸ö¶ÀÁ¢µÄWebÓ¦ÓóÌÐòËùÓÐWebÒ³¹² ......
ÌÔ±¦¿ª·Åƽ̨£¬ÕâÀï²»ÔÙ·Ñ»°ÁË£¬Ö±½Ó¿´ÍøÖ·£ºhttp://open.taobao.com/
ÕâÀïÓкܶàµÄʵÀý£¬±¾ÈË×î½üÒ²Ò»Ö±ÔÚѧϰ¡£
ǰ¼¸Ìì¿´µ½ÀË×ÓµÄȺÀïÓÐһλÅóÓÑ˵ÏëÒªASPµÄʵÀý£¬×Ô¼º¾ÍÕÒÁ˸öʱ¼ä¼òµ¥Ð´Ò»Ï¡£
µ±È»Ð´µÄ²»ºÃ£¬ÒòΪ±¾È˹¤×÷Ò²±È½Ïæ¡£Ö»ÊǼòµ¥ÄÜÓÃÒ»¸öʵÀýÈ¡µÃXML×Ö·û´®µÄÊý¾Ý¡£ÔÚÕâÀïÒ²ÊÇÅ×שÒýÓñ£¬Ï£Íû´ó¼Ò²»ÒªÅÄש¡ ......
<%
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 ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
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 ......