<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_conn_STRING MM_editCmd.CommandText = "INSERT INTO dr ([user], pass) VALUES (?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 20, Request.Form("textfield")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("textfield2"), Request.Form("textfield2"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close End If End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_con1_STRING Recordset1_cmd.CommandText = "SELECT * FROM jhmy" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_conn_STRING Recordset2_cmd.CommandText = "SELECT * FROM dr" Recordset2_cmd.Prepared = true Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername = CStr(Request.Form("textfield")) If MM_valUsername <> "" Then Dim MM_fldUserAuthorization Dim MM_redirectLoginSuccess Dim MM_redirectLoginFailed Dim MM_loginSQL Dim MM_rsUser Dim MM_rsUser_cmd MM_fldUserAuthorization = "" MM_redirectLoginSuccess = "index.asp" MM_redirectLoginFailed = "注册.asp" MM_loginSQL = "SELECT [user], pass" If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & " FROM dr WHERE [user] = ? AND pass = ?" Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command") MM_rsUser_cmd.ActiveConnection = MM_conn_STRING MM_rsUser_cmd.CommandText = MM_loginSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 20, MM_valUsername) ' adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 5, 1, -1, Request.Form("textfield2")) ' adDouble MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> 宁德市疾病预防控制中心关于2009年集中推荐使用二类疫苗的通知
 
机构概况 | 行政管理 | 疾病控制 | 业务受理 | 应急处置 | 免疫规划 | 健康促进 | 卫生监测与职业卫生 | 科研培训

回到首页

                                                                         机构概况

　　宁德市疾病预防控制中心是在原宁德市卫生防疫站的基础上于 2003 年 7 月组建而成，是全市疾病预防与控制的技术指导中心和技术咨询、服务机构，是政府实施疾病预防与控制、突发公共卫生事件应急处置、疫情报告及健康相关因素信息管理、健康危害因素监测与干预、实验室检测分析与评价、健康教育与健康促进、技术管理与应用研究指导等职能的公益性事业单位。中心编制数６３人，设有 ２ 个职能科室和 10 个业务科室，有办公和实验场所６１６９平方米 ，拥有 PCR 仪、 液质色谱仪、气质联用仪、实时荧光PCR、全自动细菌鉴定仪等一批先进仪器设备，具有较强的检测能力。 1998 年通过省级计量认证， 2005年取得“艾滋病病毒抗体检测初筛中心实验室”资格， 2008年5月取得“艾滋病检测确证实验室”资格。宁德市疾病预防控制中心的主要职责是： 制订全市疾病预防控制技术对策和措施，并负责指导和组织实施；为拟定与疾病控制和公共卫生相关的法规、规章、政策、标准、规划等提供科学依据，为卫生行政部门提供决策咨询； 负责疾病预防和控制信息的收集整理、统计分析、综合评价及疫情报告； 开展疾病预防控制相关的监测技术和科研、培训、咨询、疾病预防指导和开展公众的健康教育与促进； 负责对生物性、社会性、职业性等因素所致疾病流行病学调查，承担疾病预防、控制及卫生学评价等任务； 指导社区卫生服务和初级卫生保健工作； 通过卫生行政部门的认证，承担预防性健康检查工作及健康相关产品的卫生质量检验、出证，涉及公共卫生相关场所的卫生学评价； 参与突发公共卫生事件调查处理，承担救灾防病工作； 进行应用性科学研究，开展对外交流与合作，开发、引进和推广新技术、新方法； 完成卫生局交付的其他任务。 宁德市疾病控制中心将积极探索疾病预防控制的新途径，充分发挥技术、设备优势，广泛开展疾病预防控制和公共卫生领域的科学研究，为消除疾病、保护广大群众的身体健康，促进我市社会经济发展作出更大的贡献。

 

 

Copyright @ 2004-2009 NDCDC.COM All rights reserved

技术支持：宁德疾病预防控制中心

闽ICP备08005668号

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>