err.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 = "用户名必须小于10个字符。(一个汉字占用两个字符)"
	Case 8
		inf = "为了您的帐号安全，密码至少需要4位。"
	Case 9
		inf = "您的密码输入有误，请仔细核对。"
	Case 10
		inf = "没有授权访问该页。"
	Case 11
		inf = "读写数据库时发生不明错误。请返回重新填写。"
		def="ok"
	Case 12
		inf = "两次输入的密码不一致。"
		def="ok"
	Case 13
		inf = "你已经退出聊天室，没有必要重复退出。"
		def="ok"
	Case 14
		inf = "该用户名正在使用，不能重复登陆。如果确定该用户名被卡，可以到首页的“掉线自救”进行处理。"
		def="ok"
	Case 15
		inf = "你不在聊天室内，无权访问此文件。"
	Case 16
		inf = "你长时间不声不响，服务器已经断开与你的联系。"
		def="ok"
	Case 17
		inf = "本程序仅对IE浏览器有效，请安装IE4.0以上版本浏览器。（其实现在Netscape已经没人用了哦:)）"
	Case 18
		inf = "没有指定您想进入的房间。请在房间列表中选择。"
	Case 19
		inf = "读写房间信息时发生未知错误，清联系管理员。"
		def="ok"
	Case 20
		inf = "没有登陆或已经与服务器失去联系，请重新登陆。"
		def="ok"
	Case 21
		inf = "没有指定任何匹配条件，不能查找。请至少指定一项匹配条件。"
	Case 22
		inf = "请指定正确的排序方式。"
	Case 23
		inf = "你目前的级别还不能够往词库里添加内容。"
	Case 24
		inf = "请不要尝试手工修改头像代号！"
	Case 25
		inf = "添加的内容不能为空！"
	Case 26
		inf = "非常抱歉，您输入的这条记录已经存在！"
	Case 27
		inf = "请输入搜索的关键字！"
	Case 28
		inf = "请指定正确的搜索方式！"
	Case 29
		inf = "对不起，站长已经暂时关闭了聊天室，请稍后访问。"
	Case 30
		inf = "非常抱歉，已经搜索了所有房间，您要呼叫得聊友并不在聊天室内。"
	Case 31
		inf = "你目前的级别还不能删除词库的内容。"
	Case 32
		inf = "对不起，站长已经暂时禁止了注册新用户，请稍后访问。"
	Case 33
		inf = "没有对头像进行更改，操作未执行。"
	Case 34
		inf = "不存在该帐号。"
	Case 35
		inf = "该聊友不在聊天室内或不存在该帐号，无法操作。"
	Case 36
		inf = "你已经加了这个人为好友。"
	Case 37
		inf = "不能添加自己为好友。"
	Case 38
		inf = "不能呼叫自己。"
	Case 39
		inf = "呼叫内容不能为空。"
	Case 40
		inf = "解除对象不能是自己。"
	Case 41
		inf = "你的好友名单里并没有这个聊友，无法解除。"
	Case 42
		inf = "该聊友目前在你的坏人名单里，无法直接添加为好友。"
	Case 43
		inf = "你已经将这个人列为坏人。"
	Case 44
		inf = "该聊友目前在你的好友名单里，无法直接列为坏人。"
	Case 45
		inf = "该聊友本来就不在坏人名单内，无法解除。"
	Case 46
		inf = "头衔中夹杂着非法的字符串"
	Case 47
		inf = "头衔最多只能6个字符。(一个汉字相当于两个字符)"
	Case 48
		inf = "你不在被管理名单内，无权访问此文件。"
	Case 49
		inf = "你没发烧吧？踢自己玩啊？"
	Case 50
		inf = "你违反聊天室纪律，已经被踢出聊天室。"
		def = "ok"
	Case 51
		inf = "你违反聊天室纪律，已经被封锁IP。"
		def = "ok"
	Case 52
		inf = "必须填写理由。"
	Case 53
		inf = "级别不够，无法跨房间操作。"
	Case 54
		inf = "用户名不能以数字开头。"
	Case 55
		inf = "必须填写操作对象。"
	Case 56
		inf = "你没发烧吧？炸自己玩啊？"
	Case 57
		inf = "你没发烧吧？封自己IP？"
	Case 58
		inf = "级别不够，无法进入本房间。"
	Case 59
		inf = "该房间已经满员，去别的房间吧！"
	Case 60
		inf = "你没有修改系统参数的权力。"
	Case 61
		inf = "站长需要对聊天室进行维护，暂时关闭几分钟，请稍后访问。"
		def = "ok"
	Case 62
		inf = "你没有管理权限分配的权力。"
	Case 63
		inf = "有几个选项必须为数字。"
	Case 64
		inf = "在选择了自动升级后，自动升级所需分数必须填写数字。"
	Case 65
		inf = "查看的ip段数必须为数字。"
	Case 66
		inf = "查看的ip段数只能是0-4。"
	Case 67
		inf = "在选择了升级管理后，最高升至几级必须填写数字。"
	Case 68
		inf = "在选择了降级管理后，最低降至几级必须填写数字。"
	Case 69
		inf = "该用户名已经被陪聊机器人使用。"
	Case 70
		inf = "不存在该级别，无法修改。"
	Case 71
		inf = "不能对室主进行操作。"
	Case 72
		inf = "广播内容不能为空。"
	Case 73
		inf = "头衔中不能含有空格。"
	Case 74
		inf = "IP地址填写不合法。"
	Case 75
		inf = "该用户的现有级别已经超出了你的管理范围。"
	Case 76
		inf = "请指定是否锁定级别。"
	Case 77
		inf = "没有对级别进行更改。"
	Case 78
		inf = "你没有升级权限。"
	Case 79
		inf = "你没有降级权限。"
	Case 80
		inf = "管理权限超出范围。"
	Case 81
		inf = "你的IP地址段已经被站长禁止，请联系站长解除。"
	Case 82
		inf = "没有对用户的级别锁定状态进行更改。"
	Case 83
		inf = "你没有房间管理的权限。"
	Case 84
		inf = "房间的每个参数都是必须填写的。"
	Case 85
		inf = "最大在线数和进入级别必须为数字。"
	Case 86
		inf = "房间名称中夹杂着非法的字符串"
	Case 87
		inf = "房间名称不能超过12个字符(一个汉字占用两个字符)。"
	Case 88
		inf = "机器人名字中夹杂着非法的字符串"
	Case 89
		inf = "机器人名字不能超过12个字符(一个汉字占用两个字符)。"
	Case 90
		inf = "你无权清理管理日志。"
	Case 91
		inf = "该帐号本来就为永久保留。"
	Case 92
		inf = "该帐号本来就不是永久保留。"
	Case 93
		inf = "该帐号正在使用，如果现在操作将使数据库发生混乱。如果一定要马上操作，可以通知将该聊友离开聊天室或踢出。"
	Case 94
		inf = "并没有对密码进行更改。"
	Case 95
		inf = "必须指定呼叫对象。"
	Case 96
		inf = "添加对象不能为空。"
	Case 97
		inf = "解除对象不能为空。"
	Case 98
		inf = "数据库中没有新的信息，没有必要重新激活聊天室。"
	Case 99
		inf = "至少必须保留一个房间。"
	Case 100
		inf = "\r\n\r\n     本程序无法在您的服务器上运行。原因可能有：\r\n\r\n程序所在目录不是虚拟目录；\r\n\r\n手工修改数据库中的房间或等级数据造成数据库混乱。"
	Case 101
		inf = "没有对房间信息进行任何修改。"
	Case 102
		inf = "当前没有投票在进行。"
	Case 103
		inf = "请选择一个投票选项。"
	Case 104
		inf = "表单的值必须为数字。"
	Case 105
		inf = "你已经投过一票了。"
	Case 106
		inf = "此次投票请你回避。"
	Case 107
		inf = "不存在该投票。"
	Case 108
		inf = "投票的代号必须为数字。"
	Case 109
		inf = "你的级别不在允许投票的范围内。"
	Case 110
		inf = "你没有管理投票的权限。"
	Case 111
		inf = "必须填写投票的主题。"
	Case 112
		inf = "必须填写投票的选项。"
	Case 113
		inf = "准许投票的级别的起始级别必须小于或等于终止级别。"
	Case 114
		inf = "必须指定新用户名。"
	Case 115
		inf = "必须填写留言主题。"
	Case 116
		inf = "请填写留言的内容。"
	Case 117
		inf = "你要留言给谁呀？"
	Case 118
		inf = "留言的标题不能超过20个字。"
	Case 119
		inf = "留言的对象太长。"
	Case 120
		inf = "接收发言的更新时间最少为3秒。"
	Case 121
		inf = "溺水时间至少为500秒。"
	Case 122
		inf = "尚未登陆不能查看私人留言。"
	Case 123
		inf = "留言内容太长。"
	Case 124
		inf = "请指定要删除的留言的ID号。"
	Case 125
		inf = "你没有删除留言的权限。"
	Case 126
		inf = "不存在该留言。"
	Case 127
		inf = "低级别无法管理更高级别。"
	Case 500
		inf = "数据库读取发生未知错误，可能数据没有被保存，请将错误报告发送给程序作者[e-mail]，以便作者及时修正。"
		def="ok"
	Case Else
		inf = "发生未知错误，请将错误报告发送给程序作者[e-mail]，以便作者及时修正。"
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
<!--
table        { font-size: 10pt }
body         { font-size: 10pt;color:<%=zzbird_chattext%>;}
-->
</style>
</head>
<body>
<script language="javascript">
if(confirm("出错提示：\r\n\r\n<%=inf%>\r\n\r\n     ----点击“确定”<%if def="ok" then%>返回登陆界面<%else%>返回前一页<%end if%><%if kind<>33 then%>，点击“取消”关闭本窗口。<%end if%>")){
 <%if def="ok" then%>top.location.href="default.asp";<%else%>history.back(1);<%end if%>
 }<%if kind<>33 then%>else{top.window.close();}<%end if%>
</script>
<br>
<div align="center"><input type="button" value="关闭本窗口" name="B3" onclick="window.close()"></div>
</body>
</html>