www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > admin/admin_edit_txt.asp

    <!--#INCLUDE VIRTUAL="/comm.asp"-->
<%
myadmin()
url = request.Form("url")
%>

<%
Set fso = Server.CreateObject("scripting.FileSystemObject")
Set fileObj = fso.opentextfile(server.mappath(url),1,true)
filecontent = fileObj.readall
%>
<form name="form1" method="post" action="admin_edit_txt_update.asp">
  <textarea name="content" rows="20" style="width:99%;"><%=filecontent %></textarea>
  <input type="submit" name="Submit" value="提交">
  <input type="reset" name="Submit2" value="重置">
  <input name="url" type="hidden" id="url" value="<%=url %>">
</form>