errorclass.asp

来自「Sql数据库的应用」· ASP 代码 · 共 30 行

ASP
30 行
字号 
<%
'类名：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
%>

errorclass.asp - 源码说明

本页面展示了「Sql数据库的应用」中的 errorclass.asp 源码文件，采用 ASP 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与SQL相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?