%
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") = ""
%>
新疆新捷燃气有限责任公司
|
|
|
|
先进的运营模式和装备
1、采用便于储运、机动灵活、投资少的母子站运行模式,同时辅助管道供气模式,充分满足各类用户的不同要求。
2、引进国外先进的关键设备,干燥器由PLC控制,实现无人值守全自动运行。
3、引进具有排量大、能耗低、噪音小、占地面积小、取气率高的液压平推子站技术。
4、全面推广使用以IC卡为主的生产自动化系统,持续提高零售终端信息化、智能化建设水平。
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
%>