📄 selectimg.asp
字号:
<!--#include file="../fun.asp"-->
<%
filist="../../upimgbt"
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('upimgbt/"&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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -