您所在的位置:小祥子 » 编程 » ASP » 正文

ASP简单的错误提示函数

时间:2015-02-27 编辑:本站 来源:本站原创

定义一个通用的错误显示函数,然后直接使用<%=ShowErr("错误提示",0)%>即可。

<%
'==============================
'函 数 名:ShowErr
'作    用:错误提示函数
'参    数:错误说明ErrStr
'         错误类型ErrType(0前台,1后台)
'==============================
Public Function ShowErr(ErrStr,ErrType)
 If ErrType=0 Then
  Temp="<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
  Temp=Temp&"<html xmlns=""http://www.w3.org/1999/xhtml"">"
  Temp=Temp&"<head>"
  Temp=Temp&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"
  Temp=Temp&"<title>系统提示</title>"
  Temp=Temp&"<style type=""text/CSS"">"
  Temp=Temp&"body,td,th {font-size: 12px;}"
  Temp=Temp&"body {margin-left:0px;margin-top:50px;margin-right: 0px;margin-bottom: 0px;}"
  Temp=Temp&"#errBox {width:500px;margin:0 auto;border:1px solid #CCC;}"
  Temp=Temp&"#errTitle {border-bottom:1px solid #CCC;line-height:25px;text-align:center;}"
  Temp=Temp&"#errStr {padding:10px;line-height:22px;text-indent:24px;}"
  Temp=Temp&"</style>"
  Temp=Temp&"</head>"
  Temp=Temp&"<body>"
  Temp=Temp&"<div id=""errBox"">"
  Temp=Temp&" <div id=""errTitle"">系统提示</div>"
  Temp=Temp&"    <div id=""errStr"">"&ErrStr&"</div>"
  Temp=Temp&"</div>"
  Temp=Temp&"</body>"
  Temp=Temp&"</html>"
 End If
 If ErrType=1 Then
  Temp="<div id=""errBox"">"
  Temp=Temp&" <div id=""errTitle"">系统提示</div>"
  Temp=Temp&"    <div id=""errStr"">"&ErrStr&"</div>"
  Temp=Temp&"</div>"
  Temp=Temp&"</body>"
 End If
 If ErrType=2 Then
  Temp=ErrStr
 End If
 Response.Write(Temp)
 Response.End()
End Function

%>

关键词:ASP 简单 错误 函数