<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i 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 MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Redirect if username exists MM_flag="MM_insert" If (CStr(Request(MM_flag)) <> "") Then MM_dupKeyRedirect="../../My%20webs/admin/loginerror.htm" MM_rsKeyConnection=MM_conn_STRING MM_dupKeyUsernameValue = CStr(Request.Form("userpass")) MM_dupKeySQL="SELECT userpass FROM js WHERE userpass='" & MM_dupKeyUsernameValue & "'" MM_adodbRecordset="ADODB.Recordset" set MM_rsKey=Server.CreateObject(MM_adodbRecordset) MM_rsKey.ActiveConnection=MM_rsKeyConnection MM_rsKey.Source=MM_dupKeySQL MM_rsKey.CursorType=0 MM_rsKey.CursorLocation=2 MM_rsKey.LockType=3 MM_rsKey.Open If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_conn_STRING MM_editTable = "js" MM_editRedirectUrl = "../../My%20webs/admin/main.asp" MM_fieldsStr = "username|value|userpass|value" MM_columnsStr = "username|none,none,NULL|userpass|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% ' *** 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("username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="编号" MM_redirectLoginSuccess="../../My%20webs/admin/main.asp" MM_redirectLoginFailed="../../My%20webs/admin/loginerror.htm" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn_STRING MM_rsUser.Source = "SELECT username, userpass" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM js WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND userpass='" & Replace(Request.Form("userpass"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open 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 %> 揭阳建设网
首 页 建设风采 政务资讯 业界动态 行业管理 企业展台 政策法规 建设英才 协会学会
会员中心

 

转发省建设厅关于印发《建设行政许可听证工作规定》的通知

市房管局,各县 ( 市、 区 ) 建设局、城建局、房管局,局机关各科 ( 室 ) ,局属下各单位:

    现将省建设厅《转发建设部关于印发 < 建设行政许可听证工作规定 > 的通知》 ( 粤建法字 [2005]2

号 ) 转发给你们,请按有关精神认真贯彻执行。


                                                            二 00 五年一月十八日


转发建设部关于印发《建设行政许可听证工作规定》的通知

    广州市建委,各地级以上市建设局、规划局 ( 规划国土局 ) 、城建局 ( 市政园林局、公用事业局、市

容环卫局、城管局、水务局 ) 、房管局 ( 国土房产局 ) ,厅机关各部门,直属各单位:

   现将《建设部关于印发 < 建设行政许可听证工作规定 > 的通知》 ( 建法 [20041108 号 ) 转发给你们

,请各部门、各单位认真贯彻执行,同时,要高度重视建设行政许可听证工作,把听证工作作为本部门、本

单位实施行政许可的重要工作来抓。在作出建设行政许可决定前,对法律、法规、规章规定实施行政许可应

当听证的事项;行政机关认为需要听证的其他涉及公共利益的重大行政许可事项;直接涉及申请人与他人之

间重大利益关系的行政许可事项,要严格按照本《规定》的程序要求组织听证,并根据听证笔录作出行政许

可决定,切实做到听证工作到位,听证工作程序规范,避免由于不依法组织听证或听证工作不当所引发的行

政复议或行政诉讼案件的产生。

 

                                                                二 00 五年一月六日


关于印发《建设行政许可听证工作规定》的通知

各省、 自治区建设厅,直辖市建委及有关部门,新疆生产建设兵团建设局,部机关各单位:

    《建设行政许可听证工作规定》已经建设部第 37 次常务会议审议通过,现印发给你们,请认真贯彻执行。

 

                                                              二 00 四年六月三十日

 

建设行政许可听证工作规定

    第一条 为规范建设行政管理行为,促进科学决策和民主决策,保护公民、法人和其他组织的合法权益,

依据《中华人民共和国行政许可法》和有关法律法规,制定本规定。

    第二条 县级以上人民政府建设主管部门及有关部门或法律法规授权的组织 ( 以下简称主管机关 ) ,实

施行政许可组织听证的,适用本规定。

    第三条 法律、法规、规章规定实施行政许可应当听证的事项,或者主管机关认为需要听证的其他涉及公

共利益的重大行政许可事项,主管机关应当向社会公告,并举行听证。

    第四条 主管机关在作出行政许可峡定前,应当审查该许可事项是否直接涉及申请人与他人之间重大利益

关系;直接涉及的,应当告知申请人、利害关系人享有要求听证的权利,必要时可发布公告,申请人、利害

关系人在被告知听证权利或公告发布之日起五日内,提出听证申请的,主管机关应当在二十日内组织听证。

    第五条 主管机关对第三条规定的事项举行听证的,应当在举行听证会三十日前, 向社会公告听证会的

时间、地点、 内容、听证会代表产生办法、申请参加听证会须知。符合主管机关规定条件的公民、法人和其

他组织,均可申请或推选代表申请参加听证会。主管机关按照听证公告规定的代表产生办法,根据拟听证事

项及公民、法人和其他组织的申请情况,确定听证会代表;确定的听证会代表应当具有广泛性、代表性。

    第六条 主管机关对第四条规定的事项组织听证的,应当公布确定利害关系人的原则。拟听证的许可事项

涉及利害关系人较多的,可由利害关系人推举或通过抽签等方式确定参加听证的代表。

    第七条 听证由主管机关内经办行政许可事项的机构或法制工作机构具体组织。

    第八条 组织听证,应当遵循公开、公平、公正和便民的原则,充分听取公民、法人和其他组织的意见,

保证其陈述意见、质证和申辩的权利。 ,

    第九条 行政许可听证,除涉及国家秘密、商业秘密或者个人隐私外,应公开举行。

    第十条 听证工作人员包括听证主持人、记录员,必要时可设一至三名听证员,

    第十一条 听证主持人、记录员以及必要、的听证员由主管关指定。主管机关应当指定直接审查该行政许

可申请的工作人员以外的人员为听证主持人。听证主持人与听证事项有直接利害关系的,应当主动申请回避

。 申请人、利害关系人认为听证主持人与听证事项有直接利关系的,有权申请回避。申请人、利害关系人申

请听证主持人回避,听证主持人与听证事项确有直接利害关系的,听证主持人应当回避。

    第十二条 主管机关应制作《听证通知书》,并在举行听证七日前将《听证通知书》送听证会代表或许可

申请人、利害关系人。

    《听证通知书》应当载明下列事项:

    ( 一 ) 听证的事由与依据;

    ( 二 ) 听证的时间、地点;

    ( 三 ) 听证·主持人、记录员、听证员的姓名、职务;

    ( 四 ) 听证会代表或许可申请人和利害关系人的权利与义务;

    ( 五 ) 注意事项;

    第十三条 听证所需时间不计算在行政许可办理期限内。主管机关应当将所需时间书面告知许可申请人。

    第十四条 听证会按下列程序进行:

    ( 一 ) 听证主持人核实听证参加人的身份和到场情况,

    ( 二 ) 听证主持人介绍记录员、听证员的姓名、工作单位及职务,告知听证参加人的权利和义务,宣布听证开始;

    ( 三 ) 听证主持人宣读听证纪律和听证会场有关注意事项;

    ( 四 ) 审查该行政许可事项的工作人员提出审查意见并陈述理由,提供有关依据、证据等材料。

    ( 五 ) 许可申请人、利害关系人提出维护其合法权益的事实、理由和依据,或者听证会代表对听证事项

发表意见;

    ( 六 ) 有关各方进行申辩和质证;

    ( 七 ) 最后陈述;

    ( 八 ) 听证笔录交听证参加人确认无误或者补正后签字或者盖章。无正当理由又拒绝签字或者盖章的,

记录员应记明情况;

    ( 九 ) 听证主持人宣布听证结束。

    第十五条 听证笔录应当载明下列内容:

    ( 一 ) 听证事项名称;

    ( 二 ) 听证主持人、记录员、听证员的姓名、职务;

    ( 三 ) 听证参加入的姓名或名称、地址以及职业、职务等基本情况。

    ( 四 ) 听证会举行的时间、地点、方式;

    ( 五 ) 经办机构工作人员提出的审查意见及陈述的理由;

    ( 六 ) 许可申请人、利害关系人提出的事实、理由和依据,或者听证会代表发表的意见;

    ( 七 ) 有关各方进行申辩和质证的内容;

    ( 八 ) 听证参加人的签字或者盖章,或者听证参加人拒绝签字或者盖章的情况说明;

    ( 九 ) 听证主持人对听证活动中有关事项的处理情况;

    ( 十 ) 听证主持人认为需载明的其他事项。

    第十六条 主管机关应当根据听证笔录作出行政许可决定,听证参加人有权查阅听证笔录。

    第十七条 有下列情形之一的,可以延期举行听证:

    ( 一 ) 因不可抗力导致听证无法按期举行的;

    ( 二 ) 当事人申请延期,有正当理由的;

    ( 三 ) 可以延期的其他情形。

    延期听证的,主管机关应当书面通知听证参加人,说明理由延期听证的情形消失后,主管机关应当在五

日内举行听证,并书面通知听证参加人。

    第十八条 有下列情形之一的,中止听证:

    ( 一 ) 听证主持人认为听证过程中提出新的事实、理由和依据或者提出的事实有待调查核实的;

    ( 二 ) 因不可抗力导致听证参加人无法继续参加听证的;

    ( 三 ) 应当中止听证的其他情形。中止听证的,主管部门应当书面通知听证参加人,说明理由。

    中止听证的情形消失后,主管机关应当在五日内恢复听证,并书面通知听证参加人。

    第十九条 有下列情形之一的,终止听证:

    ( 一 ) 申请人撤回听证申请或在听证过程中声明退出的;

    ( 二 ) 申请人无正当理由不到场的,或者未经听证主持人允许中途退场的;

    ( 三 ) 有权申请听证的公民死亡,没有继承人,或者继承人放弃听证权利的;

    ( 四 ) 有权申请听证的法人或者其他组织终止,承受其权利的法人或者组织放弃听证权利的;

    ( 五 ) 需要终止听证的其他情形,终止听证的,主管机关应当书面通知听证参加入。

    终止听证后,由主管机关依法作出行政许可决定。

    第二十条 组织听证所需经费由主管机关承担,列入主管部门预算;组织听证必需的场地、设备、工作条

件,由主管机关给予保障。听证事项的申请人、利害关系人不承担主管机关组织听证的费用;主管机关不得

向听证参加人收取或者变相收取任何费用。

    第二十一条 对违反行政许可法和本规定,不履行法定告知听证义务、不举行依法或依申请应当举行的听

证,以及组织听证中的违法违规行为,依照法律法规和行政许可责任追究的有关规定,追究有关人员的责任。

    第二十二条 本规定自 2004 年 7 月 1 日起施行。