admin_label.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 845 行 · 第 1/3 页

	<td class=tablerow2><select name="DateMode" id="DateMode">
<%
For i = 1 To 9
	Response.Write "<option value='" & i & "'"
	If i = 5 Then Response.Write " selected"
	Response.Write ">"
	Response.Write Newasp.FormatDate(Now(),i)
	Response.Write "</option>" & vbCrLf
Next

%>
          
        </select></td>
</tr>
<tr>
	<td class=tablerow1 align="right">是否新窗口打开连接：</td>
	<td class=tablerow1><select name="newindow" id="newindow">
          <option value='0' selected="selected">本窗口打开</option>
	  <option value='1'>新窗口打开</option>
        </select></td>
</tr>
<tr>
	<td class=tablerow2 align="right">列表调用样式名称：</td>
	<td class=tablerow2><input name="StyleName" type="text" id="StyleName" value="showlist" size="15" maxlength="20"></td>
</tr>
<%
If CInt(Newasp.modules) = 2 Then
%>
<tr>
	<td class=tablerow1 align="right">调用软件类型：</td>
	<td class=tablerow1><select name="softType" id="softType">
          <option value='0' selected="selected">不调用软件类型</option>
	      <option value='国产软件'>国产软件</option>
		  <option value='国外软件'>国外软件</option>
		  <option value='汉化补丁'>汉化补丁</option>
		  <option value='你的软件类型名称'>其它软件类型</option>
        </select><font color="#0066CC"></font></td>
</tr>
<%
End If
%>
<tr align=center>
	<td class=tablerow1 colspan="2"><input type=text name=SkinCode size=65 id="SkinCode"></td>
</tr>
<tr align=center>
	<td class=tablerow2 colspan="2">
		<input name="MakeJS" type="button" id="MakeJS" onclick="MakeCode();" value="&nbsp;生成<%=sModuleName%>模板标签&nbsp;" class=button> 
		<input name="Copy" type="button" id="Copy" value="&nbsp;复制到剪贴板&nbsp;" onclick="copy();" class=button>
		<input type="button" value="&nbsp;关闭窗口&nbsp;" onclick="selflabel();" class=button> 
		</td>
</tr>
</form>
</table>
<script language="JavaScript" type="text/JavaScript">
function MakeCode()
{
if(document.myform.ClassID.value=="")
{
	alert("<%=sModuleName%>分类不能指定外部栏目！");
	document.myform.ClassID.focus();
	return false;
}
if(document.myform.MaxListNum.value=="")
{
	alert("显示<%=sModuleName%>列表数不能为空！");
	document.myform.MaxListNum.focus();
	return false;
}
if(document.myform.TitleMaxLen.value=="")
{
	alert("标题名称最多字符数不能为空！");
	document.myform.TitleMaxLen.focus();
	return false;
}
if(document.myform.StyleName.value=="")
{
	alert("列表样式名称不能为空！");
	document.myform.StyleName.focus();
	return false;
}
var strCode;
<%
Select Case CInt(Newasp.modules)
	Case 1
		Response.Write "strCode=""{$ReadArticleList("";"
	Case 2
		Response.Write "strCode=""{$ReadSoftList("";"
	Case 3
		Response.Write "strCode=""{$ReadShopList("";"
	Case 5
		Response.Write "strCode=""{$ReadFlashList("";"
	Case Else
		Response.Write "strCode=""{$ReadArticleList("";"
End Select
%>
strCode+=document.myform.ChannelID.value+","
strCode+=document.myform.ClassID.value+","
strCode+=document.myform.SpecialID.value+","
strCode+=document.myform.ShowType.value+","
strCode+=document.myform.MaxListNum.value+","
strCode+=document.myform.TitleMaxLen.value+","
strCode+=document.myform.ShowClass.value+","
<%
If CInt(Newasp.modules) = 1 Then
%>
strCode+=document.myform.ShowPic.value+","
<%
End If
%>
strCode+=document.myform.ShowDate.value+","
strCode+=document.myform.DateMode.value+","
strCode+=document.myform.newindow.value+","
<%
If CInt(Newasp.modules) = 2 Then
%>
strCode+=document.myform.StyleName.value+","
strCode+=document.myform.softType.value
<%
Else
%>
strCode+=document.myform.StyleName.value
<%
End If
%>
strCode+=")}";
document.myform.SkinCode.value=strCode;
}
</script>

<%
End Sub

Private Sub Label_ImageUse()
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th colspan="2">生成<%=sModuleName%>模板图片调用标签</th>
</tr>
<form action="?action=image" method="post" name="myform" id="myform">

<tr>
	<td class=tablerow1 align="right">所属频道：</td>
	<td class=tablerow1><select  name=ChannelID size=1 onchange="javascript:submit()">
<%
Set Rs = Newasp.Execute("Select ChannelID,ChannelName,ModuleName From NC_Channel where ChannelType < 2 And ChannelID <> 4 Order By ChannelID Asc")
Do While Not Rs.EOF
%>
		<option value='<%=Rs("ChannelID")%>'<%If Rs("ChannelID") = ChannelID Then Response.Write " selected"%>><%=Rs("ChannelName")%></option>
<%
	Rs.movenext
Loop
Set Rs = Nothing
%>
	</select></td>
</tr>
<tr>
	<td class=tablerow2 align="right">所属分类：</td>
	<td class=tablerow2><select name="ClassID" id="ClassID">
          <option value="0">所有<%=sModuleName%>分类</option>
