editsave.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 17 行

<%if session("currentpath")="" or session("yyj_name")="" then
   response.redirect "error.asp"
end if
url=request.form("zipath")
url=session("currentpath")&url
ly=request.form("con")
%>
<%Dim fso, txtfile
    Set fso = CreateObject("scripting.filesystemobject")
    Set txtfile = fso.CreateTextFile(url, True)
    txtfile.Write (ly)
    txtfile.Close%>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
alert("保存成功!");
window.close();
</script>