📄 user_facelist.asp
字号:
<!--#include file=INC/skin.asp-->
<%
dim const_txl_HomeUrl,errstr
errstr=""
const_txl_HomeUrl=""
opendatabase
%>
<html>
<head>
<title>
<%=const_txlname%>-选择头像
</title>
<script>
function selectpic(pic){
opener.document.txlfrm.faceimg.src="<%=const_txl_HomeUrl&const_FaceUploadurl%>"+pic
opener.document.txlfrm.txl_userpic.value=pic
opener.document.txlfrm.txl_FaceUrl.value="<%=const_FaceUploadurl%>"+pic
//alert('选择成功！')
self.close()
}
</script>
</head>
<body>
<div align="center" style="font-size:12px;color:#ff0000"><B>请选择头像，双击即可</B>
<%DisplayFacelist
closedatabase
%>
<br>
<a href="javascript:;" onclick="javascript:self.close()"><font style="font-size:12px;TEXT-DECORATION: none;color:gray">【关闭窗口】</font></a></div>
</body>
</html>
<%
Function DisplayFacelist
dim i,rs,faceurl
on error resume next
set rs=conn.execute ("select faceurl from config where id=1")
faceurl=rs(0)
rs.close
set rs=nothing
faceurl=Split(faceurl,"|")
for i=0 to ubound(faceurl)-1
if i mod 10 =0 then Response.Write("<br>")
Response.write "<img src='"&const_txl_HomeUrl&const_FaceUploadurl&faceurl(i)&"' style='cursor:hand' onDblClick=""selectpic('"&faceurl(i)&"')""> "
next
%>
<%End Function%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -