后台管理错误提示！

<% Dim action,Message action = Trim(Replace(Request("action"),"'", "''")) If Request.Querystring("message") <> "" Then Message = Trim(Replace(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 "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write " | 产生错误的可能原因： " & Message &" "& vbCrLf Response.Write "
"& vbCrLf Response.Write "

"& vbCrLf Response.Write "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "

"& vbCrLf End Sub Sub AdminError() Response.Write "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "

"& vbCrLf Response.Write "

产生错误的可能原因：
- 确认身份失败！您没有使用当前功能的权限。
- 当前操作已记录，如果有什么问题，请联系管理员。
"& vbCrLf Response.Write "

"& vbCrLf Response.Write "

"& vbCrLf Response.Write "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
"& vbCrLf Response.Write "

"& vbCrLf End Sub '********成功提示信息**************** Sub Succeed_Msg() Response.Write "

"& vbCrLf Response.Write "
"& vbCrLf Response.Write "
成功提示信息! "& vbCrLf Response.Write "
"& vbCrLf Response.Write "
" & Message &"
" & vbCrLf Response.Write "
时间：" & Now() & "
" & vbCrLf Response.Write "
返回上一页...
" & vbCrLf Response.Write "

"& vbCrLf End Sub '********提示信息**************** Sub Remind_Msg() Response.Write "

" & vbCrLf Response.Write "
提示!
" & vbCrLf Response.Write "
" & Message &"
" & vbCrLf Response.Write "
时间：" & Newasp.NowTime & "
" & vbCrLf Response.Write "
返回上一页...
" & vbCrLf Response.Write "

" & vbCrLf End Sub %>