test.asp

来自「一个有用的东西 希望大家喜欢 谢谢大家对本站的支持」· ASP 代码 · 共 25 行

ASP
25 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
dim objfso,upfile1,upfiles,upname
pa=server.MapPath("system\uploadimages")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set upfile1=objFSO.GetFolder(pa)
set upfiles=upfile1.files
For Each Upname In upfile1.files
response.write ("<img src='system/uploadimages/"&upname.name&"' width=50 height=40>　　")
response.write upname.name&" "&upname.datecreated&upname.datelastaccessed&upname.size&"/b<br>"
next
set objfso=nothing
set upfiles=nothing
set upfile1=nothing
%>
<body>

</body>
</html>

test.asp - 源码说明

本页面展示了「一个有用的东西 希望大家喜欢 谢谢大家对本站的支持」中的 test.asp 源码文件，采用 ASP 编程语言编写，共 25 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?