err1.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
if Request("kind")="" then
Response.Write "请指定一个出错ID号"
Response.end
end if
kind=Request("kind")
select case kind
case 00
	inf = "读写房间信息时发生未知错误，清联系管理员。"
case 01
	inf = "没有登陆或已经与服务器失去联系，请重新登陆。"
case 02
	inf = "请指定一个查看对象。"
case 03
	inf = "不存在该帐号。"
case 04
	inf = "该聊友的资料已经设置保密，无法查看。"
case 05
	inf = "由于你在该聊友的坏人名单内，因此该操作被拒绝。"
case 06
	inf = "你级别不够，无权访问此文件。"
case 07
	inf = "你级别不够，无法管理自己的头衔。"
case 08
	inf = "你级别不够，无法管理别人的头衔。"
case 09
	inf = "你级别不够，无法进行踢人操作。"
case 10
	inf = "你级别不够，无法进行封锁IP操作。"
case 11
	inf = "你级别不够，无法进行轰炸操作。"
case 12
	inf = "目前没有被封锁的IP。"
case 13
	inf = "你无权对数据库进行压缩。"
case 14
	inf = "你级别不够，无法进行解锁IP操作。"
case 15
	inf = "你级别不够，无法进行公告管理。"
case 16
	inf = "你级别不够，无法进行广播群发。"
case 17
	inf = "你级别不够，无法禁止IP来源。"
case 18
	inf = "你无权进行级别管理。"
case 19
	inf = "系统尝试修正一个重要错误，但没有成功。请重新存点试一次。如果问题仍然无法解决，请退出聊天室重新登陆一次。"
case 20
	inf = "你无权进行帐号管理。"
case 100
	inf = "=============== 程序无法运行 ===============\r\n\r\n\r\n     很抱歉，本程序无法在您的服务器上运行。因为本程序需\r\n\r\n要虚拟目录的支持。除此之外，您也可能其他方面设置有误。"
case 500
	inf = "数据库读取发生未知错误，请将错误报告发送给程序作者[e-mail]，以便作者及时修正。"
case else
	inf = "发生未知错误，请将错误报告发送给程序作者[e-mail]，以便作者及时修正。"
end select
%>
<script language="javascript">
alert("出错提示:\r\n\r\n<%=inf%>\r\n");top.window.close();
</script>