[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 5.Error´¦ÀíÀà
¿´µ½ÓÐÅóÓÑ˵ǰÃæÒ»Õ½²µÃû±ØÒª,ÏëÏëҲȷʵ.±¾À´ÊÇûÓдòËã½²ÕâЩ»ù´¡µÄ,Ö»ÊÇÐÐÎÄÆðÀ´Ã»ÓÐÔ¼Êø,¾Íµ´¿ªµ½»ù´¡ÖªÊ¶ÉÏÃæÁË.
´ÓÕâ½Ú¿ªÊ¼,½«»á¸ø´ó¼Ò½éÉÜASPÖеÄÈý´óͨÓÃÀà,Ëü¹á´©ÓÚÎÒËùÉè¼ÆµÄÈý²ã¼Ü¹¹ÖÐ,ÊǶÔASPÓï·¨µÄÀ©Õ¹,¿ÉÒÔÌá¸ßºÜ¶àϸ½Ú´¦ÀíÉϵÄЧÂÊ,¿ÉÒÔËãÊÇÒ»µãµã¿ò¼ÜµÄζµÀ.
±¾½Ú½éÉÜ´íÎó´¦ÀíÀà,ÀàÃûCon_Error,ÔÚ´úÂëÒ³ÃæÖ®³õ¾Í½øÐгõʼ»¯,ʵÀýÃûΪe,ÒÔϵÄe.add ¼´Ê¹ÓøôíÎóÀàµÄʵÀý»¯¶ÔÏó½øÐвÙ×÷.
·½·¨½éÉÜ:
e.Add(ByVal vErrorMessage ) ¼Ç¼һ¸ö´íÎó,²¢ÇÒÉèÖà e.Error = true . ÔÚ³ÌÐò¼ì²âÓû§ÃûºÏ·¨ÐԵȵط½·¢ÏÖ´íÎóʱ,¾Íµ÷ÓÃÕâ¸ö·½·¨,¼Ç¼һ¸ö´íÎóÐÅÏ¢.
ÀýÈç,Óû§µÇ½ʱÃÜÂë´íÎó,Ôòµ÷Óà e.add("ÄúµÄÕ˺ŻòÃÜÂë´íÎó") .Õâʱºò,´íÎó¶ÔÏóeÖбã¼Ç¼ÁËÒ»¸ö´íÎó,´íÎó¶ÔÏóµÄÊôÐÔe.Error=true .ÔÚºóÐø²Ù×÷ÖÐ,¿ÉÒÔʹÓôíÎó¶ÔÏóµÄÕâ¸öÊôÐÔ½øÐÐÅжÏ.
ÀýÈç:
³öÏÖ´íÎóºóµ¯³öС´°¿ÚÌáʾ´íÎó,²¢·µ»ØÇ°Ò»Ò³.
if e.Error then
e.Alert_Back "ÇëÖØеǼ!" 'Alert_Back µÄ×÷ÓÃÔÚºóÃæ½éÉÜ.
end if
e.Alert_Back(ByVal vMessage) ʹÓÃJavascriptµ¯³öÒ»¸ö´íÎóÌáʾ¿ò,ÏÔʾĿǰËùÓеĴíÎóÁбí,Alert_Back(vMessage)ÖеÄvMessageÏÔʾÔÚ×îºóÒ»ÐÐ,ÓÃÓÚÌáʾÓû§ÔÚ¿´µ½Õâ¸ö´íÎóÐÅÏ¢ºóÐèÒª²ÉÈ¡µÄ²½Öè. ²¢ÇÒ·µ»Øµ½Ç°Ò»Ò³. Õâ¸ö·½·¨µÄ´úÂëÌù³öÀ´,´ó¼Ò»á¸üºÃÀí½â:
Public Sub Alert_Back(ByVal vMessage)
strJSMessage = JSMessage & vMessage 'JSMessageÓÃÓÚ´æ´¢e¶ÔÏóÖеĴíÎóÁбí,ÿ¸ö´íÎóÖ®¼äÓÃ\n·Ö¿ª.
%>
<script language="javascript" >
<!--//
alert("<%=strJSMessage %>"); 'µ¯³öÌáʾ´íÎó¿ò.
 
Ïà¹ØÎĵµ£º
Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕƬ£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......
ÔÎÄÁ´½Ó:http://www.iwapr.cn/article/daima/30.html
ASP/Visual Basic´úÂë
<%
dim picurl,all_picurl
'½ÔÊÇÈ«¾Ö±äÁ¿:·Ö±ð¶¨ÒåͼƬµÄÁ´½ÓµØÖ·;ËùÓÐÖ¸¶¨Îļþ¼Ð(°üÀ¨Ö¸¶¨Îļþ¼ÐµÄ×ÓÎļþ¼ÐÏÂͼƬurlµØÖ·)
picurl="" &n ......
ASPϵÁк¯Êý´óÈ«-ÍøÉÏÊÕ¼¯µÄһЩASPº¯Êý¼°±í´ïʽ
ASPº¯Êý
´óÈ«¡¡
ASPº¯ÊýÓëVBSCRIPTÀàËÆ£¬ÒÔϾÙһЩ³£Óõĺ¯Êý¡¡
¡¡
Array()¡¡
¡¡
º¯Êý·µ»ØÒ»¸öÊý×é¡¡
¡¡
±í´ïʽ Array(list)¡¡
¡¡
ÔÊÐíÊý¾ÝÀàÐÍ: ×Ö·û£¬Êý×Ö¾ù¿É¡¡
¡¡
ʵÀý£º <%¡¡
¡¡
Dim
myArray()¡¡
¡¡
For i = 1 to 7¡¡
¡¡
Redim Preser ......
´úÂ룺
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64)
dim DM, EL
Set DM = CreateObject("Microsoft.XMLDOM")
Set EL = DM.createElement("tmp")
EL.DataType = "bin.base64"
& ......
Õ⼸Ììѧϰ¶¯Ì¬ÍøÕ¾µÄÖÆ×÷£ºASP¡£ÓÉÓÚÀÏʦ½²µÄºÜÈÏÕ棬ºÜÏêϸ£¬¿Î³ÌÄÜÌý¶®£¬×Ô¼ºÒ²ÂòÁËÒ»±¾¹ØÓÚASPµÄÊé¼®£¬ASPµÄһЩ¹¦ÄܵÄʵÏÖ£¬Ôõô×ö³öÀ´ÄÜ¿´µÄ²î²»¶à£¬¿É¾ÍÊÇ×öµÄʱºòºÃ²î¾¢£¬²»ÊÇij¸öÓ¢Óïµ¥´Ê²»»áд£¬¾ÍÊÇÖظ´´íÎó³öÏÖ£¬Éî¿ÌµÄÃ÷°×£¬×öÍøÕ¾ÔÀ´ÕâôÄÑ£¬²»½öÐèÒªÑϽ÷µÄÂ߼˼άÄÜÁ¦£¬¶ø ......