%
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") = ""
%>
新疆新捷燃气有限责任公司
| |
| |
|
人类利用能源的历史已经走过了薪柴、煤炭、石油三个时代,知识经济和可持续发展的要求,都极大推动了世界能源结构演变的进程,人类将进入天然气时代,利用天然气是当今世界能源发展的潮流。全面开发和推动对环境友好的天然气产业,是公司崇高而远大的理想,我们感到无比的荣幸和自豪。公司将在促进能源与环境的和谐,为实现用户、企业和社会共同利益的进程中,努力打造行业一流品牌公司,为用户提供持续稳定的优质产品和服务,不断寻求更大的发展空间,促进绿色能源产业的可持续发展。
让我们为共有一片蓝天携起手来!
董事长签字: |
|
总经理签字: |
 |
|
|
|
|
|
|
<%
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
%>