selectimg.asp

来自「ASP网站源代码。」· ASP 代码 · 共 52 行

ASP
52 行
字号 
<!--#include file="../../fun.asp"-->
<%
call dir("../../../FICE/SYSTEM")
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 6.0" name=GENERATOR></HEAD>
<BODY bgColor=menu background="../../img/gamebg.gif">
<DIV align=center>
<p align="center">
<CENTER><BR>
<TABLE border=0 cellPadding=0 cellSpacing=10 ><tr><td>
<%
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" <table><tr>"
for ii=1 to 6
i=i+1
if filelist(i,2)="" then exit for
Response.Write "<td>   "
Response.Write"    <table  bgcolor='#c0c0c0' bordercolorlight='#000000' bordercolordark='#FFFFFF'  border='1' cellPadding='0' cellSpacing='4'><tr><td  valign='middle' align='center'><IMG onclick="&chr(34)&"selimg('fice/SYSTEM/"&filelist(i,2)&"')"&chr(34)&"  SRC='../../../FICE/SYSTEM/"&filelist(i,2)&"'></td></tr></table>"
Response.Write "</td> "
next
Response.Write"</tr></table>"
END IF
next
%>
</td></tr>
 </TABLE></CENTER></DIV></BODY></HTML>

selectimg.asp - 源码说明

本页面展示了「ASP网站源代码。」中的 selectimg.asp 源码文件，采用 ASP 编程语言编写，共 52 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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