中审国际

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

北京西区

北京东区

深圳办公区

新闻搜索

分类

关键字

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

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

首页 – 新闻公告 – 明星教师

师资介绍

经验交流

教师答疑

明星教师

Ms. Zeng——主讲P3

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

Ms.Zeng ,毕业于武汉大学，经济学学士，具有ACCA以及CISA资格。曾就职于国家审计署，具有丰富的财务管理以及金融、贸易、技术等众多行业的审计经验;曾担任光大永明人寿保险内部审计部资深经理。

［大中小］［打印］

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