err2.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
if Request("kind")="" then
Response.Write "请指定一个出错ID号"
Response.end
end if
kind=int(Request("kind"))
select case kind
case 1
inf="呼叫的内容过长！"
case 2
inf="你的级别被规定不允许贴图。"
case 3
inf="你已经在本房间，无须切换。"
case 4
inf="并没有对头像进行更改，操作未执行！"
case 5
inf="公告内容太长。"
case 6
inf="级别不够，无法进入本房间。"
case 7
inf="该房间已经满员，去别的房间吧！"
case 8
inf="你不在被管理名单内，无权访问此文件。"
case 9
inf="没有对公告进行修改。"
case 500
inf="数据库读取发生未知错误，请将错误报告发送给程序作者[e-mail]，以便作者及时修正。"
case else
inf="发生未知错误，请将错误报告发送给程序作者[e-mail]，以便作者及时修正。"
end select
%>
<script language="javascript">
alert("出错提示:\r\n\r\n<%=inf%>\r\n");history.back(1);
</script>