<%@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="../bt/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 = "../bt/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="../bt/My%20webs/admin/main.asp" MM_redirectLoginFailed="../bt/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 %> 揭阳建设网
首 页 建设风采 政务资讯 业界动态 行业管理 企业展台 政策法规 建设英才 协会学会
会员中心
                    揭阳市建设局

              建筑工程施工许可证申办程序


  一、办理机构:市建设局建工科
  二、申领人:建设单位
  三、受理范围:省、市直属单位及个人,榕城区、东山区、市试验区所属单位和个人在本市区范围内依法必须申领建筑工程施工许可证的建设工程项目。
  四、申领条件:建设单位申请领取施工许可证,应当具备下列条件,并提交相应的证明文件:
  (一)已经办理该建筑工程用地批准手续。
  (二)在城市规划区的建筑工程,已经取得建设工程规划许可证。
  (三)施工场地已经基本具备施工条件,需要拆迁的,其拆迁进度符合施工要求。
  (四)已经确定施工企业。按照规定应该招标的工程没有招标,应该公开招标的工程没有公开招标或者肢解发包工程,以及将工程发包给不具备相应资质条件的,所确定的施工企业无效。
  (五)已满足施工需要的施工图纸及技术资料,施工图设计文件已按规定进行了审查。
  (六)有保证工程质量和安全的具体措施。施工企业编制的施工组织设计中有根据建筑工程特点制定的相应质量、安全技术措施,专业性较强的工程项目编制了专项质量、安全施工组织设计,并按照规定办理了工程质量、安全监督手续。
  (七)按照规定应该委托监理的工程已委托监理。
  (八)建设投资已经落实。建设工期不足一年的,到位资金原则上不得少于工程合同价的50%,建设工期超过一年的,到位资金原则上不得少于工程合同价的30%。建设单位应当提供银行出具的到位资金证明,有条件的可以实行银行付款保函或者其他第三方担保。
  (九)确定的施工企业已依法取得建筑施工安全生产许可证。
  (十)法律、行政法规规定的其他条件。
  以上资料复印件各一份(并持原件核对),同时提交复印件应按210×297mm尺寸,按上述顺序装订成册。复印件应注册原件保存单位,并加盖公章。
  五、申领程序:
  申请施工许可证,应当按照下列程序进行:
  (一)建设单位向办理机构递交《行政许可申请书》(见附件2)并领取《建筑工程施工许可证申请表》(见附件3)。
  (二)建设单位持加盖单位及法定代表人印鉴的《建筑工程施工许可证申请表》,并附本程序第四条规定的证明文件,向市建设局提出申请。
  (三)办理机构工作人员接收申请材料后,应当即时出具《行政许可申请材料接收凭证》(见附件4),并按照规定条件对申请材料进行审核,根据以下情况分别作出处理:
  1、申请人因材料不齐或者不符合法定形式,应当即时或者在五日内一次性告知申请人需要补正的全部内容,并出具加盖本行政机关专用印章的《行政许可补正材料通知书》(见附件5),逾期不告知的,自收到申请材料之日起即为受理;
  2、申请材料齐全、符合法定形式,或者申请人按要求提交全部补正材料的,应当予以受理并出具加盖本行政机关专用印章和日期的《行政许可申请受理通知书》(见附件6);
  3、申请材料存在可以当场更正的错误的,应当允许申请人当场更正;
  (四)办理机构工作人员应当对申请人提交的申请材料进行实质审查。
申请材料符合要求,办理机构工作人员应当根据审查情况提出是否准予许可的意见后,报建工科负责人复核。
  需要对申请材料的实质内容进行核实的,应当指派两名以上工作人员进行核查。核查时应当制作核查记录,载明核查的时间、地点、人员、核查情况和核查意见,并由进行核查的工作人员分别在记录上签字。
  (五)市建设局应当自受理申请之日起十五日内作出行政许可决定。
  十五日内不能作出行政许可决定的,经过市建设局负责人批准,决定延长的期限,并应当向申请人出具《延长作出行政许可决定期限告知书》(见附件7),将延长期限的理由告知申请人。最长延期不得超过十五日。
  (六)申请材料齐全、符合法定形式,能够当场作出行政许可决定的,不必向申请人出具《行政许可申请受理通知书》,应当当场作出《准予行政许可决定书》(见附件8)并发给《建筑工程施工许可证》。
  (七)市建设局对行政许可申请进行实质审查后,除当场作出行政许可决定的外,应当在法定期限内按照规定程序作出是否准予行政许可决定。
准予行政许可的,应当出具《准予行政许可决定书》;不予行政许可的,应当出具《不予行政许可决定书》(见附件9)。
  (八)办理机构应向申请人送达《准予行政许可决定书》和需要颁发的《建筑工程施工许可证》或者《不予行政许可决定书》。
  六、办理依据
  1、《中华人民共和国行政许可法》(第九届全国人大常委会第十一次会议通过);
  2、《建筑工程施工许可管理办法》(建设部令第91号);
  3、《建筑施工企业安全生产许可证管理规定》(建设部令第128号)。
  七、其它要求
  根据有关法律、法规和规范性文件的要求,建设单位必须执行工程项目基本程序。市区各建设单位要按《建设工程项目管理服务流程表》(附件1)要求办理相关手续。办理机构要按《建设工程项目管理服务流程表》,严格把关,切实提高工作效率和服务水平。
  八、监督管理
  工作人员违反本程序规定,需要追究责任的,按《揭阳市建设局行政许可过错责任追究办法》执行。
 
  附件1  建设工程项目管理服务流程表      附件2  行政许可申请书(单位用)
  附件3  建筑工程施工许可申请表        附件4  行政许可申请材料接收凭证
  附件5  行政许可补正材料通知书        附件6  行政许可证受理通知书
  附件7  延长作出行政许可决定期限告知书    附件8  准予行政许可决定书
  附件9  不予行政许可决定书