%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
dim yourSite
yourSite = "http://www.xjcng.com/"
Session("wem") = ""
Session("mail") = ""
Session("tid") = ""
Session("SecEx") = ""
%>
新疆新捷燃气有限责任公司
| |
时间 |
公司发展轨迹 |
| 2000年3月 |
新疆新捷股份有限公司天然气事业部成立,标志着新捷公司正式进入天然气下游产品开发领域。 |
| 2000年9月 |
新捷公司第一座加气站---克拉玛依加气站建成投产 |
| 2001年11月 |
新捷公司在乌鲁木齐地区投产一母五子(一座母站、五座子站) |
| 2002年11月 |
新捷燃气704-石河子管线和石河子门站竣工通气。 |
| 2003年3月 |
重组新疆杜派克清洁能源有限公司资产和业务,成立新疆新捷燃气有限公司,通过市场整合,一举成为全疆最大的车用燃气经销商。 |
| |
新疆新捷燃气有限责任公司进行增资扩股,引入中油股份新疆油田公司资金,增资后公司资本实力进一步状大,并全面进入天山北坡经济带车用、工业及民用天然气市场的拓展新阶段。 |
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
|
|
|
|
<%
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
%>