📄 admin_custom.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_5')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_5')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
</tr>
	<%
End Sub

Sub CusTom_3()
%>
<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>
</tr>
<%
End Sub

Sub CusTom_4()
%>
<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)
			If i < Ubound(strDCusTom) Then Response.Write Chr(10)
		Next
		%></textarea>
		<br />
		<a href="javascript:admin_Size(-5,'date_5')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_5')"><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_6" cols="30" rows="12" id="date_6"><%
		strDCusTom=split(Cl.Checkstr(strCusTom(6)),"$")
		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_6')"><img src="images/minus.gif" unselectable="on" border='0' /></a> <a href="javascript:admin_Size(5,'date_6')"><img src="images/plus.gif" unselectable="on" border='0' /></a>	  </td>
		</tr>
	</table>
</td>
<td width="30%"></td>
<td width="30%"></td>
</tr>
<%
End Sub

Sub CusTom_5()
	%>
<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%"></td>
<td width="30%"></td>
</tr>
	<%
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
上一页 12
⌨️ 快捷键说明

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