admin_custom.asp

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

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("CusTom") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action
dim rsCusTom,strCusTom,strDCusTom

Action=Lcase(Trim(Request("Action")))
if ChannelID=0 then Cl.ShowErr("参数错误！")
Cl.Load_ChannelSetting(ChannelID)
strCusTom		= Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
ComeUrl=Trim(Request("ComeUrl"))
if ComeUrl="" then ComeUrl=Request.ServerVariables("HTTP_REFERER")
if ComeUrl="" then ComeUrl="Admin_CusTom.asp?ChannelID="&ChannelID
'FileName="Admin_CusTom.asp?ChannelID="&ChannelID
Header
%>
<form Name="form1" method="post" action="Admin_CusTom.asp?Action=save&ChannelID=<%=ChannelID%>">
<table border="0" cellspacing="1" cellpadding="3"  align="center" class="Border">
	<tr>
		<td width="100%" class="tdbg" colspan="3"><b>说明</b>：您可以添加多个，每个用“回车”分隔，请注意最后一个的后面不要“回车”！</td>
	</tr>
<%
if Action="save" then
	Dim saveDate
	strDCusTom=Split(Request("date_0"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=saveDate&"@@@"
	strDCusTom=Split(Request("date_1"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=saveDate&"@@@"
	strDCusTom=Split(Request("date_2"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=saveDate&"@@@"
	strDCusTom=Split(Request("date_3"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=saveDate&"@@@"
	strDCusTom=Split(Request("date_4"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=saveDate&"@@@"
	strDCusTom=Split(Request("date_5"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=saveDate&"@@@"
	strDCusTom=Split(Request("date_6"),vbCrlf)
	For i=0 to Ubound(strDCusTom)
		strDCusTom(i)=Trim(strDCusTom(i))
		if strDCusTom(i)<>"" then saveDate=saveDate&strDCusTom(i)
		if i < Ubound(strDCusTom) then saveDate=saveDate&"$"
	next
	saveDate=Trim(Cl.Checkstr(saveDate))
	Cl.Execute("Update Cl_Channel Set CusTom='"&saveDate&"' where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	Cl.SaveAdminLog
	Cl.OutMsg 0,"恭喜您，修改成功，按确定返回！",ComeUrl
else
	Select Case CLng(Cl.Channel.selectSingleNode("@moduleid").text)
	Case 1
		CusTom_1
	Case 2
		CusTom_2
	Case 3
		CusTom_3
	Case 4
		CusTom_4
	Case 5
		CusTom_5
	Case else
		Cl.ShowErr("请正确选择参数。")
	end Select

	if FoundErr=True then Cl.ShowErr(ErrMsg)
end if
%>
</table>
<table border="0" cellspacing="1" cellpadding="3"  align="center">
	<tr><td>
	<input type="submit" name="Submit" value="保 存 修 改">
	</td></tr>
</table>
</form>
<%
Footer

Sub CusTom_1()
%>
<tr class="tdbg" valign="top">
<td width="45%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义前缀</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_3" cols="30" rows="12" id="date_3"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(3)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_2')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_2')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="45%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义关键字</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_0" cols="30" rows="12" id="date_0"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(0)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_0')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_0')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
</tr>
<tr class="tdbg" valign="top">
<td width="45%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义作者</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_1" cols="30" rows="12" id="date_1"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(1)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_1')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_1')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="45%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义来源</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_2" cols="30" rows="12" id="date_2"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(2)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_2')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_2')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
</tr>
<%
End Sub

Sub CusTom_2()
	%>
<tr class="tdbg" valign="top">
<td width="30%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义类别选择</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_0" cols="30" rows="12" id="date_0"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(0)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_0')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_0')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="30%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义语言选择</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_1" cols="30" rows="12" id="date_1"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(1)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_1')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_1')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="30%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义授权形式</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_2" cols="30" rows="12" id="date_2"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(2)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_2')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_2')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
</tr>
<tr class="tdbg" valign="top">
<td width="30%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义平台选择</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_3" cols="30" rows="12" id="date_3"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(3)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_3')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_3')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="30%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义开发商</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_4" cols="30" rows="12" id="date_4"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(4)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_4')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_4')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="30%">
	<table border="0" align="center" cellspacing="1" cellpadding="0" class="Border">
		<tr align="center" class="title">
	  <td>自定义关键字</td></tr>
		<tr align="center" class="tdbg">
		<td>
		<textarea name="date_5" cols="30" rows="12" id="date_5"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(5)),"$")
		For i = 0 To Ubound(strDCusTom)
			Response.Write strDCusTom(i)