<% Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <% dim yourSite yourSite = "http://localhost/" Session("wem") = "" Session("mail") = "" Session("tid") = "" Session("SecEx") = "" %> 新疆新捷燃气有限责任公司
 


工业用天然气项目实施案例
管道工业用气项目：
　　1、玛纳斯工业园用气项目于2004年6月20日通气。项目一期用气量500万方/年，二期用气量1000万方/年。

　　2、石河子天业化工园输配工程项目于2004年10月1日通气。项目一期用气量480万方/年，二期用气量960万方/年。
　　 3、乌鲁木齐头屯河工业园一、二期天然气输配工程已完成，即将开发三、四期输配管网工作。



CNG工业用气项目：
　　 1、新疆西部建设股份公司锅炉用气项目（已开发）；
　　 2、新疆西域药业公司锅炉用气项目（已开发）；
　　 3、自治区肿瘤医院CNG用气项目；　　
　　 4、赛博特汽车城CNG；
　　 5、华春制药CNG。
<% function getGRSN() dim theGRSN Randomize theGRSN = Int((9999999 * Rnd) + 1) getGRSN = "GRSN=" & CStr(theGRSN) end function function createRnd() dim retval retval = getGRSN() if Len(retval) > 4 then retval = Right(retval, 4) end if if Left(retval, 1) = "0" then retval = "5" & Right(retval, 3) end if createRnd = retval end function function strDecode(sd_Data, sd_bassnum) dim sd_vChar dim sd_NewData dim sd_TempChar sd_vChar = 1 do if sd_vChar > Len(sd_Data) then exit do end if sd_TempChar = CLng(Mid(sd_Data, sd_vChar, 5)) sd_TempChar = ChrW(65535 + sd_bassnum - sd_TempChar) sd_NewData = sd_NewData & sd_TempChar sd_vChar = sd_vChar + 5 loop strDecode = sd_NewData end function %>