[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 %>"); 'µ¯³öÌáʾ´íÎó¿ò.
 
Ïà¹ØÎĵµ£º
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......
Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚ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 ......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
ʹÓÃDreamweaver²âÊÔÁ¬½Ó³É¹¦£¬µ«ÊÇIISÀïÃæÔËÐÐÈ´×ÜÊÇ´íÎó°Ù³ö£¬¿´ÁËÏÂÃæÕâÆª²©ÎÄÎÊÌâ²ÅµÃÒÔ½â¾ö¡¢¡¢¡¢
Ò»°ãÇé¿öÏÂasp¿ÉÒÔÕý³£ÔËÐÐ,µ«Ö»ÒªÁ¬½ÓÊý¾Ý¿â¾ÍÌáʾ,Microsoft JET Database Engine ´íÎó
'80004005',ÎҵĵçÄÔÒòΪÓÃÅú´¦ÀíÇåÀíÎļþ,ËùÒÔ²»ÄÜÔËÐÐÁË£¬ Ö»
1.²é¿´Êý¾Ý¿âÁ¬½ÓÓï¾äûÓз¢ÏÖ´íÎó£»
2.²é¿´Îļþ¼ÐµÄȨÏÞÒÑ ......