selectimage.asp

来自「企业管理系统erp商业源码,功能强大」· ASP 代码 · 共 43 行

ASP
43 行
字号 
<%''Option Explicit%>
<html>
<head>
<title>Select Local Image</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="global.css" type="text/css">
<SCRIPT LANGUAGE=JavaScript FOR=ImageList EVENT=onclick>
<!--
window.returnValue = "images/" + event.srcElement.title;
window.close();
// -->
</SCRIPT>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center" class="body">
<p><b>Simply click on an image to copy it to the IFrame</b></p>
<p><font color="#ff0000"><b>Make sure you have clicked in the IFrame before inserting an image, otherwise nothing will happen.</b></font></p>
<table border="1" cellpadding="2" cellspacing="0" id="ImageList">
<%
Dim objFSO
Dim objFolder
Dim objFile

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(Server.MapPath("images"))
		For Each objFile in objFolder.Files
%>
<tr>
	<td><a href="#">
	<img src="<%="images/" & objFile.Name%>" title="<%=objFile.Name%>" border="0"></a></td>
</tr>
<%
		Next
	Set objFolder = Nothing
Set objFSO = Nothing
%>
</table>
</div>
<p>&nbsp;</p>
</body>
</html>

selectimage.asp - 源码说明

本页面展示了「企业管理系统erp商业源码,功能强大」中的 selectimage.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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