error.asp

该是一套视频点播系统

<%

%>
<%


    const VST_SQL_QUERY_FAILED =  6004
    const VST_RESULT_EMPTY =  6005
    const VST_SUBNET_IP_NOT_JUSTIFIED =  6006
dim VST_ERR_MSG
if(not isObject(session("VST_ERR_MSG"))) then
	set VST_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	VST_ERR_MSG.add "VST_SQL_QUERY_FAILED"  ,  "数据库操作发生意外，查询失败"
	VST_ERR_MSG.add "VST_RESULT_EMPTY"  ,  "没有找到符合要求的记录" 
	VST_ERR_MSG.add "VST_SUBNET_IP_NOT_JUSTIFIED"  ,  "IP地址的格式错误"    
	set session("VST_ERR_MSG") = VST_ERR_MSG
else
	set VST_ERR_MSG = session("VST_ERR_MSG")
end if







    


%>