selectimg.asp

来自「这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己」· ASP 代码 · 共 45 行

ASP
45 行
字号 
<!--#include file="../fun.asp"-->
<%
filist="../../upimgsys"
call dir(filist)   '设置选择哪一目录下的文件
filelist=session("dir")

%>
<HTML><HEAD><TITLE>选择图片</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>TD {
	FONT-SIZE: 10.8pt
}
BODY {
	FONT-SIZE: 10.8pt
}
</STYLE>

<script language="javascript">
function selimg(filename)
 {
window.returnValue=filename;
window.close(); 
 }
</SCRIPT>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY bgColor=menu>
<DIV align=center>
<p align="center">
<CENTER><BR>
<TABLE border=0 cellPadding=0 cellSpacing=10 >
<%
for i=0 to 349
  
if filelist(i,2)="" then exit for
lr= exname(filelist(i,2))
lr=ucase(lr)
if lr="GIF" OR LR="JPG" OR LR="BMP" THEN
Response.Write"  <TR>"
Response.Write"    <TD   align='center'><a href='"&filist&"\"&filelist(i,2)&"'>"&filelist(i,2)&"</a><br><input onclick="&chr(34)&"selimg('upimgsys/"&filelist(i,2)&"')"&chr(34)&" type='button' value='选择' name='B3' style='line-height: 100%'>"
Response.Write"    </TD></tr>"
END IF
next
%>

 </TABLE></CENTER></DIV></BODY></HTML>

selectimg.asp - 源码说明

本页面展示了「这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己的网站」中的 selectimg.asp 源码文件，采用 ASP 编程语言编写，共 45 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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