fileman1.asp

来自「燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://x」· ASP 代码 · 共 41 行

ASP

41 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.net/DTD/wml_1.1.xml"> 
<wml>
<!-- #include file="conn.asp" -->
<!--#include file="admin.asp"-->
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card title="文件管理组件"><p>
<%
dim filepath
filepath=Server.MapPath("/upfile/")'文件目录
if  request.QueryString("act") = "del" Then
Dim fsod,Filedel
Filedel=filepath&"/"&request.QueryString("file")
set fsod = createobject("scripting.filesystemobject")
if (fsod.fileexists(Filedel)) then 
fsod.deletefile(Filedel)
end if
set fsod = Nothing
response.redirect "fileman.asp?sid="&SID&""
End If
Dim fs, f, f1, fc,cs,i
i=0 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(filepath) 
Set fc = f.Files 
For Each f1 in fc 
response.write  "<a href=""/upfile/"&f1.name&""">下载</a>"
response.write  " | <a href=""?sid="&SID&"&amp;act=del&amp;file="&f1.name&""">删除</a><br/>"
response.write ""&f1.name&"<br/>"
i=i+1
Next
response.write  "当前共有"&i&"个文件！<br/>"
response.write  "<a href=""index.asp?sid="&SID&""">[后台管理]</a>"
Response.Write "</p></card></wml>"
%>

fileman1.asp - 源码说明

本页面展示了「燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn」中的 fileman1.asp 源码文件，采用 ASP 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与WAP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?