css_switch.asp

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

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")

color_change_to = Trim(Request("color_change_to"))

If color_change_to <> "normal" And color_change_to <> "blue" And color_change_to <> "green" Then
  Response.redirect "frame_sliderbar.asp"
  Response.End
End If

color_change_to = color_change_to&".css"
If fso.FileExists("css\save.css") = True Then
fso.DeleteFile("css\save.css")
End If
Call fso.CopyFile(Server.MapPath("css\" & color_change_to),Server.MapPath("css") & "\save.css",true)

Set fso = Nothing

Response.redirect "frame_sliderbar.asp"    '返回转到的网页
%>