error.asp

该是一套视频点播系统

<%











const PRIV_NONE = 0
const PRIV_QUERY = 1
const PRIV_READ = 2
const PRIV_WRITE = 3


const QRY_SUCCESS = 2000
const QRY_DB_CONN_ERROR = 2001
const QRY_DB_SELECT_ERROR = 2002
const QRY_DB_UPDATE_ERROR = 2003
const QRY_CATEGORY_NOT_EXIST = 2004
const QRY_MATERIAL_NOT_EXIST = 2005
const QRY_NO_PRIVILEGE = 2006	
const QRY_DB_LOCK_ERROR = 2007
const QRY_DB_INSERT_ERROR = 2008
const QRY_ITEM_NOT_EXIST = 2009
const QRY_CANNT_READ = 2010
const QRY_FILE_NOT_EXIST = 2011

dim QRY_ERR_MSG
if(not isObject(session("QRY_ERR_MSG"))) then
	set QRY_ERR_MSG = Server.CreateObject("Scripting.Dictionary")
	QRY_ERR_MSG.add "QRY_DB_CONN_ERROR", "Can't connect to database in query module"                 
	QRY_ERR_MSG.add "QRY_DB_SELECT_ERROR","Error when execute a select query in query module"        
	QRY_ERR_MSG.add "QRY_CATEGORY_NOT_EXIST","The special category is not exist in query module"     
	QRY_ERR_MSG.add "QRY_MATERIAL_NOT_EXIST","The special material is not exist in query module"
	QRY_ERR_MSG.add "QRY_NO_PRIVILEGE","The user have no privilege in query module"                   
	set session("QRY_ERR_MSG") = QRY_ERR_MSG
else
	set QRY_ERR_MSG = session("QRY_ERR_MSG")
end if

const HIS_DB_CONN_ERROR = 2101            '//不能连接数据库
const HIS_DB_SELECT_ERROR = 2102          '//查询语句不能正确执行
const HIS_DB_INSERT_ERROR = 2103          '//INSERT语句不能正确执行 
const HIS_DB_UPDATE_ERROR = 2104          '//UPDATE语句不能正确执行
const HIS_DB_DELETE_ERROR = 2105          '//DELETE语句不能正确执行

%>