📄 errorclass.asp

📁 ASP+sql 组成的系统．功能强大
💻 ASP
字号:
<%
'类名：ErrorClass
'功能：错误信息的一般方法与属性
Class ErrorClass	
	Public Founderr,Message
	
	'功能：显示信息
	'参数：page  返回的页
	'      title 页标题
	'      widthN 显示框宽
	'      heightN 显示框长
	'返回值：显示信息代码字符串
	Public Sub showMessage(page,title,widthN,heightN)
		Dim strReturn
		strReturn = ""
		strReturn = strReturn & "<html> <head><meta HTTP-EQUIV=refresh Content='3;url="
		strReturn = strReturn & CStr(page)
		strReturn = strReturn &  "'><title>" & CStr(title) & "</title>"
		strReturn = strReturn & "</head><body bgcolor=#000000>"
		strReturn = strReturn &  "<br><br><br><br><br><br><br><TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center WIDTH="
		strReturn = strReturn & CStr(210+(widthN-1)*79)
		strReturn = strReturn & "><TR><TD><IMG height=30 src='Image/leftmenu/leftmenu_01.jpg' width=26></TD>"
		strReturn = strReturn & "<TD><IMG height=30 src='Image/leftmenu/topside1.jpg' width=78></TD>"
		For i=1 To widthN
			strReturn = strReturn & "<TD><IMG height=30 src='Image/leftmenu/topside2.jpg' width=79></TD>"
		Next
		strReturn = strReturn & "<TD><IMG height=30 src='Image/leftmenu/leftmenu_04.jpg' width=27></TD></TR>"
		strReturn = strReturn & "<TR><TD><IMG height=75 src='Image/leftmenu/leftside1.jpg' width=26></TD>"
		strReturn = strReturn & "<TD COLSPAN="
		strReturn = strReturn & CStr(widthN+1)
		strReturn = strReturn & " ROWSPAN="
		strReturn = strReturn & CStr(heightN+1)
		strReturn = strReturn & " background='Image/leftmenu/text.jpg' valign=top align=center>"		
		strReturn = strReturn & "<br><br><font color=gold size=3><strong>" & CStr(title) & "</strong></font><br><br>"
		strReturn = strReturn & "<font color=#eeeeee size=2>" & CStr(Message) & "</font><br>"
		strReturn = strReturn & "<font color=#eeeeee size=2>本页3秒刷新后,自动返回</font>"
		strReturn = strReturn & "</TD>"
		strReturn = strReturn & "<TD><IMG height=75 src='Image/leftmenu/rightside1.jpg' width=27></TD></TR>"
		For i=1 To heightN
			strReturn = strReturn & "<TR><TD><IMG height=76 src='Image/leftmenu/leftside3.jpg' width=26></TD>"   
			strReturn = strReturn & " <TD><IMG height=76 src='Image/leftmenu/rightside3.jpg' width=27></TD></TR>"
		Next
		strReturn = strReturn & "<TR><TD><IMG height=30 src='Image/leftmenu/leftmenu_12.jpg' width=26></TD>"
		strReturn = strReturn & "<TD><IMG height=30 src='Image/leftmenu/bottomside1.jpg' width=78></TD>"
		For i=1 To widthN
			strReturn = strReturn & "<TD><IMG height=30 src='Image/leftmenu/bottomside2.jpg' width=79></TD>"
		Next
		strReturn = strReturn & "<TD><IMG height=30 src='Image/leftmenu/leftmenu_15.jpg' width=27></TD></TR></TABLE>"
		strReturn = strReturn & "</body></html>"		
		Response.Write strReturn		
	End Sub	
End Class

%>
⌨️ 快捷键说明

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