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

揭 阳 市 概 况

    揭阳市位于广东省东南部，地跨东经 115 °36 ˊ至

116 ° 37 ˊ 39" ，北纬 22 ° 53 ˊ至 23 °46 ˊ

27" 。北靠兴梅，南濒南海，东邻汕头、潮州，西接汕尾

。陆地面积 5240.5 平方公里。大陆海崖线长 82 公里 ，

沿海岛屿 30 多个；内陆江河主要有榕江、龙江和练江三

大水系。

 

    揭阳地势自西向东倾斜，低山高丘与谷地平原交错相间，分布不均，西北部和西南部多为丘陵、山地，

中部、南部和东南部都是广阔肥沃的榕江冲积平原和滨海沉积平原。素称“鱼米之乡”。至 1999 年底，全市

耕地面积（包括水田旱地） 9.77 万公顷，占总面积的 18.8 ％。

 

    揭阳届亚热带季风性湿润气候，日照充足，雨量充

沛，终年无雪少霜。年平均气温 21.4C ，平均降水量

1723 毫米 。夏秋间常受强热带风暴袭击，有时因季

风活动反常或寒潮侵袭，会出现冬春干旱或早春低温阴

雨天气。

 
    揭阳自然资源比较丰富。全市河流总长 1097.5 公里 ，年均径流量 62 亿立方米。水力理论蕴

藏量 44.87 万千瓦，其中可开发装机 16.22 万千瓦，约占理论蕴藏量的 36.2 ％。矿产资源丰富

，主要有锡、钨、铜、铁、金和甲长石、花岗石、稀土、瓷土等。全市现有森林蓄积量 325. 5 万

立方米 ， 森林 覆盖率46.9 ％。植物种类 1130 多种，其中稀有植物 20 多种，如乌相、桧树等

。珍稀动物 15 多种，如巨晰（五爪金龙）、大鲵（娃娃鱼）、穿山甲等。

                                                           资料来源：《揭阳市情手册》（2000年版）
关于网站 | 联系我们 | 使用帮助 | 网络服务 | 保密协议 |  版权声明 
主办:揭阳市建设局    承办:揭阳市建瓴建设信息中心   协办:揭阳市建筑业协会
Copyright @ 2004 2005.  电话：0663-8268835  传真：0663-8268835