ASPÌõ¼þÓï¾äÖ®IFÓï¾ä
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@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> Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä </title>
</head>
<body>
<%
dim a 'ÉùÃ÷Ò»¸ö±äÁ¿
a=9 '¸ø±äÁ¿¸³Öµ
if a<8 then
response.write "Ñ»·Óï¾ä" 'Ìõ¼þÓï¾ä
elseif a>6 and a<18 then 'elseif ... then ǶÌ×
response.write "Ìõ¼þÓï¾ä"
else
response.Write "sub¹ý³Ì"
end if
%>
</body>
</html>
ÔËÐнá¹û£ºÌõ¼þÓï¾ä£¬ÐÞ¸Ä a µÄÖµÔÚÂú×㲻ͬµÄÌõ¼þʱ½«»áµÃµ½²»Í¬µÄ½á¹û ¡£
Ïà¹ØÎĵµ£º
1£®Í¨¹ýODBC»òÕßOLE·½Ê½Á¬½ÓµÄÇø±ð£¿
ÏÖÔÚÓÐÁ½ÖÖÁ¬½ÓÊý¾Ý¿âµÄ·½·¨¡£Ò»·½Ã棬¿ÉÒÔÓÃODBC²úÉúÒ»¸öÁ¬½Ó£¬ÕâÖÖÁ¬½ÓÓëÈκÎÓÐODBCÇý¶¯Æ÷µÄÊý¾Ý¿â£¨¼´»ù±¾ÉÏÊÇÊг¡ÉÏËùÓеÄÊý¾Ý¿â£©¼æÈÝ£»ÁíÒ»·½Ã棬¿ÉÒÔÓÃÔʼOLE DBÌṩÉ̲úÉúÒ»¸öÁ¬½Ó¡£
¸ÃÓÃÄĸöÌṩÉÌ£¿¾¡¿ÉÄÜÓÃÔʼOLE DBÌṩÉÌ£¬ÒòΪËüÌṩÁ˶ÔÊý¾Ý¸üÓÐЧµÄ·Ã ......
ÔõôÑùµÄÐéÄâÖ÷»úËãÊǺõÄÖ÷»úÄØ£¿Ò»°ãÀ´Ëµ£¬´ó¼Ò¹ºÂòµÄÐéÄâÖ÷»ú¶¼ÊÇasp ..net »òÕßphpµÄ¡£javaÐéÄâÖ÷»úÒ»°ã±È½ÏÉÙ¡£ÕâºÍjavaÐéÄâÖ÷»úµÄά»¤ÄѶȺͳɱ¾½Ï¸ßÓйء£¶øÇÒjava¶ÔÓÚÍøÕ¾ÓµÓÐÕߵļ¼ÊõÒªÇóÒ²¸ßÓÚaspºÍphp¡£ Ò»°ãÀ´Ëµ£¬Ðí¶ ......
ÉÏ´Îдµ½asp£¬php¿Õ¼äÓйØÊý¾Ý¿âÑ¡ÔñµÄÎÊÌâ¡£¶ÔÓÚÊý¾Ý¿âµÄ´îÅä Ò»°ãÊÇÕâÑù asp+access/ asp+sql server,È»ºóÊÇphp+mysql¡£accessÊÇ¿ÉÒÔºÍÍøÒ³¿Õ¼ä¹²Ïí´óСµÄ£¬¶øsql server ºÍmysqlÊÇÒªµ¥¶À¹ºÂòµÄ¡£¶ÔÓÚÒ»°ãµÄСӦÓã¬ÓÃasp+access¾Í¿ÉÒԸ㶨ÁË¡£»òÕßÊÇ.net+access¡£ ÕâЩ ¼¸ºõ¾Í²»Òª¿¼ÂÇÊý¾Ý¿â³É±¾ÁË¡£µ«ÊÇʹÓÃphpµÄ»°£¬¾Í ......
ÉÏÏÂÎĶÔÏó
===================================
Ò»ÖÖ¶ÔÏó£¬Ëüµ±MTS·þÎñÆ÷×é¼þÔÚÒ»¸ö»î¶¯ÖÐÔËÐÐʱ¸ú×Ù¸Ã×é¼þµÄÊôÐÔ£¬°üÀ¨±»¸ú×Ù×é¼þµÄ¼¤»î״̬¡¢°²È«ÐÅÏ¢¡¢ÊÂÎñ´¦Àí״̬£¨Èç¹û´æÔÚ£©µÈ¡£ÕâÑù¾ÍÃâ³ýÁËÈÃ×é¼þÈ¥¸ú×ÙÆä×ÔÉí״̬¡£
ÉÏÏÂÎĶÔÏóÊÇweb·þÎñÆ÷ÉÏ»ùÓÚwebÓ¦ÓõÄÒ»¸ö±³¾°»·¾³¶ÔÏó£¬ÉÏÏÂÎĶÔÏóÌṩÁËÒ»¸öͬһwebÓ¦Óà ......
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 ......