登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

在网站采用标准独立的出错提示页  

2008-03-19 14:37:11|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>错误提示!</title>
<link rel="stylesheet" href="images/css/admin_style_<%=AdminSkin%>.css" type="text/css" media="all" />
</head>
<body leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0">
<p>&nbsp;</p>
<%

Dim action,Message
action = MyByYear.CheckStr(Request("action"))
If Request.Querystring("message") <> "" Then
        Message = CheckErrCodes(Request.Querystring("message"))
End If
Select Case action
        Case "error"
                Call Error_Msg()
        Case "err"
                Call AdminError()
        Case "succeed"
                Call Succeed_Msg()
        Case "remind"
                Call Remind_Msg()
        Case "keyerr"
                Call KeyError()
        Case "genup"
                Call GenupMsg()
        Case Else
                Call AdminError()
End Select
Admin_Footer
CloseConn
Sub Error_Msg()
        Response.Write "<br><br><table width=""523""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
        Response.Write "  <tr>"& vbCrLf
        Response.Write "    <td><img src=""images/img_r2_c1.gif"" width=""523"" height=""55""></td>"& vbCrLf
        Response.Write "  </tr>"& vbCrLf
        Response.Write "  <tr>"& vbCrLf
        Response.Write "    <td height=""100"" background=""images/img_r2_c2.gif""><table width=""92%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
        Response.Write "      <tr>"& vbCrLf
        Response.Write "        <td width=""22%"" align=""center""><img src=""images/err.gif"" width=""95"" height=""97""></td>"& vbCrLf
        Response.Write "        <td width=""78%""><b>  产生错误的可能原因:</b><br>" & Message &"</td>"& vbCrLf
        Response.Write "      </tr>"& vbCrLf
        Response.Write "    </table></td>"& vbCrLf
        Response.Write "  </tr>"& vbCrLf
        Response.Write "  <tr>"& vbCrLf
        Response.Write "    <td align=""right"" background=""images/img_r2_c3.gif""><a href=""" & Request.ServerVariables("HTTP_REFERER") & """><img src=""images/confirm_r2.gif"" alt=""确定返回"" width=""123"" height=""42"" border=""0""></a></td>"& vbCrLf
        Response.Write "  </tr>"& vbCrLf
        Response.Write "</table><p>&nbsp;</p>"& vbCrLf
End Sub
Sub AdminError()
        Response.Write "<br><br><table width=""523""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
        Response.Write "  <tr>"& vbCrLf
        Response.Write "    <td><img src=""images/img_r2_c1.gif"" width=""523"" height=""55""></td>"& vbCrLf
        Response.Write "  </tr>"& vbCrLf
        Response.Write "  <tr>"& vbCrLf
        Response.Write "    <td height=""100"" background=""images/img_r2_c2.gif""><table width=""92%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
        Response.Write "      <tr>"& vbCrLf
        Response.Write "        <td width=""22%"" align=""center""><img src=""images/err.gif"" width=""95"" height=""97""></td>"& vbCrLf
        Response.Write "        <td width=""78%""><b>产生错误的可能原因:</b><br><li>确认身份失败!您没有使用当前功能的权限。</li><li>当前操作已记录,如果有什么问题,请联系管理员。</li></td>"& vbCrLf
        Response.Write "      </tr>"& vbCrLf
        Response.Write "    </table></td>"& vbCrLf
        Response.Write "  </tr>"& vbCrLf
        Response.Write "  <tr>"& vbCrLf
        Response.Write "    <td align=""right"" background=""images/img_r2_c3.gif""><a href=""" & Request.ServerVariables("HTTP_REFERER") & """><img src=""images/confirm_r2.gif"" alt=""确定返回"" width=""123"" height=""42"" border=""0""></a></td>"& vbCrLf
        Response.Write "  </tr>"& vbCrLf
        Response.Write "</table><p>&nbsp;</p>"& vbCrLf
End Sub
'********成功提示信息****************
Sub Succeed_Msg()
        Response.Write "<BR><BR><table align=""center"" border=""0"" cellpadding=""5"" cellspacing=""1"" class=""tableBorder1"">"& vbCrLf
        Response.Write "    <tr> "& vbCrLf
        Response.Write "      <th>成功提示信息!</th>"& vbCrLf
        Response.Write "    </tr>"& vbCrLf
        Response.Write "  <tr><td class=TableRow2 style=""padding-right: 8px; padding-left: 8px; padding-bottom: 5px; padding-top: 5px"">" & Message &"</td></tr>" & vbCrLf
        Response.Write "  <tr><td class=TableRow2 align=""right"" style='COLOR: Red;'>时间:" & Now() & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=TableRow1><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
        Response.Write " </table><p>&nbsp;</p>"& vbCrLf
End Sub
'********提示信息****************
Sub Remind_Msg()
        Response.Write "<BR><BR><table cellpadding=5 cellspacing=1 border=0 align=center class=tableBorder1>" & vbCrLf
        Response.Write "  <tr><th>提示!</th></tr>" & vbCrLf
        Response.Write "  <tr><td class=TableRow2 style=""padding-right: 8px; padding-left: 8px; padding-bottom: 5px; padding-top: 5px"">" & Message &"</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=""right"" class=TableRow2 style='COLOR: Red;'>时间:" & MyByYear.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=TableRow1><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>返回上一页...</a></td></tr>" & vbCrLf
        Response.Write "</table><p>&nbsp;</p>" & vbCrLf
End Sub
%>

  评论这张
 
阅读(678)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018