error.asp

来自「该是一套视频点播系统」· ASP 代码 · 共 17 行

<%
%>
<%

    const ADM_SQL_QUERY_FAILED = 9063               
     dim VST_ERR_MSG
if(not isObject(session("VST_ERR_MSG"))) then
	set VST_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	VST_ERR_MSG.add "ADM_SQL_QUERY_FAILED"  ,  "数据库操作发生意外，查询失败"
	set session("VST_ERR_MSG") = VST_ERR_MSG
else
	set VST_ERR_MSG = session("VST_ERR_MSG")
end if

        
    
%>