中审国际

<%@ 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专区	\|	注册/登录	\|	下载	\|	招聘	\|	论坛
博客	\|	远程教育	\|	师资	\|	图片报道	\|	中审概况	\|	收藏

北京西区

北京东区

深圳办公区

新闻搜索

分类

关键字

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

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

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

师资介绍

经验交流

教师答疑

明星教师

经验交流

F1满分学员的ACCA心得-张丽玲

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

选择ACCA，学习ACCA，爱上ACCA。

那天，我与ACCA相遇，从此与它结下不解之缘。我深信对自己有比较清楚的认知，我的性格，我的爱好，我的兴趣专长……这一切无不在潜意识里牵引我走进ACCA。

当得知我在2007年12月份的考试中获得F1单科成绩中国大陆第一时，心情既惊又喜。夜阑人静时分，常常会想起两年多来的点点滴滴。我想说：要感激挫折！因为如果没有真正体验了疲倦，痛苦，茫然，孤独……我们何尝能真正懂得另一些可贵的词汇：感激，关爱，自信，知足，进取，乐观……俗语说得好，“天将降大任于斯人也，必先苦其心志，劳其筋骨，饿其体肤，空乏其身……。”

一路走来，我要亲切地对父母亲道声：“谢谢！”倘若没有父亲敏锐的市场洞察力，母亲无条件的信任与坚定的眼神，老师与朋友们的鼓励与帮助，我有可能与ACCA插肩而过。

一年多了，ACCA让我学到了很多东西。

刚开始拿到教材时，看着厚厚的6本Textbook 和Revision，我呆若木鸡却又欣喜若狂，有点“初生牛犊不怕虎”的味道。翻开课本后，脑袋才开始清醒。但有一阶段，心理斗争很强烈，老是想跟它对着干。曾经一度自视甚高的我总以为没有一个汉字的“进口教材”终将被我翻来覆去啃得烂熟于心。哼！无论花多大力气，我都要征服你，看谁笑到最后。咳！之后才发现那是多么的荒谬，幼稚。

语言可能是学好ACCA的关键。我们中国学生不仅要看得懂英语，还要能理解英语，这就要求我们要理解和尝试西方国家的哲学式思维。如果能看懂并理解知识，那么是比较容易过F1，F2，F3的。但是我们不应该就此满足，“写”是一个创造性的活动，写的能力也要培养。总而言之，我觉得英语学习是个水到渠成的“苦闷”之旅。

ACCA从2007年12月起采用新大纲，变化最大的可能是：1Knowledge level的考试全部由客观题取代；2整个体系替换了个别课程，增加了公司治理和职业道德等方面的内容。这与2002年的安然事件不无关系，同时也是顺应时代的要求。当今，财会专业人士不仅要着眼于财务报表，财务控制等传统职能，更应成为CEO及公司高管的重要商业伙伴和财务咨询顾问，广泛参与公司业务和战略规划的制定实施。

那么，如何才能冲向风口浪尖，顺应时代趋势，自我实现呢？

其实，ACCA已经为我们开启了这道门，关键在于我们怎么走。小范围地讲，就是如何高效果高效率地学习ACCA？

首先，毋庸置疑，英语是基本功。Listening, Speaking, Reading, Writing四种能力必须有机结合。唯有如此，我们才能在各种商业场合清晰地表达思想与见解，才能与来自世界各地的人才沟通。

其次，可以根据个人学习风格确定相应的学习方式。有人适合先精读教材再做题，有人则喜欢先做题再看教材；有人习惯于考前慢慢品读，有人则痴迷于陶渊明式的“不求甚解”，考前突击一个月就绰绰有余了。确定学习方式后，就要着手安排计划相应的学习，生活，实习，社团活动等，在学习之余，多接触周围的世界，多与人沟通。

再者，应该不断拓展视野，而不是仅满足于书本中的知识。有句话说得好，“风声，雨声，读书声，声声入耳；家事，国事，天下事，事事关心”，所以多看看报纸杂志是很有必要的。

第四，EQ更是不容忽视，尤其是心理素质的培养。考场如战场，我们每个人最大的敌人不是他人而是自己，谁的心理素质高，谁就能在这场没有硝烟的战争中取得胜利。备考阶段，一定要维持平衡的心态，戒骄戒躁。

考试，可能很现实，很残酷，心情不好是很正常的，不要过分在意它。遇到不开心的事，可以多跟父母亲或朋友沟通，倾诉是最好的情感发泄方式。

我在备考F1，F2，F3时，首先把教材看了一遍。然后就去做题，遇到不懂的题目再去翻书。一般而言，只看书不做题很难通过考试，做题可以帮助我们将知识融会贯通。Textbook中的Quick Quiz, Examination Question Bank, Revision，历年真题都可以拿来做，重点要分析历年考题的答题思路和技巧。一般，如果时间充裕，练习册可做三遍，真题做两遍。反复做题有利无害。因为ACCA的考试重点变化不大，已经考过的重点会再考，不出偏题，怪题和细节题，考题有较强的规范性。这也正是ACCA与中国大部分考试的不同之处。

备考时间跨度一般较长，因此适当的体育锻炼很重要。在繁重的学习任务下，千万不要将锻炼视为另一项增压活动，而是要以积极正确的态度对待它。有调查显示，每周三次的课外体育活动将有助于舒缓紧张的大脑工作状态，让其在一个较短的时间内得到休息并迅速恢复精力。

备考可能会比较苦闷，这个时候可以进行一定的自我激励，无论是精神上的还是物质上的。例如，女生可以邀几个好朋友一起出去逛街，男生可以上网打会游戏。

另外，每月的Student Accountant也必须阅读，尤其是与考试相关的重要事项的安排；与某门课程有较大关联的补充材料；考官对以前答卷情况的分析以及专题考题的预测。一般，做到了这些，就可以信心十足奔赴考场了，不用到处查阅资料搞题海战术，不要丢了芝麻也丢了西瓜。

最后，说说我对F1，F2，F3的感受。F1内容涵盖很多方面，却又点到即止，这个时候切忌钻牛角尖，否则就会走入死胡同。F2是相对较容易的，只要将各知识点搞懂又能举一反三，就一定能取得好成绩。F3的特点是知识点分散，这就要求我们自己整理出一个框架。

ACCA学习贵在持之以恒，相信只要我们努力了，就一定能获得回报。

最后有一句话想与大家共勉：

梦想腾飞就待此时，个性化用心地塑造经营自己！

［大中小］［打印］

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