[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 %>"); 'µ¯³öÌáʾ´íÎó¿ò.
 
Ïà¹ØÎĵµ£º
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='¼Ò×°¿ÎÌÃ' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("ÔÝʱûÓмǼ")
else
%>
......
¡¡¡¡Ñ§Ï°Ä¿µÄ£ºÑ§»áÓÃ±íµ¥ÔªËØÏò·þÎñÆ÷´«ËͱäÁ¿£¬È»ºóÏÔʾ±äÁ¿ÔÚ¿Í»§¶ËµÄä¯ÀÀÆ÷¡£
¡¡¡¡Ê×ÏÈ£¬ÈÃÎÒÃÇÀ´¿´Ò»ÏÂDREAMWEAVERµÄ±íµ¥ÔªËØÃ«Ë¢¡£
¡¡¡¡ÏÂÃæÎÒÃÇÀ´Ò»¸öÒ»¸ö¿´±íµ¥ÔªËØ¡£1¡¢Îı¾Óò£¬Õâ¸öÊÇ×î»ù±¾µÄ£¬´«Ë͵ÄÊÇÎı¾ÐÅÏ¢£¬Ò»°ãÓû§Ãû£¬ÃÜÂë¶¼ÒªÓÃÕâ¸ö´«ËÍ£¬²»¹ýÒªÊÇÃÜÂëµÄ»°ÒªÔÚÀàÐÍÀïÃæÑ¡ÔñÃÜÂ룬ÕâÑù¾Í»áÒÔ*´úÌæÏÔʾ³ ......
ÔÎÄÁ´½Ó: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 ......
Adodb.StreamÊÇADOµÄStream¶ÔÏó,Ìṩ´æÈ¡¶þ½øÖÆÊý¾Ý»òÕßÎı¾Á÷,´Ó¶øÊµÏÖ¶ÔÁ÷µÄ¶Á¡¢Ð´ºÍ¹ÜÀíµÈ²Ù×÷.
ÓÐÏÂÁз½·¨£º
Cancel ·½·¨
ʹÓ÷½·¨ÈçÏÂ
Object.Cancel
˵Ã÷£ºÈ¡ÏûÖ´ÐÐ¹ÒÆðµÄÒì²½ Execute »ò Open ·½·¨µÄµ÷Óá£
Close ·½·¨
......