<% 'response.Buffer=false %> <% 'const connstring="Provider=SQLOLEDB.1;Persist Security Info=False;Password=Od(12_39Vb;User ID=oil;Initial Catalog=61.135.128.4;Data Source=plasdb" 'const connstring="Provider=sqloledb;Data Source=61.135.128.4;Network Library=DBMSSOCN;Initial Catalog=chemoil_trade;Password=Od(12_39Vb;User ID=oil;" const connstring="Provider=sqloledb;Data Source=sqldb2;Network Library=DBMSSOCN;Initial Catalog=chemoil_trade;Password=Od(12_39Vb;User ID=oil;" 'const accessdatabase="Provider=sqloledb;Data Source=61.135.128.7;Network Library=DBMSSOCN;Initial Catalog=chemical_trade" 'const accessusername="chembuss" 'const accesspassword="(8Pq-:5F$]" 'dsn="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=plas;Password=bfdds06fd;Data Source=publisht" dsn="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=plas;Password=d64y1xi9;Data Source=publisht" '-------------------------------------------------------- '函 数:CheckS '功 能:比较两个变量,如相等则返回" checked",用于单 ' 选框赋初始值 '入口参数:O_a,O_b 要比较的两个变量 '-------------------------------------------------------- Function CheckS(O_a,O_b) if O_a=O_b then CheckS=" selected" else CheckS=" " end if End Function '-------------------------------------------------------- '函 数:CheckC '功 能:比较两个变量,如相等则返回" checked",用于单 ' 选框赋初始值 '入口参数:O_a,O_b 要比较的两个变量 '-------------------------------------------------------- function CheckC(O_a,O_b) if O_a=O_b then CheckC=" checked" else CheckC=" " end if End Function '-------------------------------------------------------- '函 数:SQLString '编 写 人:张冬涛 '日 期:2003-3-25 '功 能:将字符串中的"'"转化为"''",以供SQL语句中使用, ' 防止SQL语句因非法单引号出错 '入口参数:OString 原字符串 '出口参数:SQLString 转换之后的字符串 '-------------------------------------------------------- Function SQLString(OString) SQLString=replace(OString,"'","''") End Function '-------------------------------------------------------- '函 数:GetWebDataBase(AreaName) '编 写 人:周彦君 '日 期:2003-12-1 '功 能:返回行业所在的数据库服务器 '入口参数:AreaName 行业名 '出口参数:GetWebDataBase 行业数据库实例名 '-------------------------------------------------------- Function GetWebDataBase(AreaName) Set m_conn = Server.CreateObject("sinobnet.oradb") '开始创建Sinobnet.oradb数据组件 m_conn.pDataBase =PubDataBase '登录数据库名称 m_conn.pLogin =SinobnetLogin '登录帐号/口令 m_conn.pDBOption =1 '打开数据库方式 m_conn.dOpen '连接数据库 Set m_res=Server.CreateObject("sinobnet.orarec") '创建记录集组件 m_res.pDyoption =1 '打开记录集方式 sql="Select publishdb from Sys_Area where AreaName='" & SQLString(AreaName) & "'" m_res.pDystmt = sql m_res.dOpen m_conn 'if not m_res.oEof then if m_res.oRecordCount>0 then GetWebDataBase=m_res.oRes("publishdb") else GetWebDataBase="" end if m_res.dClose m_conn.dClose End Function '-------------------------------------------------------- '函 数:WebLogin '编 写 人:张冬涛 '日 期:2003-3-25 '功 能:返回行业用户登录名/密码字符串 '入口参数:AreaName 行业名 '出口参数:WebLogin 行业用户登录名/密码字符串 '-------------------------------------------------------- Function WebLogin(AreaName) Set m_conn = Server.CreateObject("sinobnet.oradb") '开始创建Sinobnet.oradb数据组件 m_conn.pDataBase =PubDataBase '登录数据库名称 m_conn.pLogin =SinobnetLogin '登录帐号/口令 m_conn.pDBOption =1 '打开数据库方式 m_conn.dOpen '连接数据库 Set m_res=Server.CreateObject("sinobnet.orarec") '创建记录集组件 m_res.pDyoption =1 '打开记录集方式 sql="Select UserName,Password from Sys_Area where AreaName='" & SQLString(AreaName) & "'" m_res.pDystmt = sql m_res.dOpen m_conn 'if not m_res.oEof then if m_res.oRecordCount>0 then WebLogin=m_res.oRes("UserName") & "/" & m_res.oRes("Password") else WebLogin="" end if m_res.dClose m_conn.dClose End Function '-------------------------------------------------------- '函 数:RealLen '编 写 人:张冬涛 '日 期:2003-3-25 '功 能:计算字符串的真实长度(一个汉字字符长度计2) '入口参数:OString 字符串 '出口参数:RealLen 字符串的长度 '-------------------------------------------------------- Function RealLen(OString) Dim m_i, m_x m_i = 0 If OString <> "" Then For m_x = 1 To Len(OString) m_i = m_i + Len(Hex(Asc(Mid(OString, m_x, 1)))) / 2 Next End If RealLen = m_i end Function '-------------------------------------------------------- '函 数:changelen '编 写 人:张冬涛 '日 期:2004-2-13 '功 能:字符串截取函数,截取指定长度的字符串,剩余部分用省略号代替 '入口参数:ss 要截取的字符串 ' n 要截取的汉字数 '出口参数:changelen 截取后的字符串 '-------------------------------------------------------- function changelen(ss,n) cx=int(n)*2 if reallen(ss)>cx then mys=left(ss,1) ci=1 while reallen(mys)"" then m_date=cdate(ODate) RealDate=cstr(year(m_date))+"-"+cstr(month(m_date))+"-"+cstr(day(m_date)) else RealDate="" end if End Function Function RealDate2(ODate) dim m_date if ODate<>"" then m_date=cdate(ODate) RealDate2=cstr(year(m_date))+"/"+cstr(month(m_date))+"/"+cstr(day(m_date)) else RealDate2="" end if End Function '-------------------------------------------------------- '函 数:RealFormat '编 写 人:张冬涛 '日 期:2003-3-25 '功 能:将字符串中的换行及空格处理成HTML代码,以供页面 ' 显示 '入口参数:OString 要转换的字符串 '出口参数:RealFormat 转换后的字符串 '-------------------------------------------------------- Function RealFormat(OString) dim m_string if OString<>"" then m_string=replace(OString,vbCrLf,"
") m_string=replace(m_string," "," ") RealFormat=m_string else RealFormat="" end if End Function '-------------------------------------------------------- '函 数:RealTitle '编 写 人:张冬涛 '日 期:2003-7-29 '功 能:将字符串中的HTML代码过虑掉 '入口参数:title 要处理的字符串 '出口参数:RealTitle 转换后的字符串 '-------------------------------------------------------- Function RealTitle(title) if title="" then realtitle="" else ss=title i=instr(ss,"<") j=instr(ss,">") while i>0 and j>0 and j>i if j=0 then j=i ss=left(ss,i-1)+right(ss,len(ss)-j) i=instr(ss,"<") j=instr(ss,">") wend ss=replace(ss," "," ") realtitle=ss end if End Function '-------------------------------------------------------- '以下为预防ASP安全漏洞需加的判断 '-------------------------------------------------------- function NumToChr(ss) s=ss if instr(s,"%")>0 then for i=1 to 26 x=chr(asc("a")+i-1) s=replace(s,"%"+cstr(hex(asc(x))),x) x=chr(asc("A")+i-1) s=replace(s,"%"+cstr(hex(asc(x))),x) next end if NumToChr=s end function For i=1 to FormCount stext=request.Form.Item(i) if InStr(stext,"--") then response.end Exit For end IF Next query_str=request.serverVariables("query_string") query_str=NumToChr(query_str) query_str=LCASE(query_str) if instr(query_str,"drop")>0 then response.end elseif instr(query_str,"create")>0 then response.end elseif instr(query_str,"alter")>0 then response.end elseif instr(query_str,"delete")>0 then response.end elseif instr(query_str,"truncate")>0 then response.end elseif instr(query_str,"update")>0 then response.end elseif instr(query_str,"insert")>0 then response.end else end if %> 塑料常识-塑料行业-hc360慧聪网
       聚 乙 烯   聚 丙 烯   PS/ABS    聚氯乙烯   工程塑料   塑料机械   塑料助剂   塑料制品
 
您的位置:首页>>塑料常识
暂无内容
·Chinaplas2018中国国际橡塑展..
·环保利剑重启 再生塑料僵持难下
·陶氏专注产品创新 助力塑料产..
·以化学之惠 缔造更美好世界—..
·橡塑展前夕 陶氏杜邦、伊士曼..
·CHINAPLAS盛大开幕 携4000家领..
·注塑机发展史及企业资讯大盘点
·塑料数读:医用级TPE冷藏应用..
·慧眼观察:2017年塑企业绩大比拼
·塑料数读:万华化学17年融资2..
·禁塑令:10年坎坷路途 前程如何
·塑料数读:科思创扩大北美TP..
·9月关注:“最严停工令”来了..
·石墨烯:即将引领科技的未来材料
·8月关注:飓风哈维强袭美国 国..
·塑料数读:上半年橡塑料制品主..
·慧眼观察:全球塑企财报公布..
·塑料数读:2022年全球挤压塑料..
 
·ABS料注塑产品该如何增亮度 (06/22)
·注塑产品产生杂质及冷料僵块如何解决 (06/22)
·PET塑料为什么那么“韧”?因为有它! (06/20)
·牙膏里有小塑料珠 这事你知道吗? (06/19)
·改性尼龙PA塑料在汽车工业中占8% 汽车发展离不开它 (06/14)
·科考队为什么频繁调查海洋微塑料 (06/14)
·石油匮乏+白色污染 生物塑料如何引领塑料产业新方向 (06/13)
·塑料微珠危害不容小觑 (06/08)
·塑料增韧的三大技术 (06/08)
·免喷涂着色的2大工艺难点和7种解决方案 (06/07)
·塑料回收重要性不断增加 相关制造商订单量超出预期 (06/01)
·今年首季印尼化工产量 化学品同比降低8.5% (05/07)
·感温变色PP材料的原理与种类 (05/07)
·全球塑料生产创新高 (05/04)
·德国宇航中心研究复合材料飞机部件生产新技术 (04/27)
·材料学家利用激光技术制备微小弯曲的碳纤维面 (04/19)
·帝斯曼在回流焊连接器领域取得巨大进展 (04/17)
·韩国日进与巴斯夫携手推出全球首款钢塑混合悬架臂 (04/10)
·推杆胶塞医用TPE可增强注射功能 (04/09)
·FlexFilms开发出质感柔软的高抗拉聚合物薄膜 (04/03)
·美锴推出新款微型塔式机 用于小产量塑料加工 (04/02)
·陶朗推出激光多维检测技术 进一步提高可回收材料的纯 (03/29)
·废料变“黑金” 台湾永虹碳纤维复合材料微波回收技术 (03/27)
·什么是FIP密封技术?可应用于电子、汽车、包装、家.. (03/20)
·为塑机设备安上“智能大脑” (03/14)
·KraussMaffei Berstorff携手宝塑 展示最新双向拉伸.. (03/14)
·蓝星在可激光焊接PBT工程塑料领域取得重要进展 (03/13)
·新型纳米材料可模仿狗鼻子检测气体 (03/12)
·德国Cyklop投资新熔体过滤系统 (03/09)
·韩国企业推出纳米生物塑料 加快生物塑料方面开发步伐 (03/09)
·iD Additives在NPE上展示清洗料产品 (03/07)
·哈佛大学开发出可感知运动温度的3D打印软机器人 (03/05)
·欧洲制造商研发出单壁碳纳米管透明PE吹塑膜 可永久.. (03/02)
·德国公司开发碳纤维预浸料补丁铺放系统 实现3D净预成 (03/01)
·水溶性低维材料合成与应用获突破 (03/01)
·智能车门拉手 帝人创新薄膜科技来助力 (02/27)
[1] [2] [3] [4] [5] 更多 
 
 
版权所有 HC360慧聪网 京ICP证010051号
Copyright©2000-2005 hc360.com. All Rights Reserved
Tel:010-82297259 Fax:010-82211769