error.asp

该是一套视频点播系统

<%

%>
<%











const RVW_SUCCESS = 0
const RVW_ADD_ERROR = 5001	
const RVW_LIST_ERROR = 5002
const RVW_LISTLATE_ERROR = 5003 
const RVW_LISTPRD_ERROR = 5004
const RVW_SEE_ERROR = 5005
const RVW_DLT_ERROR = 5006
const RVW_ADD_FATAL = 5011	
const RVW_LIST_FATAL = 5012
const RVW_LISTLATE_FATAL = 5013 
const RVW_LISTPRD_FATAL = 5014
const RVW_SEE_FATAL = 5015
const RVW_DLT_FATAL = 5016
 dim RVW_ERR_MSG
if(not isObject(session("RVW_ERR_MSG"))) then
	set RVW_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	RVW_ERR_MSG.add "RVW_SUCCESS" , "执行成功"                       
	RVW_ERR_MSG.add "RVW_ADD_ERROR" , "发表评论失败"                  
	RVW_ERR_MSG.add "RVW_LIST_ERROR" , "列指定资料评论失败"            
	RVW_ERR_MSG.add "RVW_LISTLATE_ERROR" , "列最近发表的评论失败"       
	RVW_ERR_MSG.add "RVW_LISTPRD_ERROR" , "列指定时间区间发表的评论失败" 
	RVW_ERR_MSG.add "RVW_SEE_ERROR" , "查看评论失败"                  
	RVW_ERR_MSG.add "RVW_DLT_ERROR" , "删除评论失败"                  
	RVW_ERR_MSG.add "RVW_ADD_FATAL" , "致命错误"                          
	RVW_ERR_MSG.add "RVW_LIST_FATAL" , "致命错误"	                  
	RVW_ERR_MSG.add "RVW_LISTLATE_FATAL" ,	"致命错误"                
	RVW_ERR_MSG.add "RVW_LISTPRD_FATAL" , "致命错误"	              
	RVW_ERR_MSG.add "RVW_SEE_FATAL" , "致命错误"	                  
	RVW_ERR_MSG.add "RVW_DLT_FATAL" , "致命错误"	                      

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

















%>