error.asp

该是一套视频点播系统

<%



    const STA_SQL_QUERY_FAILED= 7024
    const STA_RESULT_EMPTY= 7025
    const STA_CANT_BE_VISIT= 7026

dim STA_ERR_MSG
if(not isObject(session("STA_ERR_MSG"))) then
	set STA_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	STA_ERR_MSG.add "STA_SQL_QUERY_FAILED" , "数据库操作发生意外，查询失败"
	STA_ERR_MSG.add "STA_RESULT_EMPTY" , "没有找到符合要求的记录"    
	STA_ERR_MSG.add "STA_CANT_BE_VISIT","页面无法访问"                   

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







    




%>