cr_info.asp

易方4.0程序+邮局接口+序列号+销售系统

<%
If session("SessLogin")<>"EfsVhostAdminLoginTrue" then
	Response.redirect "login.asp"
	Response.End
End if

Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Gsname = Trim(Request("Gsname"))
Gsdz = Trim(Request("Gsdz"))
Gstel = Trim(Request("Gstel"))
GsFax = Trim(Request("GsFax"))
Gsmail = Trim(Request("Gsmail"))
Gsmail2 = Trim(Request("Gsmail2"))
Gsmail3 = Trim(Request("Gsmail3"))
GsQQ = Replace(Trim(Request("GsQQ")),vbcrlf,"")
Gsqu = Trim(Request("Gsqu"))
GsYOU = Trim(Request("GsYOU"))
Gswz = Trim(Request("Gswz"))
Gswzname = Trim(Request("Gswzname"))

'If fso.FileExists("css\save.css") = True Then
'fso.DeleteFile("css\save.css")
'End If

str = "<%" &chr(10)
str = str & "'下面配置网站基本信息  如果没有， 请把内容留空   例： Const  Gsname=""" &chr(10)
str = str & "Const  Gsname="""&Gsname&"""" &chr(10)
str = str & "Const  Gsdz="""&Gsdz&"""" &chr(10)
str = str & "Const  Gstel="""&Gstel&"""" &chr(10)
str = str & "Const  GsFax="""&GsFax&"""" &chr(10)
str = str & "Const  Gsmail="""&Gsmail&"""" &chr(10)
str = str & "Const  Gsmail2="""&Gsmail2&"""" &chr(10)
str = str & "Const  Gsmail3="""&Gsmail3&"""" &chr(10)
str = str & "Const  GsQQ="""&GsQQ&"""" &chr(10)
str = str & "Const  Gsqu="""&Gsqu&"""" &chr(10)
str = str & "Const  GsYOU="""&GsYOU&"""" &chr(10)
str = str & "Const  Gswz="""&Gswz&"""" &chr(10)
str = str & "Const  Gswzname="""&Gswzname&"""" &chr(10)
str = str & "%"
str = str & ">"

Logo_file="..\inc_info.asp"
Newfile = Server.MapPath(logo_file)
	Set myFile=fso.CreaTetextFile(newfile)
	MyFile.WriteLine str
	MyFile.close

Set Fso = Nothing

Call ShowErMsgSelSucc("修改成功！","Sys_Info.asp")

Function ShowErMsgSelSucc(ErMsg,GoUrl)
	Response.Write "<script language='JavaScript'>alert('"&ErMsg&"');window.location='"& GoUrl &"';</script>"
	Response.End
End Function

%>