📄 touxiang.asp
字号:
<html>
<head>
<title>头像图片(点击图片选择)</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
function seltx(url)
{
self.opener.document.mform.touxiang.value=url;
window.close()
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim objFSO,objFolder,objFile
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objFolder=objFSO.GetFolder(Server.MapPath("touxiang"))
For Each objFile in objFolder.Files
if JudgeType(objFile.Name)=true then
%>
<img src="touxiang/<%=objFile.Name%>" border=0 onClick="seltx('touxiang/<%=objFile.Name%>')" style="CURSOR: hand">
<%
'if (i mod 5)=0 then response.Write("<br>")
end if
Next
set objFSO=nothing
set objFolder =nothing
function JudgeType(filename)
dim filetype
filetype=right(filename,len(filename)-InStrRev(filename,"."))
if filetype="gif" or filetype="jpg" then
JudgeType=true
else
JudgeType=false
end if
end function
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -