<%@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 & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "formSubmit") Then MM_editConnection = MM_sqb_STRING MM_editTable = "sqb" MM_editRedirectUrl = "" MM_fieldsStr = "CI_name|value|CI_paperName|value|CI_paperNum|value|CI_address|value|CI_postalcode|value|CI_contactPhone|value|CI_fax|value|CI_email|value|CO_name|value|CO_code|value|CO_linkmanNameAddr|value|CO_artificialPerson|value|CO_linkmanName|value|CO_linkmanNamePhone|value|CO_fax|value|CO_linkmanNameEmail|value|IOA_contentDepict|value|IOA_comeDownOnNum|value|IOA_purpose|value|IOA_feeSign1|value|IOA_offerMode1|value|IOA_offerMode2|value|IOA_offerMode3|value|IOA_offerMode4|value|IOA_getInfoMode1|value|IOA_getInfoMode2|value|IOA_getInfoMode3|value|IOA_getInfoMode4|value|IOA_getInfoMode5|value|IOA_ohterOfferMode|value" MM_columnsStr = "xingm|',none,''|idmc|',none,''|id|',none,''|diz1|',none,''|youb|',none,''|dianh1|',none,''|chuanz1|',none,''|email1|',none,''|mingc|',none,''|daim|',none,''|diz2|',none,''|daib|',none,''|lianxr|',none,''|dianh2|',none,''|chuanz2|',none,''|email2|',none,''|miaos|',none,''|suoqh|',none,''|yongt|',none,''|feiy1|none,none,NULL|fs1|none,1,0|fs2|none,1,0|fs3|none,1,0|fs4|none,1,0|f1|none,1,0|f2|none,1,0|f3|none,1,0|f4|none,1,0|f5|none,1,0|f6|none,1,0" ' 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 %> <% Dim Rssqb Dim Rssqb_numRows Set Rssqb = Server.CreateObject("ADODB.Recordset") Rssqb.ActiveConnection = MM_sqb_STRING Rssqb.Source = "SELECT * FROM sqb ORDER BY 编号 DESC" Rssqb.CursorType = 0 Rssqb.CursorLocation = 2 Rssqb.LockType = 1 Rssqb.Open() Rssqb_numRows = 0 %> 漕泾之窗－政府信息公开
  |  上海化学工业区金山分区管理委员会  中共金山区漕泾镇委员会  金山区漕泾镇人民政府

 
首页 >> 政府信息公开
 

    

漕泾镇政府信息依申请公开


上海市金山区漕泾镇政府信息依申请公开网上申请

   
    1、受理申请机构
    本机关自2004年5月1日起正式受理上海市金山区漕泾镇人民政府信息公开申请，受理机构为漕泾镇办公室，办公地址为金山区漕泾镇张漕公路238号，办公时间为8:30-11:30，13:00-16:30（国定假日除外）。
    联系电话：021-57251476
    传真号码：021-57251877
    电子邮箱：cjzzfxxgk@sina.com
    2、申请的提出
    向本机关提出申请的，推荐填写电子版《金山区漕泾镇政府政府信息公开申请表》，具体网址为http://xxgk.jinshan.gov.cn/InfoCI.aspx?id=17；申请人填写后通过网上提交即可；申请人也可填写《上海市金山区漕泾镇政府信息公开申请表》申请表复制有效，可以在受理机构处领取，也可以在本机关网站上下载电子版，具体网址为http://www.caojing.com/ZFXXGK/zfxxgk.htm。
    为了提高处理申请的效率，申请人对所需信息的描述请尽量详尽、明确；若有可能，请提供该信息的标题、发布时间、文号或者其他有助于本机关确定信息载体的提示。申请人能够根据《目录》事先确定所需信息的索取号的，本机关将当场答复或者立即答复予以公开。。
   （1）通过互联网提出申请
    申请人可以在金山区人民政府网站上填写电子版《金山区漕泾镇政府政府信息公开申请表》，具体网址为http://xxgk.jinshan.gov.cn/InfoCI.aspx?id=17；申请人填写后通过网上提交即可。
   （2）书面申请
    申请人通过信函方式提出申请的，请在信封左下角注明“政府信息公开申请”的字样。申请人通过电报、传真方式提出申请的，请相应注明“政府信息公开申请”的字样。
    3、申请的处理
    本机关收到《申请表》后，将进行登记。并在登记之日起15个工作日内作出下列答复：
   （1）属于公开范围的，将告知申请人可以获得该政府信息的方式和途径；
   （2）属于免予公开范围的，将告知申请人不予公开的理由；
   （3）不属于本机关公开范围的，将告知申请人该信息的掌握机关及联系方式；
   （4）申请公开的政府信息不存在的，将告知申请人。
    本机关处理政府信息公开申请的流程可以参见以下流程图：



    4、收费标准
    本机关依申请提供政府信息的收费标准为：

费用项目
费用分项
收费标准
单位
备注
信息检索费
检索费
5.0
元/件

信息介质

及制作费
复印费（含纸张）
A4: 0.2
A3: 0.4
元/张
黑白
A4: 1.0
A3: 2.0
元/张
彩色
打印费（含纸张）
A4: 0.5
元/张
黑白
A4: 0.6
元/张
彩色
磁盘费
3.0
元/张
光盘费
2.0
元/张
信息传递费
邮寄费
按国家发改委和邮政局规定的资费标准计收
递送费
按市场价格计收

说明：
    1、该收费标准经市财政和价格管理部门确定，收取的费用全部上缴财政。
    2、申请人申请减免费用的，届时请提供相关证明。    

 


   
 
     
     
上海市金山区漕泾镇人民政府   主办
Copyright 2003 CAOJING All Rights Reserved.
<% Rssqb.Close() Set Rssqb = Nothing %>