<% Dim shishi Dim shishi_numRows Set shishi = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM dbo.News WHERE BigClassName='时事传真' AND Checked=1 ORDER BY NewsId desc" shishi.open sql,MM_conn_STRING,3,2 %> <% Dim speicialrep Dim speicialrep_numRows Set speicialrep = Server.CreateObject("ADODB.Recordset") speicialrep.ActiveConnection = MM_conn_STRING speicialrep.Source = "SELECT * FROM dbo.News WHERE BigClassName='特别报道' AND Checked=1 ORDER BY NewsId desc" speicialrep.CursorType = 0 speicialrep.CursorLocation = 2 speicialrep.LockType = 1 speicialrep.Open() speicialrep_numRows = 0 %> <% Dim zugong Dim zugong_numRows Set zugong = Server.CreateObject("ADODB.Recordset") zugong.ActiveConnection = MM_conn_STRING zugong.Source = "SELECT * FROM dbo.News WHERE BigClassName='组工信息' AND Checked=1 ORDER BY NewsId desc" zugong.CursorType = 0 zugong.CursorLocation = 2 zugong.LockType = 1 zugong.Open() zugong_numRows = 0 %> <% Dim djluntan Dim djluntan_numRows Set djluntan = Server.CreateObject("ADODB.Recordset") djluntan.ActiveConnection = MM_conn_STRING djluntan.Source = "SELECT * FROM dbo.News WHERE BigClassName='党建论坛' AND Checked=1 ORDER BY NewsId desc" djluntan.CursorType = 0 djluntan.CursorLocation = 2 djluntan.LockType = 1 djluntan.Open() djluntan_numRows = 0 %> <% Dim imgnews Dim imgnews_numRows Set imgnews = Server.CreateObject("ADODB.Recordset") imgnews.ActiveConnection = MM_conn_STRING imgnews.Source = "SELECT * FROM dbo.News WHERE SpecialName='图片新闻' AND FocusNews=1 AND Checked=1 ORDER BY UpdateTime desc" imgnews.CursorType = 0 imgnews.CursorLocation = 2 imgnews.LockType = 1 imgnews.Open() imgnews_numRows = 0 %> <% Dim imgnews1 Dim imgnews1_numRows Set imgnews1 = Server.CreateObject("ADODB.Recordset") imgnews1.ActiveConnection = MM_conn_STRING imgnews1.Source = "SELECT * FROM dbo.News WHERE SpecialName='图片新闻' AND FocusNews=1 AND Checked=1 ORDER BY UpdateTime desc" imgnews1.CursorType = 0 imgnews1.CursorLocation = 2 imgnews1.LockType = 1 imgnews1.Open() imgnews1_numRows = 0 %> <% Dim laigao Dim laigao_numRows Set laigao = Server.CreateObject("ADODB.Recordset") laigao.ActiveConnection = MM_conn_STRING laigao.Source = "SELECT * FROM dbo.News WHERE BigClassName='来稿摘编' AND goodnews=1 AND Checked=1 ORDER BY NewsId desc" laigao.CursorType = 0 laigao.CursorLocation = 2 laigao.LockType = 1 laigao.Open() laigao_numRows = 0 %> <% Dim weather Dim weather_numRows Set weather = Server.CreateObject("ADODB.Recordset") weather.ActiveConnection = MM_conn_STRING weather.Source = "SELECT * FROM dbo.News WHERE BigClassName='天气情况' ORDER BY NewsId desc" weather.CursorType = 0 weather.CursorLocation = 2 weather.LockType = 1 weather.Open() weather_numRows = 0 %> <% Dim newsmovie Dim newsmovie_numRows Set newsmovie = Server.CreateObject("ADODB.Recordset") newsmovie.ActiveConnection = MM_conn_STRING newsmovie.Source = "SELECT * FROM dbo.News WHERE BigClassName='新片介绍' ORDER BY NewsId desc" newsmovie.CursorType = 0 newsmovie.CursorLocation = 2 newsmovie.LockType = 1 newsmovie.Open() newsmovie_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 8 Repeat1__index = 0 shishi_numRows = shishi_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 8 Repeat2__index = 0 speicialrep_numRows = speicialrep_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 8 Repeat3__index = 0 zugong_numRows = zugong_numRows + Repeat3__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 8 Repeat4__index = 0 djluntan_numRows = djluntan_numRows + Repeat4__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 8 Repeat5__index = 0 newsmovie_numRows = newsmovie_numRows + Repeat5__numRows %> <% Dim MM_paramName %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("name")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="ssmain.asp" MM_redirectLoginFailed="index.asp?err=用户名或密码错误!" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn_STRING MM_rsUser.Source = "SELECT UserName, Password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.user1 WHERE UserName='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("password"),"'","''") & "'" 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 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 大东党建
 
    

    大东区位于沈阳市东部,面积51.18平方公里,人口63万,是沈阳市内面积最大的城区。
    
     大东区是沈阳市市内五城区之一。沈阳是中国辽宁省的省会,地处东北亚的心脏地带——辽宁中部城市群中心。在150公里半径范围内,分布着钢铁基地鞍山、煤炭基地抚顺、化纤基地辽阳、煤铁基础本溪、石油基地盘锦、煤粮基地铁岭、电力基地阜新等7座百万人口以上的大型工商业城市,构成了经济联系特别紧密,市场容量巨大的城市群体,不仅可为工业企业提供丰富的矿产资源,而且还是一个购买力极强的产品销售市场。
    
     大东区所在地沈阳市是中国交通最发达的地区之一,也是东北地区最大的交通枢纽。以沈阳为中心,至北京、大连、哈乐滨、抚顺、丹东高速公路网络已经建成。距营口港200公里,距大连港400公里,可与世界140多个国家和地区的港口通航。连结山海关、大连、丹东、长春、哈尔滨等地6条铁路干线汇集于此,并且与朝鲜、蒙古、俄罗斯直接相通。沈阳桃仙国际机场,是东北地区最大的枢纽机场,距大东区20公里。沈阳东站座落在区内,101条铁路专用线构成发达的货运网络。

    大东区是沈阳民族工业的发祥地,经过近百年的发展,目前已形成以汽车、飞机发动机、机械设备制造、生物制药、仪器仪表和其它机械制造业为主的庞大的产业群,是中国著名的航空发动机制造基地、数控机床生产基地、轻型汽车生产基地。

    大东区是当前沈阳市最具竞争力的工业区。区内聚集了众多优势企业,如沈阳金杯客车制造有限公司、沈阳黎明航发集团、沈阳华润压缩机有限公司、沈阳三洋空调有限公司、沈阳东芝电梯有限公司、沈阳金杯通用汽车有限公司、沈海热电厂等。同时,还吸引了

 一大批国外知名企业到大东区投资,如美国通用公司、德国宝马汽车公司、日本三菱自动车工业株式会社、沃乐玛(中国)有限公司、美国泰克公司、日本丰田通商株式会社、三洋电机有限公司和美国吉列公司等。

     大东区汽车产业已经形成一定规模。区内有四大整车制造厂——沈阳金杯客车制造有限公司、金客M1中华轿车厂——沈阳航天三菱发动机有限公司、沈阳新光华晨发动机有限公司、沈阳航天新光集团;汽车改装厂4家以及汽车零部件生产厂28家,汽车贸易、维修服务企业20家,形成了一个汽车产业集聚效应突出的城区。大东区正在规划一个集汽车生产及配送、汽车销售与服务及汽车文化社区为一体的汽车城,为汽车产业在大东区快速发展提供优质的发展环境。目前主要产品有“金杯”海狮施行车,“阁瑞斯”商务车,“中华”牌轿车、雪佛莱“开拓者”越野车、S10“皮卡”客货车,宝马3系列和5系列轿车。

    沈海现代工业示范区是沈阳市人民政府最近批准在大东区设立的产业开发区,2001年,沈海现代工业示范区内规模以上工业企业产值达到260亿元,占沈阳市规模以上工业企业产值的32%,实现利税22亿元,占全市规模工业企业的48%。其以现有的汽车制造、机械加工、电子信息技术制造、生物制药、新材料、环境保护、物流配送等企业为依托,重点发展汽车工业。

    大东区是沈阳市工业存量最大的工业区。区内可置换的与需重盘活的工业用地有500万平方米,水、煤、气、电等工业用基础设施完备,有相当丰富的工业资源尚未得到充分利用。区内有一所大学、两个国家级研究所以及众多的工业企业,培养和储备了大量专业技术人才,以及一支专业素质高、技术精湛的产业工人在军。

    大东区也将是沈阳市最适合于居住的城区之一,南北两条运河流经全区,沿岸花团锦簇,树木葱荣,景色优美,适合开发高档信宅区;特别是正在建设的大东广场,是沈阳市最大的广场,广场周边地区适合建设金融、保险、高档写字楼等间贸服务设施。除此之外,区内还拥有大片闲置的工业、仓储及生活用地可供开发利用,房地产业发展潜力巨大。

    近年来,大东区的经济走势强劲,各项事业蓬勃发展,集灿烂的历史文化积淀与现代都市气息于一体,以其深厚的工业基础、雄厚的科技实力、完善的基础设施、周到的服务体系、良好的投资环境吸引越来越多的海内外人士,成为他们事业成功、财源广进的热土。

热忱的大东人民欢迎您!

 

 
<% shishi.Close() Set shishi = Nothing %> <% speicialrep.Close() Set speicialrep = Nothing %> <% zugong.Close() Set zugong = Nothing %> <% djluntan.Close() Set djluntan = Nothing %> <% imgnews.Close() Set imgnews = Nothing %> <% imgnews1.Close() Set imgnews1 = Nothing %> <% laigao.Close() Set laigao = Nothing %> <% weather.Close() Set weather = Nothing %> <% newsmovie.Close() Set newsmovie = Nothing %>