📄 user_selectcustom.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序

💻 ASP

字号:

<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="Inc/Function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="generator" content="Aspoo" />
<link rev="made" href="mailto:info@aspoo.cn" />
<title>自定义选择</title>
<base target="_self" />
<link href="../Skins/Css/User.Css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
<!--
function SetReturn()
{
	var Val="";
	var obj=document.getElementById("CusTomItem");
	for (var i=0;i<obj.length;i++){
		if (obj.options[i].selected){
			if (obj.options[i].value!="")
			{
			Val += obj.options[i].value;
			Val += "|";
			}
		}
	}
	Val=Val.substr(0,Val.lastIndexOf("|"));
	window.returnValue=Val;
	window.close();
}
//-->
</script>
</head>
<body>
<table border="0" width="100%" cellspacing="1" cellpadding="0" class="border">
<%
Cl.Get_WebSetting
if Not Cl.ChkUserLogin then
	Cl.ShowErr("<li>以下操作需要登录后方或进行，您未登录。</li><li>请点击<a href='LogIn.asp' target='_Top'>这里登录</a>。")
end If
Dim IsMore
Dim ChannelID,n,i
Dim ArrCusTom,ArrItem,ArrItem0
ChannelID	= Cl.GetClng(Request("ChannelID"))
If ChannelID=0 Then
	Cl.ShowErr("<li>请指定频道ID。")
End if
n			= Cl.GetClng(Request("n"))
IsMore		= Cl.GetClng(Request("more"))
Cl.Load_ChannelSetting(ChannelID)
ArrCusTom	= Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
If n>UBound(ArrCusTom) Then n=UBound(ArrCusTom)
		ArrCusTom(1)="佚名$"&Cl.MemberName&"|"&Cl.User_Info(7)&"$"&ArrCusTom(1)
		ArrCusTom(2)="网络|"&Cl.Web_Info(4)&"$"&Cl.Web_Info(0)&"|"&Cl.Web_Info(4)&"$"&ArrCusTom(2)
ArrItem		= Split(ArrCusTom(n),"$")
%>
	<tr class="tdbg">
	<td><select id="CusTomItem" size="2" <%If IsMore=1 then%>multiple="multiple"<%End if%> style="width:100%;height:295px;" ondblclick="SetReturn();">
	<%
	For i=0 To UBound(ArrItem)
	ArrItem0=split(arritem(i),"|")(0)
	Response.write "<option value='"&ArrItem(i)&"'>"&ArrItem0&"</option>"
	Next
	%>
	</select></td>
	</tr>
	<tr class="tdbg">
	<td align="center">
	<input type="button" value="确定" onclick="SetReturn();" />&nbsp;&nbsp;
	<input type="button" value="取消" onclick="window.close()" /></td>
	</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -