%@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
转发建设部关于印发《建设行政许可听证工作规定》的通知 广州市建委,各地级以上市建设局、规划局 ( 规划国土局 ) 、城建局 ( 市政园林局、公用事业局、市 现将《建设部关于印发 < 建设行政许可听证工作规定 > 的通知》 ( 建法 [20041108 号 ) 转发给你们
二 00 五年一月六日
各省、 自治区建设厅,直辖市建委及有关部门,新疆生产建设兵团建设局,部机关各单位: 《建设行政许可听证工作规定》已经建设部第 37 次常务会议审议通过,现印发给你们,请认真贯彻执行。
二 00 四年六月三十日
建设行政许可听证工作规定 第一条 为规范建设行政管理行为,促进科学决策和民主决策,保护公民、法人和其他组织的合法权益, 第二条 县级以上人民政府建设主管部门及有关部门或法律法规授权的组织 ( 以下简称主管机关 ) ,实 第三条 法律、法规、规章规定实施行政许可应当听证的事项,或者主管机关认为需要听证的其他涉及公 第四条 主管机关在作出行政许可峡定前,应当审查该许可事项是否直接涉及申请人与他人之间重大利益 第五条 主管机关对第三条规定的事项举行听证的,应当在举行听证会三十日前, 向社会公告听证会的 第六条 主管机关对第四条规定的事项组织听证的,应当公布确定利害关系人的原则。拟听证的许可事项 第七条 听证由主管机关内经办行政许可事项的机构或法制工作机构具体组织。 第八条 组织听证,应当遵循公开、公平、公正和便民的原则,充分听取公民、法人和其他组织的意见, 第九条 行政许可听证,除涉及国家秘密、商业秘密或者个人隐私外,应公开举行。 第十条 听证工作人员包括听证主持人、记录员,必要时可设一至三名听证员, 第十一条 听证主持人、记录员以及必要、的听证员由主管关指定。主管机关应当指定直接审查该行政许 第十二条 主管机关应制作《听证通知书》,并在举行听证七日前将《听证通知书》送听证会代表或许可 《听证通知书》应当载明下列事项: ( 一 ) 听证的事由与依据; ( 二 ) 听证的时间、地点; ( 三 ) 听证·主持人、记录员、听证员的姓名、职务; ( 四 ) 听证会代表或许可申请人和利害关系人的权利与义务; ( 五 ) 注意事项; 第十三条 听证所需时间不计算在行政许可办理期限内。主管机关应当将所需时间书面告知许可申请人。 第十四条 听证会按下列程序进行: ( 一 ) 听证主持人核实听证参加人的身份和到场情况, ( 二 ) 听证主持人介绍记录员、听证员的姓名、工作单位及职务,告知听证参加人的权利和义务,宣布听证开始; ( 三 ) 听证主持人宣读听证纪律和听证会场有关注意事项; ( 四 ) 审查该行政许可事项的工作人员提出审查意见并陈述理由,提供有关依据、证据等材料。 ( 五 ) 许可申请人、利害关系人提出维护其合法权益的事实、理由和依据,或者听证会代表对听证事项 ( 六 ) 有关各方进行申辩和质证; ( 七 ) 最后陈述; ( 八 ) 听证笔录交听证参加人确认无误或者补正后签字或者盖章。无正当理由又拒绝签字或者盖章的, ( 九 ) 听证主持人宣布听证结束。 第十五条 听证笔录应当载明下列内容: ( 一 ) 听证事项名称; ( 二 ) 听证主持人、记录员、听证员的姓名、职务; ( 三 ) 听证参加入的姓名或名称、地址以及职业、职务等基本情况。 ( 四 ) 听证会举行的时间、地点、方式; ( 五 ) 经办机构工作人员提出的审查意见及陈述的理由; ( 六 ) 许可申请人、利害关系人提出的事实、理由和依据,或者听证会代表发表的意见; ( 七 ) 有关各方进行申辩和质证的内容; ( 八 ) 听证参加人的签字或者盖章,或者听证参加人拒绝签字或者盖章的情况说明; ( 九 ) 听证主持人对听证活动中有关事项的处理情况; ( 十 ) 听证主持人认为需载明的其他事项。 第十六条 主管机关应当根据听证笔录作出行政许可决定,听证参加人有权查阅听证笔录。 第十七条 有下列情形之一的,可以延期举行听证: ( 一 ) 因不可抗力导致听证无法按期举行的; ( 二 ) 当事人申请延期,有正当理由的; ( 三 ) 可以延期的其他情形。 延期听证的,主管机关应当书面通知听证参加人,说明理由延期听证的情形消失后,主管机关应当在五 第十八条 有下列情形之一的,中止听证: ( 一 ) 听证主持人认为听证过程中提出新的事实、理由和依据或者提出的事实有待调查核实的; ( 二 ) 因不可抗力导致听证参加人无法继续参加听证的; ( 三 ) 应当中止听证的其他情形。中止听证的,主管部门应当书面通知听证参加人,说明理由。 中止听证的情形消失后,主管机关应当在五日内恢复听证,并书面通知听证参加人。 第十九条 有下列情形之一的,终止听证: ( 一 ) 申请人撤回听证申请或在听证过程中声明退出的; ( 二 ) 申请人无正当理由不到场的,或者未经听证主持人允许中途退场的; ( 三 ) 有权申请听证的公民死亡,没有继承人,或者继承人放弃听证权利的; ( 四 ) 有权申请听证的法人或者其他组织终止,承受其权利的法人或者组织放弃听证权利的; ( 五 ) 需要终止听证的其他情形,终止听证的,主管机关应当书面通知听证参加入。 终止听证后,由主管机关依法作出行政许可决定。 第二十条 组织听证所需经费由主管机关承担,列入主管部门预算;组织听证必需的场地、设备、工作条 第二十一条 对违反行政许可法和本规定,不履行法定告知听证义务、不举行依法或依申请应当举行的听 第二十二条 本规定自 2004 年 7 月 1 日起施行。
|