<% option explicit %><% 'on error resume next if trim(Application("ConnectionString"))="" or trim(Application("ConnectionString"))<>"driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" then Application("ConnectionString")="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" end if Function LinkURLs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[url]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/url]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/url]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkURLs=replace(strOutput,"[/url]","",1,-1,1) End Function Function LinkIMGs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[img]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[img]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/img]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/img]","") strOutput=strOutput & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkIMGs=replace(strOutput,"[/img]","",1,-1,1) End Function Function LinkEmail(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[email]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[email]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/email]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+7,iLinkEnd-iLinkStart-7),"[/email]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkEmail=replace(strOutput,"[/email]","",1,-1,1) End Function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function UBB(str) str=LinkURLs(str) str=LinkIMGs(str) str=LinkEmail(str) UBB=str end function %><% dim sql,rs,rsc,thedate dim reviewable,aboutnews set rs=server.createobject("adodb.recordset") '查找显示相关新闻数目及是否开放评论权限 rs.open "select * from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then aboutnews=rs("aboutnews") if rs("reviewable")=1 then reviewable=1 else reviewable=0 end if else aboutnews=5 reviewable=1 end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="update news set hits=hits+1 where newsid=" & cstr(request("newsid")) conn.execute sql if session("purview")="" then rs.open "select * from news where newsid=" & cstr(request("newsid")) & " and audit=1",conn,1,1 else rs.open "select * from news where newsid=" & cstr(request("newsid")),conn,1,1 end if if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "该新闻不存在或未经过审核" else %>上海电力学院成人教育学院全国导航图

 

|
设置首页
|
收藏站点
|
 

 

上海电力学院成人教育学院全国导航图

 

全国导航图

层次 站点 地址 邮编 联系人 电话
上海 函授站
上海
上海电力学院成教院(国顺东路25号)      
院长室 200433 武存生 021-65383779
书记办公室 200433 何西培 021-65345437
院长办公室 200433 赵利华 021-65383779
副院长办公室 200433 应敏华 021-65347457
学生科 200433 王建明、董亦清 021-65338019
教务科 200433

邓礼湘、黄俏梅、杨鹰

021-65339093
教材科 200433 付正、程道静 021-65300141
班主任办公室 200433

2003:沈音2004:居德彬
2005:沈清和
2007:黄莉珍
2008:欧阳锦秀

021-65300680
021-65300680
021-65347457
021-65347457
021-65300680
305 200433 杨琴娣 021-65345437
招生办公室 200433

邱旭雯

021-65486263
网络中心 200433 魏敏捷 021-65345437
夜大学 上海电力培训中心江宁路100号 200041 钱惠光 021-62189746;021-62189750
武宁路600号 200063 孙玉华 021-62055776
沪南
南丹东路218号沪南供电所 200030 王泰崖 64692222-2155;64278695
浦东浦三路385号 200125 李余强 021-58755312
13701985689
申电
申电进修学院(包头路709号) 200438 夏晓芬 65230699
13020150682
南汇供电公司(南汇区惠南镇城东路328号) 201300 蒋培铭 13816210806
(东)浦东新区源深路158号5号楼、(西)水电路285号 200135 周文杰 13482896031
市中进修学院(浦电路313号) 200122 陈秀娣 021-68765216;
021-68761585
南汇六灶
南汇六灶成人学校(南汇周祝公路2229号) 201322
吴志林
58162945
15900853260
智优 上海智优经理人进修学院(西康路1018号1904室) 200060 唐瑛 27138229
南汇康桥 南汇康桥成人学校( 南汇区康桥镇横沔新镇 ) 201315 徐大春 13564594322
西江湾 上海安装教培中心(西江湾路450号) 200083 沈慧超 13816432800
嘉定
嘉定供电公司(清河路180号)
201800 茅晓蕾
13901970556
江苏 函授站
南京
南京供电局培训中心(中山路251号) 210008 黄海平 025-84223523
镇江
镇江供电局培训中心(电力路182号) 212001 钱红奋 0511-4026707
徐州
徐州电业局科技教育培训中心(复兴南路津浦花园15号楼) 221003 冯彭民、王捷 0516-3742511
连云港
连云港供电公司培训中心(新浦区幸福路13号) 222004 龙海明 0518-5292479
苏州
苏州供电公司教培中心(学士街55号) 215004 皇甫铮 0512-64522108
常州
常州市供电局培训中心 213003 陆跃平 0519-8192242
送教上门
常熟电厂
常熟发电厂教培中心(吴市镇) 215536 孙爱华 0512-52657023-2087
太仓
太仓保利协鑫热电有限公司行政部(洛阳路188号)
215400
杜春茹
0512-53588498-8068
太仓
玖龙纸业(太仓市港口开发区玖龙路) 215434 陈外林 13809054039
大屯
江苏省沛县大屯煤电公司发电厂教培中心 221611 罗贤飞
0516-89039262
浙江 函授站

