企业资源管理计划(ERP)系统顺利实施

<%@ LANGUAGE="VBScript.Encode" CODEPAGE="936" %> <%function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, ">", ">") 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), "
") HTMLEncode = fString end if end function function UBBCode(strContent) strContent = HTMLEncode(strContent) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])" strContent=re.Replace(strContent," 按此在新窗口浏览图片

screen.width-580)this.width=screen.width-580"">") re.Pattern="(\[URL\])(http:\/\/.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL\])(.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$2") re.Pattern="(\[URL=(http:\/\/.[^\]]*)\])(.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") re.Pattern="(\[URL=(.[^\]]*)\])(.[^\]]*)(\[\/URL\])" strContent= re.Replace(strContent,"$3") re.Pattern="(\[EMAIL\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"

$2") re.Pattern="(\[EMAIL=(.[^\]]*)\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"

$3") re.Pattern="([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)" strContent= re.Replace(strContent,"

$2") re.Pattern = "^(http://[A-Za-z0-9\./,!:=\?%\-&_~`@'+]+)" strContent = re.Replace(strContent,"

$1") re.Pattern = "(http://[A-Za-z0-9\./,!:=\?%\-&_~`@'+]+)$" strContent = re.Replace(strContent,"

$1") re.Pattern = "[^>=""](http://[A-Za-z0-9\.\/,!:=\?%\-&_~`@'+]+)" strContent = re.Replace(strContent,"

$1") re.Pattern="(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])" strContent=re.Replace(strContent,"$3") re.Pattern="(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])" strContent=re.Replace(strContent,"$3") re.Pattern="(\[align=(.[^\[]*)\])(.*)(\[\/align\])" strContent=re.Replace(strContent,"

") re.Pattern="(\[move\])(.*)(\[\/move\])" strContent=re.Replace(strContent,"$2") re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]" strContent=re.Replace(strContent,"$4

") re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]" strContent=re.Replace(strContent,"$4

") re.Pattern="(\[code\])(.[^\[]*)(\[\/code\])" strContent=re.Replace(strContent,"

以下内容为程序代码:
$2

") re.Pattern="(\[QUOTE\])(.*)(\[\/QUOTE\])" strContent=re.Replace(strContent,"

") re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])" strContent= re.Replace(strContent,"

") re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]" strContent=re.Replace(strContent,"

") re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]" strContent=re.Replace(strContent,"

") re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]" strContent=re.Replace(strContent,"

") re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]" strContent=re.Replace(strContent,"

") re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"

$1") re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"

$1") re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"

$1") re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"

$1") re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"

$1") re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"

$1") re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"

$1") re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$" strContent = re.Replace(strContent,"

$1") re.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)" strContent = re.Replace(strContent,"

$1") re.Pattern="(\[i\])(.[^\[]*)(\[\/i\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[u\])(.[^\[]*)(\[\/u\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[b\])(.[^\[]*)(\[\/b\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[fly\])(.*)(\[\/fly\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=1\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=2\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=3\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[size=4\])(.[^\[]*)(\[\/size\])" strContent=re.Replace(strContent,"$2") re.Pattern="(\[center\])(.[^\[]*)(\[\/center\])" strContent=re.Replace(strContent,"$2") set re=Nothing UBBCode=strContent end function dim id,rs,admin,email,webname,weburl,xtname,softname,powerby,tboerweb,tboerurl,linkurl,bgcolor,bycolor,btcolor,txcolor,txtcolor,txtsize,hrcolor,sql,title,placard,hits,addtime id=request.querystring("id") if id="" then response.write("") response.end end if Set rs = Server.CreateObject("ADODB.Recordset") rs.open "select * from admin",conn,1,1 admin=rs("name") email=rs("email") webname=rs("webname") weburl=rs("weburl") xtname=rs("xtname") softname=rs("softname") powerby=rs("powerby") tboerweb=rs("tboerweb") tboerurl=rs("tboerurl") bgcolor=rs("bgcolor") bycolor=rs("bycolor") btcolor=rs("btcolor") txcolor=rs("txcolor") txtcolor=rs("txtcolor") txtsize=rs("txtsize") hrcolor=rs("hrcolor") rs.close:set rs=nothing conn.Execute"UPDATE data SET hits=hits+1 WHERE id="&id sql="SELECT name,placard,hits,addtime,linkurl FROM data WHERE id="&id Set rs=Conn.Execute(sql) if rs(4)<>"null" then linkurl=rs(4) rs.close:set rs=nothing call dbclose() response.redirect linkurl response.end end if title=rs(0) placard=rs(1) hits=rs(2) addtime=rs(3) rs.close:set rs=nothing call dbclose()%> 企业资源管理计划(ERP)系统顺利实施

企业资源管理计划(ERP)系统顺利实施

　发布日期：[2008-04-28]

日前，首迈通信顺利实施企业资源管理计划(ERP)系统。今年初，面对与日俱增的生产任务，为了提高公司生产效率，确保产品质量，公司领导认识到实施ERP系统是提高生产效率和产品质量的唯一途径。经过2个月的前期准备，公司终于在4月低全面实施企业资源管理计划(ERP)系统。ERP系统是在先进的企业管理思想的基础上，应用信息技术实现对整个企业资源的一体化管理。ERP是一种可以提供跨地区、跨部门、甚至跨公司整合实时信息的企业管理信息系统。它在企业资源最优化配置的前提下，整合企业内部主要或所有的经营活动，包括财务会计、管理会计、生产计划及管理、物料管理、销售与分销等主要功能模块，以达到效率化经营的目标。ERP的成功实施，将大大提高本公司管理水平，有效提高公司生产效率、产品质量和成本控制能力。

【关闭窗口】