<%@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 webs/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 webs/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 webs/admin/main.asp" MM_redirectLoginFailed="../My webs/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 %> 揭阳建设网
首 页 建设风采 政务资讯 业界动态 行业管理 企业展台 政策法规 建设英才 协会学会
会员中心
      当前位置:首页 > 政务资讯 > 表格下载专区
政务资讯 首页
通知公告
重要办事结果
办事指南
统计资料
资料下载
投诉咨询
机构设置与职责
各区县建设局信息
服务承诺


下载说明 :下面链接的文件是Word2003的文件,如果直接点击会调用Word程序并打开文件,为了方便使用,请在下面的链接上右击鼠标,在弹出的菜单中选择“目标另存为(A)…”,然后选择硬盘中的一个位置,按“保存”,就可以将Word文件下载到您的电脑中了。

序号
表格名称
科(室)
1
物业管理企业资质申报表
房管科
2
评估机构新设立申报表
3
评估机构定级申报表
4
房地产资质申报表
5
估价师续期注册申请表
6
估价师变更注册申请表
7
行政许可申请书(单位用)
8
燃气资质年检表
城建科
9
燃气企业经营许可证年检表
10
燃气企业资质及许可证申报资料一览表
11
施工
企业
进揭建筑施工企业备案资料一览表.doc
建工科
进揭建筑施工企业备案申请表.doc
外来施工企业单项工程备案申请表.doc
外来企业授权委托书.doc
外来企业维护市场秩序承诺书.doc
监理
企业
进揭监理企业备案资料一览表.doc
进揭监理企业备案申请表.doc
外来监理单位承接单项工程备案登记表.doc
外来企业授权委托书.doc
外来企业维护市场秩序承诺书.doc
招标
代理
机构
进揭招标代理机构备案资料一览表.doc
进揭招标代理机构备案申请表.doc
外来企业维护市场秩序承诺书.doc
建筑工程施工许可申请表
申请建筑工程施工许可证提供资料一览表
12
2006年全国村镇统计年报系统7.0.0版  
13
2006年全国城市(县城)统计年报系统7.0.2版  
14
2006年人事统计软件与表样及有关材料(20070111)
人事科
15
揭阳市建筑节能设计审查备案表
建筑节能
17
揭阳市建筑节能工程竣工验收备案表
18
   
19
   
20
   
关于网站 | 联系我们 | 使用帮助 | 网络服务 | 保密协议 |  版权声明
主办:揭阳市建设局    承办:揭阳市建瓴建设信息中心   协办:揭阳市建筑业协会
Copyright © 2004 2005.  电话:0663-8268835  传真:0663-8268835