杭州

浙江电力职工大学(拱宸桥舟山东路91号) 310015 罗丽华 0571-51217119
金华
金华电业局培训中心(解放西路480号) 321001 王瑞平 0579- 2052392
嘉兴
嘉兴电力局培训中心(勤俭路566号) 314000 方宗林
0573-82422582
湖州
湖州电力培训中心(劳动路235号) 313000 柴俊 0572-2427031
送教上门
镇海电厂
宁波市镇海虹桥镇海电厂教培中心 315208 庄小红 0574-86332806; 0574-86332805
衢州
衢州市电力局教育处(荷花二路118号)
324002
杨礼明
0570-3841812;
3841810
温州
温州电力局教育处(锦绣路电力大厦) 325000 廖志伟、李莉 0577-51108200;51108126
台州
台州电力局教培中心(临海市鹿城路248号) 317000 林文斌 0576-5162215;5162217
丽水
丽水电力局教培中心(丽水市灯塔街19号) 323000 蒋美娟 0578-2578606
云和
云和供电公司(丽水市云和县) 323600 吕寿兴 0578-5128233
长兴电厂
华能长兴电厂教培中心(浙江长兴县) 313100 唐玉泉 0572-5843316;6213356传真
山东 函授站
泰安
山东电力学校职教处(泮河路21号) 271000 冀斌、李杰 0538-6623755;6623774-2037
送教上门
临沂电厂
临沂电厂教培中心(临沂市罗庄区盛庄镇) 276000 隋树波、倪建华 0539-7062210;0539-7062119
青岛电业局
青岛电业局培训中心(刘家峡路17号) 266002 于红伟 0532-2952342;2952344传真
安徽 函授站
合肥
合肥供电局培训中心(宿松路133号) 230022
卢敏;孟权 0551-3702147;3702146
职大
安徽电气职业技术学院(黄山路270号)成教部 230022 狄成恩、张进 0551-3705037;
3705246
江西 函授站
南昌
江西电力职业技术学院(麦园) 330032 邓红英、刘树华 0791-3898755
送教上门
九江
九江电厂教培中心
332001
顾卫群
0792-8483024
九江
九江电力局教培中心(长虹大道74号) 332001 余萍 0792-8465910
鹰潭
鹰潭供电公司劳动人事部(鹰潭梅园新区府前路12号) 335001 罗娟、刘丹 0701-6448216
贵溪
贵溪电厂教培中心 335400 徐卫星 0701-3758241
福建 函授站
泉州
泉州市星湖路57号上海电力学院成教院泉州函授中心 362000 李泽榕、倪建华 0595-22867932; 22867935
送教上门
漳州
漳州电业局教育培训中心 363000 曾昕 0596-2973706
厦门
厦门杏林厦门杏林电厂培训中心 361022 麦振华 0592-6210155-2316
邵武
邵武电厂教培中心 354000 罗积有 0599-6538531
永安
永安电厂人劳科 366013 张倩萌 0598-3626856
德化
德化热电厂 362500 苏荣结 13505091886
德化电力公司
  黄金铭 13506096532
龙岩
龙岩电业局培训中心 364400 王镇明 0598-3626856
莆田
莆田电业局人资部 351100 吴俊毅 0594-2363813
上杭
上杭电力公司 364200 黄琼华 0597-3846303
漳平
漳平电厂教培中心 364400   0597-7022232
  
 

Copyright © 上海电力学院成人教育学院网络中心 2007-2008

上海电力学院成人教育学院 版权所有

<% end if end if%>