error.asp

该是一套视频点播系统

<%










 
 const BKM_SUCCESS = 0
 const BKM_ADD_ERROR = 4001
 const BKM_LIST_ERROR = 4002
 const BKM_DLT_ERROR = 4003
 const BKM_DLTALL_ERROR = 4004
 const BKM_ADD_FULL = 4005
 const BKM_ADD_FATAL = 4011
 const BKM_LIST_FATAL = 4012
 const BKM_DLT_FATAL = 4013
 
 dim BKM_ERR_MSG
if(not isObject(session("BKM_ERR_MSG"))) then
	set BKM_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	BKM_ERR_MSG.add "BKM_SUCCESS"  ,  "执行成功"
	BKM_ERR_MSG.add "BKM_ADD_ERROR"  ,  "添加个人书签失败"
	BKM_ERR_MSG.add "BKM_LIST_ERROR"  ,  "列出个人书签失败"
	BKM_ERR_MSG.add "BKM_DLT_ERROR"  ,  "删除个人书签失败"
	BKM_ERR_MSG.add "BKM_DLTALL_ERROR"  ,  "删除所有书签失败"
	BKM_ERR_MSG.add "BKM_ADD_FULL"  ,  "书签数已满"
	BKM_ERR_MSG.add "BKM_ADD_FATAL"  ,  "致命错误"
	BKM_ERR_MSG.add "BKM_LIST_FATAL"  ,  "致命错误"
	BKM_ERR_MSG.add "BKM_DLT_FATAL"  ,  "致命错误"                 

	set session("BKM_ERR_MSG") = BKM_ERR_MSG
else
	set BKM_ERR_MSG = session("BKM_ERR_MSG")
end if













%>