<%
	Dim strSelectClass,re
	strSelectClass = Newasp.LoadSelectClass(ChannelID)
	Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
	Re.Pattern="(value=)(.*)("" )"
	strSelectClass = Re.Replace(strSelectClass,"")
	Re.Pattern="({ClassID=)(.*)(}>)"
	strSelectClass = Re.Replace(strSelectClass,"value=""$2"">")
	Response.Write strSelectClass
	Set Re = Nothing
%>
        </select></td>
</tr>
<tr>
	<td class=tablerow1 align="right">所属专题：</td>
	<td class=tablerow1><select name=SpecialID>
	<option value="0">不选择专题</option>
<%
If ChannelID <> 0 And ChannelID <> "" Then
	Set Rs = Newasp.Execute("Select SpecialID,SpecialName from NC_Special where ChannelID="& ChannelID &" And ChangeLink=0")
	Do While Not Rs.EOF
%>
		<option value='<%=Rs("SpecialID")%>'><%=Rs("SpecialName")%></option>
<%
		Rs.movenext
	Loop
	Set Rs = Nothing
End If
%>
	</select></td>
</tr>
<tr>
	<td class=tablerow2 align="right">调用类型：</td>
	<td class=tablerow2><select name="ShowType" id="ShowType">
          <option value="0">最新<%=sModuleName%>图片</option>
          <option value='1'>推荐<%=sModuleName%>图片</option>
	      <option value='2'>热门<%=sModuleName%>图片</option>
	      <option value='9'>随机显示(SQL)</option>
        </select></td>
</tr>
<tr>
	<td class=tablerow1 align="right">最多显示多少张<%=sModuleName%>图片：</td>
	<td class=tablerow1><input name="MaxPicNum" type="text" id="MaxPicNum" value="12" size="5" maxlength="3"></td>
</tr>
<tr>
	<td class=tablerow2 align="right">每行显示多少张<%=sModuleName%>图片：</td>
	<td class=tablerow2><input name="PerRowNum" type="text" id="PerRowNum" value="26" size="5" maxlength="3"></td>
</tr>
<tr>
	<td class=tablerow1 align="right">标题名称最多字符数：</td>
	<td class=tablerow1><input name="TitleMaxLen" type="text" id="TitleMaxLen" value="26" size="5" maxlength="3"></td>
</tr>
<tr>
	<td class=tablerow2 align="right">是否新窗口打开连接：</td>
	<td class=tablerow2><select name="newindow" id="newindow">
          <option value='0' selected>本窗口打开</option>
	  <option value='1'>新窗口打开</option>
        </select></td>
</tr>
<tr>
	<td class=tablerow1 align="right">图片的宽度：</td>
	<td class=tablerow1><input name="picwidth" type="text" id="picwidth" value="120" size="5" maxlength="3"> 像素</td>
</tr>
<tr>
	<td class=tablerow2 align="right">图片的高度：</td>
	<td class=tablerow2><input name="picheight" type="text" id="picheight" value="100" size="5" maxlength="3"> 像素</td>
</tr>
<tr>
	<td class=tablerow1 align="right">是否显示<%=sModuleName%>标题名称：</td>
	<td class=tablerow1><select name="showtopic" id="showtopic">
          <option value='1'>显示</option>
	  <option value='0'>不显示</option>
        </select></td>
</tr>
<tr>
	<td class=tablerow2 align="right">是否使用幻灯片效果：</td>
	<td class=tablerow2><select name="slide" id="slide">
          <option value='0'>否</option>
	  <option value='1'>是</option>
        </select></td>
</tr>
<tr>
	<td class=tablerow1 align="right">调用简介字符长度：</td>
	<td class=tablerow1><input name="strmaxlen" type="text" id="strmaxlen" value="0" size="5"> 字节
	<font color="#0066CC">&nbsp;&nbsp;不调用简介请输入“0”</font></td>
</tr>
<tr>
	<td class=tablerow2 align="right">指定内容ID调用：</td>
	<td class=tablerow2><input name="sid" type="text" id="sid" value="0" size="5">
	<font color="#0066CC">&nbsp;&nbsp;多个ID请用英文分号“;”隔开</font></td>
</tr>
<%
If CInt(Newasp.modules) = 2 Then
%>
<tr>
	<td class=tablerow1 align="right">调用软件类型：</td>
	<td class=tablerow1><select name="softType" id="softType">
          <option value='0' selected="selected">不调用软件类型</option>
	      <option value='国产软件'>国产软件</option>
		  <option value='国外软件'>国外软件</option>
		  <option value='汉化补丁'>汉化补丁</option>
		  <option value='你的软件类型名称'>其它软件类型</option>
        </select><font color="#0066CC"></font></td>
</tr>
<%
End If
%>
<tr align=center>
	<td class=tablerow1 colspan="2"><input type=text name=SkinCode size=65 id="SkinCode"></td>
</tr>
<tr align=center>
	<td class=tablerow2 colspan="2">
		<input name="MakeJS" type="button" id="MakeJS" onclick="MakeCode();" value="&nbsp;生成<%=sModuleName%>模板标签&nbsp;" class=button> 
		<input name="Copy" type="button" id="Copy" value="&nbsp;复制到剪贴板&nbsp;" onclick="copy();" class=button>
		<input type="reset" name="button" value="&nbsp;关闭窗口&nbsp;" onclick="copy(); window.close()" class=button></td>
</tr>
</form>
</table>
<script language="JavaScript" type="text/JavaScript">
function MakeCode()
{