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 µÄÖµÔÚÂú×㲻ͬµÄÌõ¼þʱ½«»áµÃµ½²»Í¬µÄ½á¹û ¡£
Ïà¹ØÎĵµ£º
¿ÉÒÔʹÓÃÏÂÃæµÄÈκÎASPÄÚÖöÔÏ󣬶ø²»±ØÔÚASP½Å±¾ÖÐÌرðÉùÃ÷¡£
1£® Request£º
¶¨Ò壺¿ÉÓÃÀ´·ÃÎÊ´Óä¯ÀÀÆ÷·¢Ë͵½·þÎñÆ÷µÄÇëÇóÐÅÏ¢£¬¿ÉÓô˶ÔÏó¶ÁÈ¡ÒÑÊäÈëHTML±íµ¥µÄÐÅÏ¢¡£
¼¯£º
Cookies£ºº¬ÓÐä¯ÀÀÆ÷cookiesµÄÖµ
Form£ºº¬ÓÐHTML±íµ¥ÓòÖеÄÖµ
QueryString£ºº¬Óвéѯ×Ö·û´®µÄÖµ
ServerVariables£ºº¬ÓÐÍ·ºÍ»·¾³±äÁ¿ ......
±êÌâ: ASPÍøÕ¾Êý¾Ý²É¼¯µÄ¹¥¡¢·ÀÔÀíºÍ²ßÂÔ
- Óëʱ¾ã½ø 2009-09-17 09:01 ÔĶÁ:18
- ÆÀÂÛ:0 | Ìí¼ÓÆÀÂÛ | ·µ»Ø ↓
˵һÏÂÎÒ¶ÔHTML·À²É¼¯È´²»·ÀËÑË÷ÒýÇæÖ©ÖëµÄһЩ¾Ñ飺
ÎÒ¿ª·¢¹ý¼¸¸ö²É¼¯³ÌÐò£¬Ò²Ñо¿¹ýºÜ¶à²É¼¯³ÌÐò´úÂ룬ËùÒԶԲɼ¯³ÌÐòµÄÔÀí»¹ËãÊÇÉÔ΢ÓÐЩÁ˽⡣
ÏÈ˵һϲɼ¯ÔÀí£º
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ ......
¸øÄãÒ»¸ö΢ÈíµÄ¼ÓÃܺö«¶«£º
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 ......
<%@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É× ......