error.asp

来自「该成绩管理系统面向学校、教师、学生」· ASP 代码 · 共 12 行

<%
  dim founderr,errmsg,rigmsg,backurl
  sub errormsg()
      response.write"<p><font color='#ff0000'>操作出错：</font></p>"&errmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
  end sub
  
  sub rightmsg()
      '自动返回前一页（也可根据backurl设定）
      response.write"<meta HTTP-EQUIV=REFRESH CONTENT='1; URL="&backurl&"'>"&_
	                "<p><font color='#ff0000'>操作成功：（1秒后自动返回）</font></p>"&rigmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
  end sub
%>