%
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<%
dim yourSite
yourSite = "http://localhost/"
Session("wem") = ""
Session("mail") = ""
Session("tid") = ""
Session("SecEx") = ""
%>
新疆新捷燃气有限责任公司
| |
| |
天然气知识
CNG是压缩天然气的英文缩写:压缩天然气作为清洁环保产品,具有广阔的发展前景,目前市场销售供不应求,是国内外比较流行的一种新能源产品。建设CNG站具有比管道天然气投资风险小、便于储运、机动灵活、回报率高、见效快等特点。
压缩天然气站分为母站、常规站和子站三种,CNG母站是可供天然气储气拖车和汽车用气为一体的综合性大站。特点是加气排气量大、速度快。常规站以小汽车加气为主,储气拖车加气为辅,排气量相对母站小,加气速度慢。目前大港油田建设了母站和常规站,其设备主要由干燥系统、压缩系统、储气系统、加气系统组成。基本生产流程是将低压净化天然气经过干燥、压缩成25Mpa高压天然气销售,广泛用于没有铺设天然气管道的居民小区、学校、宾馆生活用气、企业生产和汽车用气。特别是汽车用气与汽油相比,出租车每百公里可节省资金约21元,公交车每日单车次百公里可节省资金约60元。
|
|
|
|
|
|
<%
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
%>