<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim totallaw__MMColParam totallaw__MMColParam = "1" If (Request.QueryString("mmlaw_wsbz") <> "") Then totallaw__MMColParam = Request.QueryString("mmlaw_wsbz") End If %> <% Dim totallaw Dim totallaw_numRows Set totallaw = Server.CreateObject("ADODB.Recordset") totallaw.ActiveConnection = MM_wsjdcon_STRING totallaw.Source = "SELECT * FROM law WHERE law_wsbz = '" + Replace(totallaw__MMColParam, "'", "''") + "' ORDER BY law_time DESC" totallaw.CursorType = 0 totallaw.CursorLocation = 2 totallaw.LockType = 1 totallaw.Open() totallaw_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 totallaw_numRows = totallaw_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 投诉举报须知
首 页 | 机构概况 | 法律法规 | 监督信息 | 卫生标准 | 举报投诉 | 办事指南 | 知识广角 | 县区之窗 | 典型案例
 
投诉举报须知
网上投诉
各级卫生监督机构投诉电话

 
当前位置:首页—>投诉举报—>投诉举报须知
大连市卫生监督投诉举报须知

亲爱的消费者,您好:
         当您发现购买的健康相关产品(餐饮业食品、化妆品、涉水产品、一次性卫生用品等)存在卫生质量问题,或在使用时出现身体的不良反应,或发现各类涉嫌违反卫生法律法规的行为时,您可以向卫生监督机构投诉或举报,以维护公众或您自身的健康权益。一般来说,凡涉及影响公众卫生健康或可能影响公众卫生健康的各类事(案)件,均属于卫生监督机构的受理范围,主要可分为以下几类:

  1. 食品 ( 餐饮业 ) 、生活饮用水、化妆品、一次性卫生用品消毒药剂(械)等健康相关产品的卫生质量问题,如产品受污染、产品过期、感官异常、标签不全,及因此引起的健康不良反应等问题;
  2. 洗浴、桑拿、室内游泳馆和作业等场所卫生状况,及因此造成的特定人群健康的问题 ;
  3. 各类医疗机构及无证行医等违法行医行为;
  4. 其他各类违反卫生法律法规的行为。
  5. 如您发现上述任何一种问题或情况时,您可以以您认为最适当、最便捷的方式向卫生监督机构投诉或举报。
         您可以直接向大连市卫生监督所投诉或举报。投诉举报电话号码是: 0411—83672520 ( 24 小时有人值班接受投诉举报)。地址:辽宁省大连市西岗区中山路 154 —— 1 号。邮政编码: 116021 。您也可以在大连卫生监督信息网站网上投诉或举报 ( 网址: www.dlwsjd.com.cn) 。
 

大连市卫生监督所版权所有。

地址:辽宁省大连市西岗区中山路154-1号 邮编:116012信箱:rfeilinf@tom.com 电话:0411-83672520

 

<% totallaw.Close() Set totallaw = Nothing %>