📄 facelist.asp
字号:
<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│ │
│ 感谢你使用 自由领域ASP+WAP同学录系统(测试版） │
│ 使用本免费源码您必须遵守以下规定 │
│ 不得公开发表代码 不得用做商业用途，不得向其他使用者收费。 │
│ │
│ 使用时，请保留此段信息，谢谢配合 │
│ │
│ 2004/12/19 │
│ │
└──────────────── http://99167.jahee.com ───┘
</per>
-->
<%
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 + -