error.asp

该是一套视频点播系统

<%

%>
<%

















const MAX_RECORD_NUMBER = 200 


const HIS_SUCCESS = 3000





const HIS_DB_CANNT_LOCK = 3006
const HIS_NO_PRIVILEGE = 3007
dim HIS_ERR_MSG
if(not isObject(session("HIS_ERR_MSG"))) then
	set HIS_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	HIS_ERR_MSG.add "HIS_DB_CONN_ERROR" ,  "Can't connect to database in history module"
	HIS_ERR_MSG.add "HIS_DB_SELECT_ERROR" , "Error when execute a select history in history module"
	HIS_ERR_MSG.add "HIS_CATEGORY_NOT_EXIST" , "The special category is not exist in history module"
	HIS_ERR_MSG.add "HIS_MATERIAL_NOT_EXIST" , "The special material is not exist in history module"    
	set session("HIS_ERR_MSG") = HIS_ERR_MSG

else
	set HIS_ERR_MSG = session("HIS_ERR_MSG")

end if







%>