ASPÌõ¼þÓï¾äÖ®select caseÓï¾ä
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/828.html
Ìõ¼þÓï¾äÖ® select case Óï¾ä
1¡¢¶àÌõ¼þ·ÖÖ§µÄʱºòÓÅÏÈʹÓÃselect case½á¹¹£»
2¡¢Êý×ֵĴóÁ¿ÁоÙʱ×îºÃʹÓÃselect case
3¡¢±ØÐëʹÓà end select À´½áÊø·ÖÖ§½á¹¹
ʾÀý£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@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> Ìõ¼þÓï¾äÖ® select case Óï¾ä </title>
</head>
<body>
<%
dim a 'ÉùÃ÷Ò»¸ö±äÁ¿
a=6 '¸ø±äÁ¿¸³Öµ
select case a
case 1,2,3,4
response.Write "Ñ»·Óï¾ä"
case 5,6,7,8
response.Write "Ìõ¼þÓï¾ä"
end select
%>
</body>
</html>
ÔËÐнá¹û£ºÌõ¼þÓï¾ä
Ïà¹ØÎĵµ£º
1£®Í¨¹ýODBC»òÕßOLE·½Ê½Á¬½ÓµÄÇø±ð£¿
ÏÖÔÚÓÐÁ½ÖÖÁ¬½ÓÊý¾Ý¿âµÄ·½·¨¡£Ò»·½Ã棬¿ÉÒÔÓÃODBC²úÉúÒ»¸öÁ¬½Ó£¬ÕâÖÖÁ¬½ÓÓëÈκÎÓÐODBCÇý¶¯Æ÷µÄÊý¾Ý¿â£¨¼´»ù±¾ÉÏÊÇÊг¡ÉÏËùÓеÄÊý¾Ý¿â£©¼æÈÝ£»ÁíÒ»·½Ã棬¿ÉÒÔÓÃÔʼOLE DBÌṩÉ̲úÉúÒ»¸öÁ¬½Ó¡£
¸ÃÓÃÄĸöÌṩÉÌ£¿¾¡¿ÉÄÜÓÃÔʼOLE DBÌṩÉÌ£¬ÒòΪËüÌṩÁ˶ÔÊý¾Ý¸üÓÐЧµÄ·Ã ......
ÔõôÑùµÄÐéÄâÖ÷»úËãÊǺõÄÖ÷»úÄØ£¿Ò»°ãÀ´Ëµ£¬´ó¼Ò¹ºÂòµÄÐéÄâÖ÷»ú¶¼ÊÇasp ..net »òÕßphpµÄ¡£javaÐéÄâÖ÷»úÒ»°ã±È½ÏÉÙ¡£ÕâºÍjavaÐéÄâÖ÷»úµÄά»¤ÄѶȺͳɱ¾½Ï¸ßÓйء£¶øÇÒjava¶ÔÓÚÍøÕ¾ÓµÓÐÕߵļ¼ÊõÒªÇóÒ²¸ßÓÚaspºÍphp¡£ Ò»°ãÀ´Ëµ£¬Ðí¶ ......
¸øÄãÒ»¸ö΢ÈíµÄ¼ÓÃܺö«¶«£º
Script Encoder ÏÂÔصØÖ·£º
http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe
Windows Script Engine 5.0
Windows ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '»º´æͼƬ
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '½¨Á¢ÏÂÔضÔÏó
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '¿ªÊ¼»ñȡͼƬ,http://xxx/pngÕâ½Ú¿ÉÒԸijÉ× ......