%@ 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="?script[^>]*>"
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="?object[^>]*>"
sContent=.Replace(sContent,"")
.Pattern="?param[^>]*>"
sContent=.Replace(sContent,"")
.Pattern="?embed[^>]*>"
sContent=.Replace(sContent,"")
'去除嵌入框架
.Pattern="?iframe[^>]*>"
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 & " " & arrErr(0) & " " & vbcrlf
strErr=strErr & " " & arrErr(1) & " " & errmsg &" " & vbcrlf
strErr=strErr & " << " & arrErr(2) & " " & vbcrlf
strErr=strErr & "
" & vbcrlf
response.write strErr
end sub
sub WriteSucMsg(sucMsg)
dim strSuc
Dim SucTitle
SucTitle = "成功信息"
strSuc=strSuc & "
" & vbcrlf
strSuc=strSuc & " " & SucTitle & " " & vbcrlf
strSuc=strSuc & " " & sucMsg &" " & vbcrlf
strSuc=strSuc & " " & vbcrlf
strSuc=strSuc & "
" & 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 & ""
If cint(rs(2))>0 then
For n=1 to Rs(4)
temp = temp & " "
Next
temp = temp & "|-"
End if
temp = temp & rs(1)
If not rs(3) Then
temp = temp & " *"
End If
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 & "" & D.Item(Key) & " "
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会员 世界银行驻中国代表处高级财务管理专家(转载)
发布时间:2008-4-3 阅读次数:次 源自: 【 字号:大 中 小 】
出生于会计师家庭的我,从小就对财务工作有着浓厚的兴趣。记得上大学时,其他同学费劲苦读的会计分录,我上小学时就经常听父母与同事谈论了。最终我考上了南开大学会计系,开始了自己的财务人员之旅。上大学时由于所学的会计和审计教材都是英文原版的,在学习过程中逐渐接触到了AICPA、GAAP和BIG Eight (当时是八大)等新的事物。当时就想自己将来要是能成为一名国际公认的会计师,那该多好啊! 毕业后,我被分到了国家审计署,工作没几年就听说了ACCA。当时审计署是国内最早与ACCA开展合作的单位,也选派了一些人员参加ACCA的考试,但结果都不太理想,能够通过全部考试的人如凤毛麟角。这一切都让我觉得ACCA的考试有点高不可攀了。后来由于要参加国内的CPA考试和完成我的MBA的学业,报考ACCA的念头就被暂时尘封起来了。 99年我被单位推荐到了世界银行驻中国代表处从事财务管理工作。世界银行作为世界上最大的发展性银行,在向借款国提供优惠贷款的同时,也带来了先进的理念、技术和方法。这就要求我们在工作中能够将国际上先进的会计和审计方面的理念和知识介绍给我们的借款人,帮助他们规划和完善其财务管理系统,保证项目资金得到合法和高效的使用。面对这一新的的挑战,自己觉得要从长远规划自己的职业发展,必须不断提高自己的知识水平,逐渐向一名国际化人才的方向努力,否则将不能胜任自己的工作。这时尘封于自己心中多年的梦想又被打开了。但是在下最后的决定时,我也犹豫过。自己那时毕竟已经35岁了,又有了孩子。同时工作又很忙,经常出差。我多次问自己:“你能坚持下来吗?”。但想到这是自己最后的机会了,如果放弃了我会遗憾终生的。另外,我想自己虽然有不利的方面,但也还是有一些优势的,比如英语较好,工作经验比较丰富等。最后终于下定决心,注册了ACCA的考试。 一开始ACCA的学习才深深地感受到为什么很多人都没有坚持到最后。我觉得ACCA的学习是自己所有的学习经历中最艰苦的一次。除了所有的教材和考试都是英文的之外,ACCA的考试知识面广,信息量大,试题很灵活,对考生的分析能力要求较高。要想通过考试,必须下点苦功才行。记得在学习ACCA的2年多时间里,除了每次考完试可以放几天假外,其余的业余时间都在学习,既没有看过电视,也没有出外旅行过。所以现在有朋友咨询ACCA的考试,我都告诉他们,一旦决定参加ACCA的考试,就要做好在一定时间内放弃所有娱乐活动的准备(此建议仅适用于上班族)。在我备考ACCA的过程中,家人的支持给了我很大的动力,使我没有中途放弃,一直坚持到了最后。特别是我的小女儿,每天吃完晚饭,她都提醒我:“爸爸,你该看书了。” ACCA的学习虽然艰苦,但还是有方法可循的。只要方法得当,再下一点功夫,通过ACCA的考试并非不可能。在学习之前,我也参阅了一些ACCA会员和高分考生的学习经验,发现有些是很有用的。结合自己的考试经历归纳了几点: 一、认真对待每一门课程。在ACCA的14门课中,难免有你以前在大学学过的。如果你认为学过这门课程,考试就可以高枕无忧了,那你就错了。可能最终等待你的就是failed. 二、学会快速阅读的本领。ACCA的课本很厚,加上备考的时间有限,就需要掌握快速阅读的技能。有些人不看完书就参加考试,虽然有可能过,但我不建议这种做法。因为取得ACCA证书的根本目的还在于通过学习掌握必要的知识。同时,通过阅读对自己的英文水平也大有帮助。 三、一定要多做习题。ACCA的习题集最少要做两遍。俗话说:“好记性不如烂笔头”。一定要亲自做每一道习题,而不是仅仅看看答案,两者的效果绝对不同。做习题时,第一遍一定要自己做,不要急于看答案,从中可以发现自己在哪些方面还有不足,以便抓住重点。可以说多做习题是通过ACCA考试的保证。 四、每天制定学习计划,并且一定要完成。鉴于ACCA的考试时间紧,任务重,对于上班族来说,制定每天的学习计划是非常重要的。只有把化整为零的计划完成了,才能实现最终的目标。 五、要善于将自己工作中的经历结合到ACCA的学习和考试中。同时,还要关注相关的社会热点问题,不能一门心思死学习。与国内的考试相比,我特别喜欢ACCA考题的原因就在于,ACCA的试题一般都很灵活,并且与社会的热点问题联系较紧。她考的不是背功,而是分析、解决问题的能力。作为上班族来讲,我们或多或少都可以将自己工作中的经历与ACCA的所学结合起来,这样对自己的工作也有促进。 六、如果时间允许,不妨参加一下考前辅导班。有经验的讲师,可以领着你在短时间把每一门的重点走一遍,同时会教授你一些考试的技巧。本人觉得还是国外讲师的素质要高于国内讲师。由于ACCA的考试是英文考试,国外讲师不光专业知识比较丰富,同时还有助你用英语的逻辑思考问题。
就我自己的经历而言,ACCA的学习对我工作的帮助是非常大的,我经常可以把ACCA中所学到的知识应用到自己的工作中。比如在帮助项目单位设计他们的内部控制系统时,我就可以将ACCA中所学的有关这方面的知识,结合项目单位的实际情况,帮助他们制定一套切实可行的、有效的内控系统。在评价项目单位的财务状况、经营业绩和履行财务要约的状况时,ACCA的财务管理课程中的各种分析方法对我帮助很大。再如,世界银行有很多金融产品,在向项目单位介绍这些产品时,ACCA的3.7 课程中所学的有关金融衍生工具的知识可以帮助我将世界银行的这些金融产品以通俗易懂的方式介绍给项目单位。由于世界银行的工作语言是英语,通过ACCA的学习,我可以用更职业的术语来撰写自己的报告,对自己的职业发展大有益处。作为唯一通过ACCA考试的本地雇员,我于今年被晋升为高级财务管理专家,使自己的职业发展又上了一个新台阶。ACCA的学习对我的帮助真是不小,虽然曾度过了一段“暗无天日”的日子,但想想自己未来几十年的职业发展还是值得的。 随着ACCA通过学生数量的增加,一些人发现拿着ACCA的证书去找工作好像不灵了,是ACCA的证书贬值了吗?我看不是,关键是你如何认识ACCA的证书。与其他各种各样的证书一样,ACCA的证书也不能代表一切。任何的考试都有局限性,虽然ACCA的考试更灵活,更强调实际能力的培养,但它毕竟是一种测试,它与实际能力还是有区别的。用人单位也明白这个道理。对企业来讲,要花高价雇人,ACCA的证书只是一个参考,更重要的是看你的工作经验和能力。我认识一些人,他们或是学外语的,或是刚刚大学毕业不久,虽然也通过了ACCA的考试,谁敢聘用他们担任财务总监呢?所以,参加ACCA的考试,心态一定要摆正。不妨少一点功利,多一点实际,不要被一些培训机构的宣传所误导。ACCA的考试有14门课程(当然有些可以免考),涉及许多方面和领域。与其说它是会计师的考试,不如说它更像MBA的考试。它的目标是培养全面的、高素质的高级财务人员。随着电算化的普及,简单的记帐工作将逐渐被计算机所承担,企业对财务人员的要求也从“记好帐,管好钱”,转变为更多的分析、解决问题的能力,要当好企业决策的参谋,从战略上参与到企业的经济活动当中。同时,随着经济全球化的发展,对通晓国际惯例的国际型人才的需求越来越大,而ACCA的培训正好契合了这些要求。所以对那些缺乏工作经验的人来讲,不妨降低一下自己的期望值,先多积累一些经验。不要因一时的不顺而对自己的ACCA的学习有所怀疑,只要认识正确,沉下心来,是金子总会发光的。
[大 中 小 ][打印 ]
在线反馈 | 法律公告 | 网站地图
备案序号:京ICP备05057977
版权所有:中审(北京)国际技术培训有限公司
西区:010-51582271(培训报名及学员事务咨询) 010-51582272(图书) 传真:51582274 东区:010-65171277/65171278 传真:65171282
E-mail:accatrainer@263.net.cn