chkerr.asp

本程序是一款比较完善的图书租赁系统

<%
Function GetErr(ErrCode)
	If IsNumeric(ErrCode)=False Then
		Response.Write "提交的数据类型错误！"
		Response.End
	End If
	ErrCode=CInt(ErrCode)
	strSQL="SELECT * FROM [ErrCode] WHERE Err_ID_N="&ErrCode
	Set objRS=Server.CreateObject("ADODB.RecordSet")
	objRS.Open strSQL,objConn,1,1
	
	If objRS.BOF Or objRS.EOF Then
		Response.Write "<link href=style.css rel=stylesheet type=text/css>"
		Response.Write "<br><br><br>"
		Response.Write "<table cellspacing=1 cellpadding=3 align=center class=ErrTable>"
		Response.Write "<tr><td align=right width=100 class=tablebody2>错误代码：</td><td class=tablebody1>0</td></tr>"
		Response.Write "<tr><td align=right width=100 class=tablebody2>错误描述：</td><td class=tablebody1>通用错误</td></tr>"
		Response.Write "<tr><td align=right width=100 class=tablebody2>解决方法：</td><td class=tablebody1>请尝试重新登陆 [<a href=javascript:history.go(-1)>返回</a>]</td></tr>"
		Response.Write "<tr><td class=tablebody1 colspan=2 align=center>[<a href=javascript:history.go(-1)>返回上页</a>]&nbsp;[<a href=index.asp>返回首页</a>]&nbsp;[<a href=#>错误报告</a>]</td>"
		Response.Write "</table>"
		objRS.Close
		Set objRS=Nothing
		Response.End
	End If
	GetErr=GetErr&"<link href=style.css rel=stylesheet type=text/css>"
	GetErr=GetErr&"<title>出现错误！错误代码="&ErrCode&"</title>"
	GetErr=GetErr&"<br><br><br>"
	GetErr=GetErr&"<table cellspacing=1 cellpadding=3 align=center class=ErrTable>"
	GetErr=GetErr&"<tr><th colspan=2 id=tabletitlelink height=25 style=font-weight:normal align=center>抱歉！您的操作出现了错误</th></tr>"
	GetErr=GetErr&"<tr><td align=right width=100 class=tablebody2>错误代码：</td><td class=tablebody1>"&objRS("Err_ID_N")&"</td></tr>"
	GetErr=GetErr&"<tr><td align=right width=100 class=tablebody2>错误描述：</td><td class=tablebody1>"&objRS("Err_Description_S")&"</td></tr>"
	GetErr=GetErr&"<tr><td align=right width=100 class=tablebody2>解决方法：</td><td class=tablebody1>"&objRS("Err_Method_S")&"</td></tr>"
	GetErr=GetErr&"<tr><td class=tablebody1 colspan=2 align=center>[<a href=javascript:history.go(-1)>返回上页</a>]&nbsp;[<a href=index.asp>返回首页</a>]&nbsp;[<a href=#>错误报告</a>]</td>"
	GetErr=GetErr&"</table>"
	objRS.Close
	Set objRS=Nothing
End Function
%>