user_facelist.asp

来自「WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼」· ASP 代码 · 共 48 行

ASP
48 行
字号 
<!--#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)&"')"">&nbsp;"
	next
%>

<%End Function%>

user_facelist.asp - 源码说明

本页面展示了「WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼」中的 user_facelist.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与WAP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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