中审国际

<%@ LANGUAGE="VBScript" CodePage="936"%> <% 'Option Explicit Response.Buffer = True 'Blog 设置 Const blogdir = "/blog/" Const cookies_name = "oblog313" Const cookies_domain = "" Const C_Editor = "/blog/editor" Const cookies_encode = 1 Const code_gb2312 = 1 Const f_ext = "html" Const is_sqldata = 1 Const is_ot_user = 1 const true_domain = 0 Dim str_domain : str_domain = "" dim blogurl : blogurl = blogdir 'BBS设置 Const IsDeBug = 1 Const IsSqlDataBase = 1 Const fversion = "7.1.0 Sp1" Const EnabledSession = True Const MsxmlVersion = ".3.0" '数据库设置 Const SqlDatabaseName = "ACCATrainer" Const SqlPassword = "53830855" Const SqlUsername = "a0117140118" Const SqlLocalName = "(local)" %> <% Response.Charset = "GB2312" Dim Conn Sub ConnectData() Dim ConnStr If IsSqlDataBase = 1 Then ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Else 'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db) End If On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。 Response.End End If End Sub Sub CloseData() conn.close set conn = nothing End Sub %> <% Rem 空字段则赋值为零长度字符串 Function ChkIsNull(str) If IsNull(str) then ChkIsNull = "" Else ChkIsNull = str End If End Function rem *************测字符串长度************** Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字 y = y + 2 else y = y + 1 end if next CheckStringLength = y End Function '*********************************************** '函数名：JoinChar '作用：向地址中加入 ? 或 & '参数：strUrl ----网址 '返回值：加了 ? 或 & 的网址 '*********************************************** function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")1 then if InStr(strUrl,"&")", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9), " ") fString = Replace(fString, CHR(34), """) fString = Replace(fString, CHR(39), "'") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") fString = Replace(fString, "'", "''") HTMLEncode = fString end if end Function Function ToLink(Str) Dim RE '正则表达式对象 Dim strContent,D,I If IsNull(Str) Then Str="" Set RE = New RegExp '创建正则表达式对象 With RE .Global = True '搜索应用于整个字符串 .IgnoreCase = True '搜索不区分大小写的 strContent=Str .Pattern="([\w]*)@([\w\.]*)" strContent=.Replace(strContent,"$1@$2 ") D=Array("http","ftp","news","mms","https") For I=0 To UBound(D) .Pattern= D(I) + ":\/\/?([\w\.\/\?\&\=]*)" strContent=.Replace(strContent,"" + D(I) + "://$1 ") Next End With Set RE=Nothing ToLink=strContent End Function Function ScriptFilter(sHTML) Dim Re, sContent sContent = chkIsNull(sHTML) Set RE = New RegExp With RE .Global = True .IgnoreCase = True '去除Script脚本 .Pattern="]*>" sContent=.Replace(sContent,"") .Pattern="(javascript|jscript|vbscript|vbs):" sContent=.Replace(sContent,"$1：") .Pattern="on(mouse|exit|error|click|key)" sContent=.Replace(sContent,"removed") '去除ActiveX .Pattern="]*>" sContent=.Replace(sContent,"") .Pattern="]*>" sContent=.Replace(sContent,"") .Pattern="]*>" sContent=.Replace(sContent,"") '去除嵌入框架 .Pattern="]*>" sContent=.Replace(sContent,"") End With Set RE=Nothing ScriptFilter = sContent End Function '************************************* '反转换HTML代码 '************************************* Function HTMLDecode(ByVal reString) Dim Str:Str=reString If Not IsNull(Str) Then Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, " ", CHR(9)) Str = Replace(Str, " ", CHR(9)) Str = Replace(Str, "'", CHR(39)) Str = Replace(Str, """, CHR(34)) Str = Replace(Str, "", CHR(13)) Str = Replace(Str, "

", CHR(10) & CHR(10)) Str = Replace(Str, "
", CHR(10)) HTMLDecode = Str End If End Function Sub MsgBox(str,stype,url) response.write "" response.end End Sub '************************************* '检测是否只包含英文和数字 '************************************* Function IsValidChars(str) Dim re,chkstr Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="[^_\.a-zA-Z\d]" IsValidChars=True chkstr=re.Replace(str,"") if chkstr<>str then IsValidChars=False set re=nothing End Function Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function '************************************* '检测是否包含在允许的字符范围 '************************************* Function IsvalidValue(ArrayN,Str) IsvalidValue = false Dim GName For Each GName in ArrayN If Str = GName Then IsvalidValue = true Exit For End If Next End Function '************************************* '检测是否有效的数字 '************************************* Function IsInteger(Para) IsInteger=True If IsNull(Para) Or Trim(Para)="" Or IsNumeric(Para)=False Then IsInteger=False End if End Function '************************************* '计算随机数 '************************************* function randomStr(intLength) dim strSeed,seedLength,pos,str,i strSeed = "abcdefghijklmnopqrstuvwxyz1234567890" seedLength=len(strSeed) str="" Randomize for i=1 to intLength str=str+mid(strSeed,int(seedLength*rnd)+1,1) next randomStr=str end function '*********************************************** '过程名：showpage '作用：显示“上一页下一页”等信息 '参数：sfilename ----链接地址 ' totalnumber ----总数量 ' maxperpage ----每页数量 ' ShowTotal ----是否显示总数量 ' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。 ' strUnit ----计数单位 '*********************************************** sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "

" response.write strTemp end Sub sub WriteErrMsg() Dim arrErr arrErr = Array("错误信息","产生错误的可能原因：","返回上一页") dim strErr strErr=strErr & "

" & vbcrlf strErr=strErr & " " & vbcrlf strErr=strErr & " " & vbcrlf strErr=strErr & " " & vbcrlf strErr=strErr & "

" & arrErr(0) & "

" & arrErr(1) & "
" & errmsg &"

<< " & arrErr(2) & "

" & vbcrlf response.write strErr end sub sub WriteSucMsg(sucMsg) dim strSuc Dim SucTitle SucTitle = "成功信息" strSuc=strSuc & "

" & vbcrlf strSuc=strSuc & " " & vbcrlf strSuc=strSuc & " " & vbcrlf strSuc=strSuc & " " & vbcrlf strSuc=strSuc & "

" & SucTitle & "

" & sucMsg &"

" & vbcrlf response.write strSuc end sub Function GotTopic(Str,Strlen) if Strlen = "" then Strlen = 0 If Str="" or IsNull(Str) or Cint(Strlen) < 1 Then GotTopic = Str Exit Function End If Dim l,t,c, i l=Len(Str) t=0 For i=1 To l c=Abs(Asc(Mid(Str,i,1))) If c>255 Then t=t+2 Else t=t+1 End If If t>=Strlen Then GotTopic=Left(Str,i) & "..." '可跟省略号 Exit For Else GotTopic=Str End If Next End Function Function RequestForm(str) Dim Temp Temp = Request.Form(str) Temp = ChkIsNull(Temp) Temp = Lone.LoseHTML(Temp) Temp = Replace(Temp,"|","、") RequestForm = Trim(Temp) End Function Function Lone_Request(sField, Method, sFilter) Dim Temp If UCase(Method)="Q" Then Temp = Request.QueryString(sField) ElseIf UCase(Method)="F" Then Temp = Request.Form(sField) Else Temp = Request(sField) End If Temp = ChkIsNull(Temp) If LCase(sFilter)="html" Then Temp = Lone.LoseHTML(Temp) ElseIf LCase(sFilter)="script" Then Temp = ScriptFilter(Temp) ElseIf LCase(sFilter)="sql" Then Temp = Lone.checkStr(Temp) End If ' Temp = Replace(Temp,"|","、") Lone_Request = Trim(Temp) End Function Rem 检查是否为指定并返回指定的选择状态 Function ReturnSelect(P_Select,P_ReturnValue,P_FormName) If Trim(P_Select) = Trim(P_FormName) Then ReturnSelect = P_ReturnValue End If End Function Rem 替换频道项目 Function ReplaceChannelItem(P_ChannelItem,P_ChannelItemName,P_ChannelItemUnit) ReplaceChannelItem = Replace(P_ChannelItem,"{$ChannelItemName}",P_ChannelItemName) ReplaceChannelItem = Replace(ReplaceChannelItem,"{$ChannelItemUnit}",P_ChannelItemUnit) End Function Function ChkClass(ClassID) dim rsChkClass,rsChkClass2 Set rsChkClass = Lone.Execute("Select ClassID from [Content_Class] where ChannelID = "&ChannelID&" and ClassID = "&ClassID&"") Set rsChkClass2 = Lone.Execute("Select * from [Content_Class] where ChannelID = "&ChannelID&" and ParentID = "&rsChkClass(0)&"") if rsChkClass2.bof and rsChkClass2.eof then ChkClass = false else ChkClass = true end if rsChkClass2.close set rsChkClass2 = nothing rsChkClass.close set rsChkClass = nothing End Function '读取产品分类。 Sub GetClassSelect(ClassId,ChannelId) dim rs,sql,temp,namefield If Lang = "en" Then namefield = "ClassName" Else namefield = "ClassName" End If sql="select ClassID," & namefield & ",parentid,AllowPub,Depth from Content_Class where ChannelId="&ChannelID&" And Deleted=0 order by rootid,orders" set rs=Lone.execute(sql) do while not rs.eof temp = temp & "" Rs.MoveNext loop rs.Close Set rs = Nothing Response.Write(temp) End Sub Function GetDictOptions(sType,sIndex) Dim D,strTemp,Key strTemp = "" Set D = Lone.GetDictionary(sType) For Each Key In D.Keys If sIndex="allValues" Then strTemp = strTemp & Key & D.Item(Key) & "," Else strTemp = strTemp & "" End If Next GetDictOptions = strTemp strTemp = Empty End Function Function GetDictValue(sType,sIndex) GetDictValue = "" If chkIsNull(sIndex)="" Then Exit Function End If sIndex = CStr(sIndex) Dim D Set D = Lone.GetDictionary(sType) If D.Exists(sIndex) Then GetDictValue = D.Item(sIndex) End If End Function Function Get_Setup(strSeting) Lone.Name = "GetWebSiteSetup_" & strSeting If Lone.ObjIsEmpty() Then Dim Rs, temp Set Rs = Lone.Execute("select " & strSeting & " From Content_Setup Where Id=1") If Not Rs.EOF Then temp = Split(Rs(0), "|") End If Rs.Close() Set Rs = Nothing Lone.Value = temp End If Get_Setup = Lone.Value End Function Sub SendMessage(Ids, sTitle, sContent) Dim Rs, SQL Set Rs = Server.CreateObject("ADODB.Recordset") Dim UserMsg, MsgId SQL = "select UserId, UserName, UserMsg From Dv_User Where UserId In (" & Ids & ")" Rs.Open SQL, Conn, 1, 3 Do While Not Rs.EOF Lone.Execute("Insert Into Dv_Message Values (" &_ "'ACCA', " &_ "'" & Rs("UserName") & "', " &_ "'" & sTitle & "', " &_ "'" & sContent & "', " &_ "0, getdate(), 0, 0, 1" &_ ")") MsgId = Lone.Execute("select top 1 id from Dv_Message Order By Id desc")(0) If chkIsNull(Rs("UserMsg"))="" Then UserMsg = "0||0||null" Else UserMsg = Trim(Rs("UserMsg")) End If Rs("UserMsg") = CStr(CInt(Split(UserMsg, "||")(0))+1) & "||" & MsgId & "||" & Lone.UserName Rs.Update() Rs.MoveNext Loop Rs.Close Set Rs = Nothing End Sub Function GetOrderIcon(vOrderBy, vField, SortType) Dim temp If vOrderBy=vField Then temp = "" End If GetOrderIcon = temp End Function %> <% Class cls_User Public UserId,UserName,UserGroupId,MemberName,MemberClass Public CompanyName,Hits,Favorite Public UserTrueIP, IsVipUser, FoundUser Public CacheName,Forum_sn, Cache_Data private Reloadtime,LocalCacheName Private m_FromURL Private Sub Class_Initialize() CacheName = "DvCache" Forum_sn = "DvForum" Reloadtime = 14400 If Not Response.IsClientConnected Then Response.End End If IsVipUser = False UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") UserName = checkStr(Trim(Request.Cookies(CacheName)("HelloUser"))) MemberName = checkStr(Trim(Request.Cookies(CacheName)("Member_Name"))) CompanyName = checkStr(Trim(Request.Cookies(CacheName)("Company_Name"))) UserID = checkStr(Request.Cookies(CacheName)("HelloUserId")) If IsNumeric(UserID)=False Or UserID="" Then UserID=0 UserID = Clng(UserID) If checkStr(Request.Cookies(CacheName)("HelloVipUser"))="True" Then IsVipUser= True UserGroupId = checkStr(Request.Cookies(CacheName)("HelloGroupOf")) If IsNumeric(UserGroupId)=False Or UserGroupId="" Then UserGroupId=0 UserGroupId = Clng(UserGroupId) MemberClass = checkStr(Request.Cookies(Forum_sn)("userclass")) If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR") UserTrueIP = CheckStr(UserTrueIP) End Sub Public Property Let User_FromURL(ByVal m_FromURL) Response.Cookies(CacheName)("GOTO_URL") = m_FromURL End Property Public Property Let Name(ByVal vNewValue) LocalCacheName = LCase(vNewValue) Cache_Data=Application(CacheName & "_" & LocalCacheName) End Property Public Property Let Value(ByVal vNewValue) If LocalCacheName<>"" Then ReDim Cache_Data(2) Cache_Data(0)=vNewValue Cache_Data(1)=Now() Application.Lock Application(CacheName & "_" & LocalCacheName) = Cache_Data Application.unLock Else Err.Raise vbObjectError + 1, "loneCacheServer", " please change the CacheName." End If End Property Public Property Get Value() If LocalCacheName<>"" Then If IsArray(Cache_Data) Then Value=Cache_Data(0) Else Err.Raise vbObjectError + 1, "loneCacheServer", " The Cache_Data("&LocalCacheName&") Is Empty." End If Else Err.Raise vbObjectError + 1, "loneCacheServer", " please change the CacheName." End If End Property Public Function ObjIsEmpty() ObjIsEmpty=True Cache_Data=Application(CacheName & "_" & LocalCacheName) If Not IsArray(Cache_Data) Then Exit Function If Not IsDate(Cache_Data(1)) Then Exit Function If DateDiff("s",CDate(Cache_Data(1)),Now()) < (60*Reloadtime) Then ObjIsEmpty=False End Function Public Sub chkMember(u_gid) If UserID=0 Then MsgBox "您还没有登录，请登录后再访问本页。","gourl","/Login/" Else Response.Cookies(CacheName)("GOTO_URL")="" End If 'If Session(CacheName & "UserLogin_" & UserId)="" Then ' MsgBox "登录超时，请重新登录。","gourl","/Login/Index.asp" 'End If If u_gid="company" And UserGroupID<>8 Then MsgBox "您没有权限访问本页。","back","/bbs/Index.asp" End If If u_gid="user" And UserGroupID=8 Then MsgBox "您没有权限访问本页。","back","/bbs/Index.asp" End If End Sub Public Function GetDictionary(stype) Dim Dict Set Dict = Server.CreateObject("SCRIPTING.DICTIONARY") If stype="CompanyType" Then Dict.Add "1", "外商独资(欧美企业)" Dict.Add "2", "外商独资(非欧美企业)" Dict.Add "3", "合资/合作(欧美企业)" Dict.Add "4", "合资/合作(非欧美企业)" Dict.Add "5", "国营企业/上市公司" Dict.Add "6", "民营/私营企业/非上市公司" Dict.Add "7", "外企代表处" Dict.Add "8", "其它" End If If stype="Nation" Then Dict.Add "1", "中国大陆" Dict.Add "2", "中国香港" Dict.Add "3", "中国澳门" Dict.Add "4", "中国台湾" Dict.Add "5", "非洲" Dict.Add "6", "加拿大" Dict.Add "7", "欧洲" Dict.Add "8", "法国" Dict.Add "9", "德国" Dict.Add "10", "日本" Dict.Add "11", "韩国" Dict.Add "12", "北美" Dict.Add "13", "新加坡" Dict.Add "14", "东南亚" Dict.Add "15", "南美" Dict.Add "16", "英国" Dict.Add "17", "美国" Dict.Add "18", "西亚" Dict.Add "19", "其他" End If If stype="City" Then Dict.Add "1", "北京" Dict.Add "2", "上海" Dict.Add "3", "天津" Dict.Add "4", "重庆" Dict.Add "5", "江苏" Dict.Add "6", "浙江" Dict.Add "7", "广东" Dict.Add "8", "海南" Dict.Add "9", "福建" Dict.Add "10", "山东" Dict.Add "11", "江西" Dict.Add "12", "四川" Dict.Add "13", "安徽" Dict.Add "14", "河北" Dict.Add "15", "河南" Dict.Add "16", "湖北" Dict.Add "17", "湖南" Dict.Add "18", "陕西" Dict.Add "19", "山西" Dict.Add "20", "黑龙江" Dict.Add "21", "辽宁" Dict.Add "22", "吉林" Dict.Add "23", "广西" Dict.Add "24", "云南" Dict.Add "25", "贵州" Dict.Add "26", "甘肃" Dict.Add "27", "内蒙" Dict.Add "28", "宁夏" Dict.Add "29", "西藏" Dict.Add "30", "新疆" Dict.Add "31", "青海" Dict.Add "32", "香港" Dict.Add "33", "澳门" Dict.Add "34", "台湾" 'Dict.Add "35", "国外" End If If stype="Member" Then Dict.Add "1","少于50人" Dict.Add "2","50-150人" Dict.Add "3","150-500人" Dict.Add "4","500人以上" End If If stype="Industry" Then Dict.Add "1", "计算机软件" Dict.Add "2", "计算机硬件" Dict.Add "3", "计算机服务（系统、数据服务，维修）" Dict.Add "4", "通信/电信/网络设备" Dict.Add "5", "通信/电信运营、增值服务" Dict.Add "6", "互联网/电子商务" Dict.Add "7", "网络游戏" Dict.Add "8", "电子技术/半导体/集成电路" Dict.Add "9", "仪器仪表/工业自动化" Dict.Add "10", "会计/审计" Dict.Add "11", "金融/投资/证券" Dict.Add "12", "银行" Dict.Add "13", "保险" Dict.Add "14", "贸易/进出口" Dict.Add "15", "批发/零售" Dict.Add "16", "快速消费品(食品,饮料,化妆品)" Dict.Add "17", "服装/纺织/皮革" Dict.Add "18", "家具/家电/工艺品/玩具" Dict.Add "19", "办公用品及设备" Dict.Add "20", "机械/设备/重工" Dict.Add "21", "汽车及零配件" Dict.Add "22", "制药/生物工程" Dict.Add "23", "医疗/护理/保健/卫生" Dict.Add "24", "医疗设备/器械" Dict.Add "25", "广告" Dict.Add "26", "公关/市场推广/会展" Dict.Add "27", "影视/媒体/艺术" Dict.Add "28", "文字媒体/出版" Dict.Add "29", "印刷/包装" Dict.Add "30", "房地产开发" Dict.Add "31", "建筑与工程" Dict.Add "32", "家居/室内设计/装潢" Dict.Add "33", "物业管理/商业中心" Dict.Add "34", "中介服务" Dict.Add "35", "专业服务（咨询，人力资源）" Dict.Add "36", "检测，认证" Dict.Add "37", "法律" Dict.Add "38", "教育/培训" Dict.Add "39", "学术/科研" Dict.Add "40", "餐饮业" Dict.Add "41", "酒店/旅游" Dict.Add "42", "娱乐/休闲/体育" Dict.Add "43", "美容/保健" Dict.Add "44", "生活服务" Dict.Add "45", "交通/运输/物流" Dict.Add "46", "航天/航空" Dict.Add "47", "石油/化工/矿产" Dict.Add "48", "采掘业/冶炼" Dict.Add "49", "电力/水利" Dict.Add "50", "原材料和加工" Dict.Add "51", "政府" Dict.Add "52", "非盈利机构" Dict.Add "53", "环保" Dict.Add "54", "农业/渔业/林业" Dict.Add "55", "多元化业务集团公司" Dict.Add "56", "其他行业" End If If stype="workYears" Then Dict.Add "0", "无" Dict.Add "1", "在读学生" Dict.Add "2", "应届毕业生" Dict.Add "3", "一年以上" Dict.Add "4", "二年以上" Dict.Add "5", "三年以上" Dict.Add "6", "五年以上" Dict.Add "7", "八年以上" Dict.Add "8", "十年以上" End If If stype="Money" Then Dict.Add "1", "人民币" Dict.Add "2", "港币" Dict.Add "3", "美元" Dict.Add "4", "日元" Dict.Add "5", "欧元" Dict.Add "6", "其它" End If If stype="CardType" Then Dict.Add "1", "身份证" Dict.Add "2", "护照" Dict.Add "3", "军人证" Dict.Add "4", "香港身份证" Dict.Add "5", "其它" End If If stype="Salary" Then Dict.Add "1", "面议" Dict.Add "2", "1500以下" Dict.Add "3", "1500-1999" Dict.Add "4", "2000-2999" Dict.Add "5", "3000-4499" Dict.Add "6", "4500-5999" Dict.Add "7", "6000-7999" Dict.Add "8", "8000-9999" Dict.Add "9", "10000-14999" Dict.Add "10","15000-19999" Dict.Add "11","20000-29999" Dict.Add "12","30000-49999" Dict.Add "13","50000及以上" End If If stype="YearSalary" Then Dict.Add "1", "2万以下" Dict.Add "2", "2-3万" Dict.Add "3", "3-4万" Dict.Add "4", "4-5万" Dict.Add "5", "5-6万" Dict.Add "6", "6-8万" Dict.Add "7", "8-10万" Dict.Add "8", "10-15万" Dict.Add "9", "15-30万" Dict.Add "10","30-50万" Dict.Add "11","50-100万" Dict.Add "12","100万以上" End If If stype="Education" Then Dict.Add "1", "无" Dict.Add "2", "初中" Dict.Add "3", "高中" Dict.Add "4", "中技" Dict.Add "5", "中专" Dict.Add "6", "大专" Dict.Add "7", "本科" Dict.Add "8", "硕士" Dict.Add "9", "博士" Dict.Add "10","其他" End If If stype="ResumeLang" Then Dict.Add "1", "中文" Dict.Add "2", "英文" Dict.Add "3", "中文或英文" Dict.Add "4", "中文和英文" End If If stype="Language" Then Dict.Add "1", "无" Dict.Add "2", "英语" Dict.Add "3", "日语" Dict.Add "4", "法语" Dict.Add "5", "德语" Dict.Add "6", "俄语" Dict.Add "7", "西班牙语" Dict.Add "8", "朝鲜语" Dict.Add "9", "阿拉伯语" Dict.Add "10", "其它" End If If stype="MajorBig" Then Dict.Add "02", "管理科学与工程类" Dict.Add "03", "工商管理类" Dict.Add "04", "公共管理类" Dict.Add "35", "图书档案学类" Dict.Add "01", "电子信息类" Dict.Add "05", "机械类" Dict.Add "21", "仪器仪表类" Dict.Add "22", "能源动力类" Dict.Add "19", "材料类" Dict.Add "28", "轻工纺织食品类" Dict.Add "06", "土建类" Dict.Add "18", "力学类" Dict.Add "20", "环境科学与安全类" Dict.Add "25", "制药工程类" Dict.Add "26", "交通运输类" Dict.Add "29", "航空航天类" Dict.Add "27", "船舶与海洋工程类" Dict.Add "23", "水利类" Dict.Add "24", "测绘类" Dict.Add "32", "公安技术类" Dict.Add "30", "武器类" Dict.Add "14", "数学类" Dict.Add "15", "物理学类" Dict.Add "16", "化学类" Dict.Add "31", "生物类" Dict.Add "17", "天文地质地理类" Dict.Add "10", "经济学类" Dict.Add "07", "语言文学类" Dict.Add "12", "艺术类" Dict.Add "09", "法学类" Dict.Add "11", "哲学类" Dict.Add "08", "教育学类" Dict.Add "34", "医学类" Dict.Add "33", "农业类" Dict.Add "13", "历史学类" End If If stype="Major" Then Dict.Add "0200", "管理科学与工程类" Dict.Add "0201", "管理科学" Dict.Add "0202", "信息管理和信息系统" Dict.Add "0203", "工业工程" Dict.Add "0204", "工程管理" Dict.Add "0205", "农业经济管理" Dict.Add "0300", "工商管理类" Dict.Add "0301", "工商管理" Dict.Add "0311", "企业管理" Dict.Add "0302", "市场营销" Dict.Add "0303", "会计学" Dict.Add "0307", "涉外会计" Dict.Add "0305", "会计电算化" Dict.Add "0310", "财政金融" Dict.Add "0304", "财务管理" Dict.Add "0312", "技术经济" Dict.Add "0306", "文秘" Dict.Add "0308", "国际商务" Dict.Add "0309", "物流管理" Dict.Add "0400", "公共管理类" Dict.Add "0401", "行政管理" Dict.Add "0402", "公共事业管理" Dict.Add "0405", "旅游管理" Dict.Add "0406", "宾馆/酒店管理" Dict.Add "0407", "人力资源管理" Dict.Add "0408", "公共关系学" Dict.Add "0409", "物业管理" Dict.Add "0410", "房地产经营管理" Dict.Add "0403", "劳动与社会保障" Dict.Add "0404", "土地资源管理" Dict.Add "3500", "图书档案学类" Dict.Add "3501", "图书档案学" Dict.Add "0100", "电子信息类" Dict.Add "0101", "计算机科学与技术" Dict.Add "0110", "计算机应用" Dict.Add "0111", "计算机信息管理" Dict.Add "0112", "计算机网络" Dict.Add "0113", "电子商务" Dict.Add "0102", "通信工程" Dict.Add "0103", "电气工程及其自动化" Dict.Add "0104", "自动化" Dict.Add "0105", "电子信息工程" Dict.Add "0106", "电子科学与技术" Dict.Add "0107", "电子信息科学与技术" Dict.Add "0108", "微电子学" Dict.Add "0109", "光信息科学与技术" Dict.Add "0500", "机械类" Dict.Add "0501", "机械设计制造及其自动化" Dict.Add "0502", "材料成型及控制工程" Dict.Add "0503", "工业设计" Dict.Add "0504", "过程装备与控制工程" Dict.Add "0505", "机械电子工程/机电一体化" Dict.Add "0506", "模具设计与制造" Dict.Add "0507", "机械制造工艺与设备" Dict.Add "2100", "仪器仪表类" Dict.Add "2101", "测控技术与仪器" Dict.Add "2200", "能源动力类" Dict.Add "2201", "热能与动力工程" Dict.Add "2202", "核工程与核技术" Dict.Add "2203", "电力系统及自动化" Dict.Add "2204", "制冷与低温技术" Dict.Add "1900", "材料类" Dict.Add "1901", "冶金工程" Dict.Add "1902", "金属材料工程" Dict.Add "1903", "无机非金属料工程" Dict.Add "1904", "高分子材料与工程" Dict.Add "1905", "材料物理" Dict.Add "1906", "材料化学" Dict.Add "1907", "材料科学与工程" Dict.Add "2800", "轻工纺织食品类" Dict.Add "2801", "食品科学与工程" Dict.Add "2802", "轻化工程" Dict.Add "2803", "包装工程" Dict.Add "2804", "印刷工程" Dict.Add "2805", "纺织工程" Dict.Add "2806", "服装设计与工程" Dict.Add "0600", "土建类" Dict.Add "0601", "建筑学" Dict.Add "0602", "城市规划" Dict.Add "0610", "园林规划与设计" Dict.Add "0603", "土木工程" Dict.Add "0611", "道路与桥梁" Dict.Add "0604", "建设环境与设备工程" Dict.Add "0605", "给水排水工程" Dict.Add "0612", "供热通风与空调工程" Dict.Add "0606", "工业与民用建筑" Dict.Add "0607", "室内装潢设计" Dict.Add "0608", "建筑工程" Dict.Add "0609", "工程造价管理" Dict.Add "1800", "力学类" Dict.Add "1801", "力学" Dict.Add "1802", "应用力学" Dict.Add "2000", "环境科学与安全类" Dict.Add "2001", "环境科学" Dict.Add "2004", "生态学" Dict.Add "2002", "环境工程" Dict.Add "2003", "安全工程" Dict.Add "2500", "制药工程类" Dict.Add "2501", "制药工程" Dict.Add "2600", "交通运输类" Dict.Add "2601", "交通运输" Dict.Add "2602", "交通工程" Dict.Add "2603", "油气储运工程" Dict.Add "2604", "飞行技术" Dict.Add "2605", "航海技术" Dict.Add "2606", "轮机工程" Dict.Add "2607", "汽车工程" Dict.Add "2900", "航空航天类" Dict.Add "2901", "飞行器设计与工程" Dict.Add "2902", "飞行器动力工程" Dict.Add "2903", "飞行器制造工程" Dict.Add "2904", "飞行器环境与生命保障工程" Dict.Add "2700", "船舶与海洋工程类" Dict.Add "2701", "船舶与海洋工程" Dict.Add "2300", "水利类" Dict.Add "2301", "水利水电工程" Dict.Add "2302", "水文与水资源工程" Dict.Add "2303", "港口航道与海岸工程" Dict.Add "2400", "测绘类" Dict.Add "2401", "测绘工程" Dict.Add "3200", "公安技术类" Dict.Add "3201", "公安技术" Dict.Add "3000", "武器类" Dict.Add "3001", "武器系统与发射工程" Dict.Add "3002", "探测制导与控制技术" Dict.Add "3003", "弹药工程与爆炸技术" Dict.Add "3004", "特种能源工程与烟火技术" Dict.Add "3005", "地面武器机动工程" Dict.Add "3006", "信息对抗技术" Dict.Add "1400", "数学类" Dict.Add "1401", "数学与应用数学" Dict.Add "1402", "信息与计算科学" Dict.Add "1500", "物理学类" Dict.Add "1501", "物理学" Dict.Add "1502", "应用物理学" Dict.Add "1600", "化学类" Dict.Add "1601", "化学" Dict.Add "1602", "应用化学" Dict.Add "1603", "化学工程与工艺" Dict.Add "1604", "精细化工" Dict.Add "1605", "化工设备与机械" Dict.Add "3100", "生物类" Dict.Add "3101", "生物工程" Dict.Add "3102", "生物医学工程" Dict.Add "3103", "生物科学，技术" Dict.Add "1700", "天文地质地理类" Dict.Add "1701", "天文学" Dict.Add "1702", "地质学" Dict.Add "1708", "宝石鉴定与加工" Dict.Add "1703", "地理科学" Dict.Add "1704", "地球物理学" Dict.Add "1705", "大气科学" Dict.Add "1706", "海洋科学" Dict.Add "1707", "地矿" Dict.Add "1709", "石油工程" Dict.Add "1000", "经济学类" Dict.Add "1001", "经济学" Dict.Add "1002", "国际经济与贸易" Dict.Add "1003", "财政学" Dict.Add "1004", "金融学" Dict.Add "1005", "经济管理" Dict.Add "1006", "经济信息管理" Dict.Add "1007", "工业外贸" Dict.Add "1008", "国际金融" Dict.Add "1009", "投资经济管理" Dict.Add "1010", "统计学" Dict.Add "1011", "审计学" Dict.Add "0700", "语言文学类" Dict.Add "0701", "中国语言文学" Dict.Add "0702", "英语" Dict.Add "0703", "俄语" Dict.Add "0704", "德语" Dict.Add "0705", "法语" Dict.Add "0706", "日语" Dict.Add "0707", "西班牙语" Dict.Add "0708", "阿拉伯语" Dict.Add "0709", "朝鲜语" Dict.Add "0710", "其它外语" Dict.Add "0711", "新闻学" Dict.Add "0712", "广播电视新闻" Dict.Add "0713", "广告学" Dict.Add "0714", "编辑出版学" Dict.Add "0715", "外贸英语" Dict.Add "0716", "商务英语" Dict.Add "1200", "艺术类" Dict.Add "1201", "音乐，舞蹈，作曲" Dict.Add "1202", "绘画，艺术设计" Dict.Add "1203", "戏剧，表演" Dict.Add "1204", "导演，广播电视编导" Dict.Add "1205", "戏剧影视文学" Dict.Add "1206", "戏剧影视美术设计" Dict.Add "1207", "摄影，动画" Dict.Add "1208", "播音，主持，录音" Dict.Add "1209", "服装设计" Dict.Add "0900", "法学类" Dict.Add "0901", "法学" Dict.Add "0902", "马克思主义理论" Dict.Add "0903", "社会学" Dict.Add "0904", "政治学与行政学" Dict.Add "0905", "国际政治" Dict.Add "0906", "外交学" Dict.Add "0907", "思想政治教育" Dict.Add "0908", "公安学" Dict.Add "0909", "经济法" Dict.Add "0910", "国际经济法" Dict.Add "1100", "哲学类" Dict.Add "1101", "哲学（含伦理学）" Dict.Add "1102", "逻辑学" Dict.Add "1103", "宗教学" Dict.Add "0800", "教育学类" Dict.Add "0801", "教育学" Dict.Add "0803", "学前教育" Dict.Add "0802", "体育学" Dict.Add "3400", "医学类" Dict.Add "3401", "基础医学" Dict.Add "3402", "预防医学" Dict.Add "3403", "临床医学与医学技术" Dict.Add "3404", "口腔医学" Dict.Add "3405", "中医学" Dict.Add "3406", "法医学" Dict.Add "3407", "护理学" Dict.Add "3408", "药学" Dict.Add "3409", "心理学" Dict.Add "3410", "医学检验" Dict.Add "3300", "农业类" Dict.Add "3313", "植物生产" Dict.Add "3301", "农学" Dict.Add "3302", "园艺" Dict.Add "3303", "植物保护学" Dict.Add "3304", "茶学" Dict.Add "3305", "草业科学" Dict.Add "3306", "森林资源" Dict.Add "3307", "环境生态" Dict.Add "3314", "园林" Dict.Add "3308", "动物生产" Dict.Add "3309", "动物医学" Dict.Add "3310", "水产类" Dict.Add "3311", "农业工程" Dict.Add "3312", "林业工程" Dict.Add "1300", "历史学类" Dict.Add "1301", "历史学" Dict.Add "1302", "考古学" Dict.Add "1303", "博物馆学" End If Set GetDictionary = Dict End Function Function LoseHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" strHTML = strHTML & "" if strHTML="" Then LoseHTML="":Exit Function strOutput = objRegExp.Replace(strHTML, "") strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") strOutput = Replace(strOutput, " ", "") LoseHTML = Trim(strOutput) Set objRegExp = Nothing End Function Function chkFlag(Flags, fIndex, returnValue) Flags = ", " & Flags & "," If InStr(Flags, ", " & fIndex & ",") Then chkFlag = returnValue Else chkFlag = "" End If End Function Rem 判断发言是否来自外部 Public Function ChkPost() Dim server_v1,server_v2 Chkpost=False server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True End Function Public Function Checkstr(Str) If Isnull(Str) Then CheckStr = "" Exit Function End If Str = Replace(Str,Chr(0),"") CheckStr = Replace(Str,"'","''") End Function Public Function Execute(Command) If Not IsObject(Conn) Then connectData() If IsDeBug = 0 Then On Error Resume Next Set Execute = Conn.Execute(Command) If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End() End If Else On Error Resume Next Set Execute = Conn.Execute(Command) If Err Then Response.Write command & "
" Response.Write "错误信息："& Err.Description &"
" Response.Write "出错文件："& Err.Source &"
" Response.Write "出错行："& Err.Line &"
" err.Clear End If End if End Function Public Sub Echo(mValue) Response.Write(mValue) End Sub Public Sub BlankLine() Response.Write("

") End Sub Public Function CreateOrderNo(agent_no) Dim Rs, No, d, order_no, yyyy, mm, dd Set Rs = Lone.Execute("Select top 1 PreSale_No From Shop_Record Where DateDiff(d,Record_date,getdate())=0 Order By PreSale_No DESC") If Rs.EOF Then No = "--0" Else No = Rs(0) End If Rs.Close Set Rs = Nothing d = Date() yyyy = Year(d) mm = Month(d) If mm<10 Then mm = "0" & CStr(mm) dd = Day(d) If dd<10 Then dd = "0" & CStr(dd) order_no = yyyy & mm & dd order_no = order_no & "-" & agent_no & "-" No = Split(No, "-")(2) No = CInt(No) No = No + 1 No = CStr(No) If Len(No)<=5 Then No = Right("00000" & No, 5) End If order_no = order_no & No CreateOrderNo = order_no End Function End Class %> <% Dim Lone, Know_Setting Set Lone = New cls_User Call ConnectData() Know_Setting = Get_Setup("Know_Setting") Dim chinabank_v_mid, chinabank_key chinabank_v_mid = "20401376" chinabank_key = "566A2EFDE4CE804A963992C8EC267936" %> 中审国际 cisa|cisa培训|acca|acca培训|中审国际

首页	\|	新闻公告	\|	在线视频	\|	教材购买	\|	培训报名	\|	财经专区
ACCA专区	\|	CISA专区	\|	注册/登录	\|	下载	\|	招聘	\|	论坛
博客	\|	远程教育	\|	师资	\|	图片报道	\|	中审概况	\|	收藏

北京西区

北京东区

深圳办公区

新闻搜索

分类

关键字

	最新培训课程	报名指南 \| 更多课程

	在线购书	异地购书方式 \| 更多

首页 – 新闻公告 – 经验交流

师资介绍

经验交流

教师答疑

明星教师

经验交流

ACCA的考试经验分享-----廖昌元

发布时间：2008-3-26 阅读次数：次源自：　【字号：大中小】

当二月十八日收到ACCA最后三门通过成绩的信息时，我这个三十三岁的人也都有点说不出的激动，三次通过了十一门ACCA的课程考试，不曾有一门补考。太开心了！由其是当收到了很多考友与朋友的祝贺，一时间，我感受到强烈的成就感与喜悦。

有朋友要我写点东西出来与大家一起分享，也就同意了，可以给想考ACCA但还在犹豫的人一点豉励，也同时向很多给了我帮助的人，特别是我的家人，表达我的感谢！

具体写五点：

一、考ACCA的背景与目的

98年的时候，想在最短的时间内做到财务经理，就放弃了考CPA机会。当时，在一家准备上市的民企干，做了财务经理以后，虽然，觉得自已要提升和补充自已，但是，事情多得晕头转向，每天还得加班，更谈不上去花时间去考试了。

2006年，工作近八年的我突然做出了考ACCA决定，目的只有三个：

1、ACCA是一项国际认可度高的财务资格考试，可以学到一整套完整的当今天最权威西方财务理念，做一个在财务领域工作的人，不会有学术上的欠缺与不足。

2、ACCA是全英文的考试，全部课程学下来，英文能力将大幅提高，特别是专业的英文能力，将来任何时间，读专业英语资料，再不会底气不足。也为将来成为一个国际化的人才做好了准备。

3、ACCA的考试不仅仅是财务方面的内容，该套书也把当今最权威，最流行的企业管理方法写了进去，不亚于在国内读一个MBA的课程所学。

但困难也绝非所想那么简单，八年前一个英语四级的水平，八年内没有用过一天的英语，还准备三次考完ACCA的十一门课程（我做了要学位的选择）。而且还是在中国，也许做了一个让人觉得不可思议的决定！

二、考试经过的回顾

我的计划是三次考试完，总共十一门（4+4+3），最多允许自已有一门的补考机会。

分析了以后，最难的是第一次，要恶补英语，至少要能看懂考题，要能在三个小时内写出二十张纸的答案（我后面的考试都写二十张纸左右），要了解英国的考试方法，了解ACCA的考试特点。

第一次考试的四门是：1.3;2.1;2.3;2.4四门，这次考试真是太难了，由于找不到咨询的人，什么都是自已一路摸索。单词不认识，句子看不懂，记得看第一本书的时候，超过500个核心单词不认识。

最难的还是1.3与2.3。1.3这门看书的时候发现理论太多,我这个年龄那还能记住几十个人的不同理论，而且那些理论很多差别一点点，外国人的名字又长，根本无法看下去。2.3：英国人的税法，字典上单词的意义都无法查到，只有反复的读，前后的读才能猜到一点感觉。

当时，别提有多难，终于在考试前一个月，才把前面提到的那些关键问题摸清楚，找到了“高速公路”也就好办了，最后成绩出来，有两名过了70分。

第二次考试2.5,2.6,3.1,3.4是比较顺的，难度感觉就少多了，主要是听说审计通过率很低，这门花的时间多一点。

第三次是2007年的12月，换新大纲后的第一次，这次又是有麻烦了。新大刚实施的第一年，P1是全新的课程，必须得整本书的复习，要记得内容相当多，而且以前复习其他课程的方法都不管用了。另外一个问题就是前面考过两次都过了，心理上放松很多，紧张不起来了，这时候我才明白，为什么ACCA 难考。

最后一刻都不放弃的时候，离胜利就也不远了，终于最后三门也一次性高分通过了。

三、复习的基本方法

可能很多人关心的是学习方法，没有错，最重要的是找到“高速公路”！这也是我第一次考试最关键要攻破的事。没有找到最佳的方法之前，我一般是不会动手做事的。

各人的学习方法差别很大，各科的方法也有一些差异，我个的观点，ACCA的考试课程有两类，区别较明显：

1、象1.3,2.1,3.1等，这一类都是考记忆的，最好的方法是把握重点，把考试题目分类，重点突破，每一类的题目找一个有代表性的记住，不要重复做题，浪费宝贵时间。对于题目还要注意一点，有的题目考过了，可以判断来会再考了，大胆放过；有的是重点，背一个内容，很多题目都用得上，就看你如何用了，特别是审计、P1还是有一些灵活性的。当然P3特别，关键是二十几个模型掌握，合适的环境要会用。有个朋友考完，他告诉我没有考什么模型，就是典型的不会做题，不会把模型用上去。自然过不了。

2、2.3,2.4,2.5,P.2一类计算题目，就要多做计算题目，少看书，有问题查书。对于第一道题一定要重点多得分，后面的题随便搞一下，得点分就过了。中国人都喜欢这类题，通过率也很高，我也一样，这些科目很容易就有70多分。

四、关于培训

培训要提两点，一是要不要参加培训，另一个是参加什么样的培训。

培训是一个时间与成本的问题。培训节约时间，浪费钱，如果你感觉有花钱换培训的时间值得，就参加，如果你不想补考，速度又快通过，培训可能也能帮你避免补考，节约钱与时间，自已把握。

我有的课程感觉自已花时间太多，划不来，就参加了培训，有的自学，效果差不多，因人而异，关键是看你的计划，钱与时间那个更重要些，两者是可以换换的。

另一个就是参加那里的培训。目前有审计署、FTMS以及其他专业机构的。有两个误区，有的人认为中国人培训做得不好，不一定。还有一个误区，全英文的培训更加适合考试，也不一定。如果你的英语基础差一点，那参加全英语的培训你就是既学英语又学会计，如果你参加中国人的汉语培训，你只要学会计，效果好一些。基于这样的想法，我在审计署参加培训，感觉有较大的帮助，给我省了很多的时间，也认识了不少的好考友，后来也成了同行可以交流的好朋友。

五、重点注意事项

这里提几点：

1、注意有个计划，特别是考试课目多，工作忙的时候，自已有个时间计划，当然这个计划还要根据你复习的情况做修改，确保你想到的事情在考试前都难备到了。

2、全面复习，由于我没有补考的想法，每门都是全面复习，重点突破，有的人是没有思考，随便放掉了一些知识点，前面提过，根据你的分析，有的是可以放过去的，你毕竟是50分通过，有一些风险可以担，但心理有底。

3、参加培训也同样不能完全相信老师的，自已认真分析老师的依据，有时老师也会判断失识，但结果是要你负责的，所以自已小心。

4、后防线修好，考ACCA是一个很长的过程，要得家里人的全力支持。

先写这么多，希望对有些朋友能有点帮助，再次感谢审计署很多的好老师给了我很大的帮助，也感谢我的家人给了我最大的理解与行动上的支持。

廖昌元

2008-3-12

［大中小］［打印］

在线反馈 \| 法律公告 \| 网站地图	备案序号：京ICP备05057977	版权所有：中审（北京）国际技术培训有限公司
西区：010-51582271（培训报名及学员事务咨询） 010-51582272（图书）传真：51582274 东区：010-65171277/65171278 传真：65171282
E-mail：accatrainer@263.net.cn