err.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 24 行

<!--#include file="inc/inc_syssite.asp"-->
<!--#include file="inc/syscode.asp"-->
<%
dim show_err,errmsg,strerr,errmsg1,i
errmsg=trim(request("message"))
call sysshow()
If errmsg<>"" Then
	errmsg=Split(oblog.filt_html(errmsg),"_")
	For i=0 to UBound(errmsg)
		If i=0 Then
			errmsg1=errmsg1&"<li>"&errmsg(i)
		Else
			errmsg1=errmsg1&"<br><li>"&errmsg(i)
		End If
	Next
End If
show_err= "<table cellpadding=2 cellspacing=1 border=0 width=400 align=center>" & vbcrlf
show_err=show_err & "  <br><tr align='center'><td height='22' ><strong>错误信息</strong><hr noshade></td></tr>" & vbcrlf
show_err=show_err & "  <tr><td height='100'  valign='top'><b>产生错误的可能原因：</b><br>" & errmsg1 &"</td></tr>" & vbcrlf
show_err=show_err & "  <tr align='center'><td ><a href='javascript:history.go(-1)'>&lt;&lt; 返回上一页</a></td></tr>" & vbcrlf
show_err=show_err & "</table>" & vbcrlf
G_P_Show=replace(G_P_Show,"$show_list$",show_err)&oblog.site_bottom
response.Write G_P_Show
%>