|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。读取文件中一切文件的总数,而且可依据必要修正文件名.读取文件中一切文件的总数,而且可依据必要修正文件名.
代码以下:
<%
OnErrorResumeNext
setfso=CreateObject("Scripting.FileSystemObject")
Setuploadfolder=fso.GetFolder(server.mappath("img"))’img为指定的文件夹
setallfiles=uploadfolder.Files
ifisempty(request.querystring("act"))then
i=1
response.Write"<tablewidth=""620""border=""1""cellspacing=""0""cellpadding=""5""align=""center"">"
foreachfileiteminallfiles
sFileName=fileitem.Name
response.Write"<tr>"
response.Write"<tdwidth=""50""align=""center"">"&i&"</td>"
response.Write"<tdwidth=""450"">"&sFileName&"</td>"
response.Write"<tdwidth=""120""align=""center""><ahref=""javascript:;""onClick=""javascript:window.open(’?act=edit&filename="&sFileName&"’,’newwindow’,’height=300,width=550,top=250,left=250,toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no’)"">编纂文本文件</a></td>"
response.Write"</tr>"
i=i+1
next
response.Write"</table>"
response.Write"文件总数:"&(i-1)
endif
ifrequest("act")="Savefilename"then
setf=fso.GetFile(server.MapPath("img/"&request("ofn")))
f.Name=request("filestr")
setf=nothing
endif
ifrequest.querystring("act")="edit"then
%>
<tablealign="center"border="1"width="100%"height="100%"cellspacing="0"cellpadding="3"bordercolor="#6595d6">
<formname="form1"method="post"action="?act=Savefilename&ofn=<%=request("filename")%>">
<tr><th>编纂文本文件</th>
</tr>
<tr><td>文件名:
<textareaname="filestr"style="width:98%;height:100%;"><%=request("filename")%></textarea></td></tr>
<trheight="25"><tdalign="center">
<inputtype="submit"value="保留"><inputtype="button"value="封闭"onClick="window.close();">
</td></tr>
</form>
</table>
<%
endif
%>
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 |
|