📄 admin_custom.asp

📁 正版创力4.1SQL商业版!!!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 + -