📄 errorclass.asp
字号:
<%
'类名：ErrorClass
'功能：错误信息的一般方法与属性
Class ErrorClass
Public Founderr,Message
'功能：显示信息
'参数：page 返回的页
' title 页标题
'返回值：显示信息代码字符串
Public Sub showMessage(page,title)
Dim strReturn
strReturn = ""
strReturn = strReturn & "<html> <head> "
strReturn = strReturn & "<meta HTTP-EQUIV=refresh Content='3;url="
strReturn = strReturn & CStr(page)
strReturn = strReturn & "'><title>" & CStr(title) & "</title>"
strReturn = strReturn & "</head><body>"
strReturn = strReturn & "<br><br><br><br><br><br><br>"
strReturn = strReturn & "<TABLE BORDER=0 align=center WIDTH=200 bgcolor='#ff9933'>"
strReturn = strReturn & "<TR><TD align=center><font color=red size=2>" & CStr(Message)
strReturn = strReturn & "</font><br><font size=2>"
strReturn = strReturn & "本页3秒刷新后,自动返回</font>"
strReturn = strReturn & "</TD></TR></TABLE>"
strReturn = strReturn & "</body></html>"
Response.Write strReturn
End Sub
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -