error.asp

该是一套视频点播系统

<%



    const LOG_SQL_QUERY_FAILED =  8044         
    const LOG_FILE_ACCESS_FAILED =  8045       
    const LOG_FILE_NOT_COMPATIBLE =  8046      
    const LOG_RESULT_EMPTY =  8047             

 dim LOG_ERR_MSG
if(not isObject(session("LOG_ERR_MSG"))) then
	set LOG_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	LOG_ERR_MSG.add "LOG_SQL_QUERY_FAILED"  ,  "数据库操作发生意外，查询失败"
	LOG_ERR_MSG.add "LOG_RESULT_EMPTY"  ,  "没有找到符合要求的记录"   
	LOG_ERR_MSG.add "LOG_FILE_ACCESS_FAILED"  ,  "文件存取失败"            
	LOG_ERR_MSG.add "LOG_FILE_NOT_COMPATIBLE"  ,  "文件格式不符合日志文件的要求"
	set session("LOG_ERR_MSG") = LOG_ERR_MSG
else
	set LOG_ERR_MSG = session("LOG_ERR_MSG")
end if







    


%>