FileSystemObject组件新建读取添加修改删除功能实例

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>











<%
read="michael.txt"
'获取文件真实路径
read=LEFT(Server.MapPath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.MapPath(Request.ServerVariables("PATH_INFO")),"")) & read
'response.write "文件路径:" & read & "
" '输出文件真实路径
%>

---

<%if request.querystring("type")="crea" then%>

请输入文件名 : .txt

请输入文件内容:

<%end if%>
<%if request.querystring("type")="add" then%>