%
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") = ""
%>
新疆新捷燃气有限责任公司
| |
| 美化家园 还我蓝天
2004年3月26日,公司总经办、人力资源部组织青年员工参加了自治区环保局组织的志愿者植树活动。3月26日清晨,公司 20名员工来到位于乌鲁木齐县亚心广场,与来自自治区环保局及新疆大学、新疆师范大学、新疆农业大学的环保志愿者们一起参加了植树公益活动。自治区环保局王副局长做了重要的讲话,新疆大学学生代表也发了言。这次活动的主题是绿色中国筑长城__心系亚心新疆环保志愿者行动,目的是号召全社会来关注环境,建造绿色地球城。虽然刚下过一场大雪,温度较低,但是大家却情绪高涨,在工作人员的安排下,我们很快打扫完了自己的卫生区,作为从事首府“蓝天工程”事业的公司,通过这次志愿者活动,使我们了解到美化环境、绿化祖国的重要性,更为我们所从事的行业,所付出的劳动感到无比荣幸。为了自然的和谐,让我们共创美好家园。 |
|
|
|
|
<%
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
%>