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