imageid.asp

来自「仿雅虎论坛静态生成html版 后台管理:admin/admin.asp 用户」· ASP 代码 · 共 18 行

ASP
18
字号
<head><title>头像一览表</title>
</head>
<script language="javascript">
function insertsmilie(smilieface){

	self.opener.xginfo.imageid.value=smilieface;
}
</script>
<%
 set fso = server.CreateObject("Scripting.FileSystemObject")
 set filedrive=fso.GetFolder(server.MapPath("../images/userpic"))
 dim filename
 Response.Write "<table>"
 for each filename in filedrive.Files
  %><tr><td><img src=../images/userpic/<%=filename.Name%> border=0 onload="javascript:if(this.width>150)this.width=150" onclick="insertsmilie('<%=filename.Name%>')" style="CURSOR: hand"></td></tr><%
 next
 Response.Write "</table>"
%>

⌨️ 快捷键说明

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