📄 admin_class.asp
字号:
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>显示状态：</strong></td>
<td> <select size="1" name="SD">
<option value="0" <%If rs("分类状态")=0 Then%>selected<%End if%>>开放</option>
<option value="1" <%If rs("分类状态")=1 Then%>selected<%End if%>>锁定</option>
</select> 说明：当你选择隐藏时，这个栏目就不在会前台页面显示！</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds'>
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>打开方式：</strong></td>
<td> <select size="1" name="OpenType">
<option value="1" <%If rs("打开方式")=1 Then%>selected<%End if%>>新窗口</option>
<option value="0" <%If rs("打开方式")=0 Then%>selected<%End if%>>原窗口</option>
</select> [需要在模板中应用标签才真正有效]
</td>
</tr>
</table>
</td>
</tr>
<%
Dim ClassDir_A,ClassDir_B,ClassDir_C,ClassDir_D
If rs("链接属性")="00" Then
ClassDir_A=" checked"
ClassDir_C="none"
ClassDir_D=""
Else
ClassDir_A=""
ClassDir_B=" checked"
ClassDir_C=""
ClassDir_D="none"
End if%>
<tr class='KenQiao_Net_ds'>
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>栏目类型：</strong></td>
<td>
<input name='ClassDir' type='radio' value='A' onclick="document.all.K_1.style.display='';document.all.K_2.style.display='';document.all.K_3.style.display='';document.all.K_4.style.display='';document.all.K_5.style.display='';document.all.K_6.style.display='';document.all.K_7.style.display='';document.all.K_9.style.display='';document.all.K_10.style.display='';document.all.K_11.style.display='';document.all.K_8.style.display='none';"<%=ClassDir_A%>> 内部栏目
<input name='ClassDir' type='radio' value='B' onclick="document.all.K_1.style.display='none';document.all.K_2.style.display='none';document.all.K_3.style.display='none';document.all.K_4.style.display='none';document.all.K_5.style.display='none';document.all.K_6.style.display='none';document.all.K_7.style.display='none';document.all.K_9.style.display='none';document.all.K_10.style.display='none';document.all.K_11.style.display='none';document.all.K_8.style.display='';"<%=ClassDir_B%>> 外部栏目
请看底部的说明！
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_11 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>每页显示小说：</strong></td>
<td> <select size="1" name="XSFY">
<%Dim XSFY_I
For XSFY_I=1 To 40%>
<option value="<%=XSFY_I%>"<%If XSFY_I=Rs("每页显示小说") Then%> selected<%End if%>><%=XSFY_I%></option>
<%Next%>
</select> 篇
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_1 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>保存方式：</strong></td>
<td>
<input name='ClassTXT' type='radio' value='0'<%If rs("保存方式")=0 Then%> checked<%End if%>> 入库保存
<input name='ClassTXT' type='radio' value='1'<%If rs("保存方式")=1 Then%> checked<%End if%>> TXT保存
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_2 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>TXT路径：</strong></td>
<td><input name="TXTUrl" type="text" maxlength="50" class="textarea" id="TXTUrl" size="30" value="<%=rs("TXT路径")%>"><input name="YTXTUrl" type="hidden" id="TXTUrl" value="<%=rs("TXT路径")%>" />
[<a target='_blank' href=http://www.kenqiao.net/article.asp?id=16><strong><font color="#FF0000">商业版优势</font></strong></a>]</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_9 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>keywords：</strong></td>
<td><input name="keywords" type="text" maxlength="100" class="textarea" id="keywords" size="40" value="<%=rs("keywords")%>"> 用英文“,”号隔开，下同</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_10 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>description：</strong></td>
<td><input name="description" type="text" maxlength="100" class="textarea" id="description" size="40" value="<%=rs("description")%>"></td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_3 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>定义模板：</strong></td>
<td> <select size="1" name="MB">
<option value="00">系统默认模板</option>
<%Dim getfolders_i
for getfolders_i=0 to ubound(split(getfolders("../template/"),","))-1%><option value="<%=split(getfolders("../template"),",")(getfolders_i)%>"<%if trim(rs("生成模板"))=trim(split(getfolders("../template"),",")(getfolders_i)) then%> selected<%end if%>><%=split(getfolders("../template"),",")(getfolders_i)%></option><%next%></select> 说明：选择了默认，系统将会采用基本设置中的模板！</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_4 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>页面格式：</strong></td>
<td>
<input name='ClassSC' type='radio' value='0'<%If rs("文件扩展名")=0 Then%> checked<%End if%>> .Asp [不生成]
<input name='ClassSC' type='radio' value='1'<%If rs("文件扩展名")=1 Then%> checked<%End if%>> .Htm
<input name='ClassSC' type='radio' value='2'<%If rs("文件扩展名")=2 Then%> checked<%End if%>> .HtmL
<input name='ClassSC' type='radio' value='3'<%If rs("文件扩展名")=3 Then%> checked<%End if%>> .SHtm
<input name='ClassSC' type='radio' value='4'<%If rs("文件扩展名")=4 Then%> checked<%End if%>> .SHtmL
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_5 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>分类列表文件：</strong></td>
<td>
<input name='ClassHtml' type='radio' value='Html/List_{$栏目编号}{$分页编号}{$页面格式}'>模式一
<font color='blue'>例：XuanHuan/Html/List_1.html（分类首页采用 Inde.页面格式 下同）</font><br>
<input name='ClassHtml' type='radio' value='List_{$栏目编号}{$分页编号}{$页面格式}'>模式二
<font color='blue'>例：XuanHuan/List_1.html</font><br>
<input name='ClassHtml' type='radio' value='自定义' checked>自定义模式（可任意定义)
{$分类英文简称}/<input size="40" value="<%=rs("分类生成模式")%>" name="ClassHtmlurl" maxlength='255'>.{$页面格式}</font><Br> <font color='blue'>例：{$分类英文简称}/{$栏目编号}{$分页编号}{$页面格式}</font>
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_6 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>小说介绍文件：</strong></td>
<td>
<input name='XShtml' type='radio' value='Html/{$小说编号}{$页面格式}'>模式一
<font color='blue'>例：XuanHuan/Html/12.html</font><br>
<input name='XShtml' type='radio' value='{$小说编号}{$页面格式}'>模式二
<font color='blue'>例：XuanHuan/12.html</font><br>
<input name='XShtml' type='radio' value='自定义' checked>自定义模式（可任意定义)
{$分类英文简称}/<input size="40" value="<%=rs("小说生成模式")%>" name="XShtmlurl" maxlength='255'>.{$页面格式}<Br> <font color='blue'>例：{$分类英文简称}/{$小说编号}{$页面格式}</font></font>
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_7 style="display:<%=ClassDir_D%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>章节内容文件：</strong></td>
<td>
<input name='ZJhtml' type='radio' value='Html/{$小说编号}/{$章节编号}{$页面格式}'>模式一
<font color='blue'>例：XuanHuan/Html/12/21.html</font> 章节列表将采用 Index 显示<br>
<input name='ZJhtml' type='radio' value='{$小说编号}/{$章节编号}{$页面格式}'>模式二
<font color='blue'>例：XuanHuan/12/21.html</font><br>
<input name='ZJhtml' type='radio' value='自定义' checked>自定义模式（可任意定义)
{$分类英文简称}/<input size="40" value="<%=rs("章节生成模式")%>" name="ZJhtmlurl" maxlength='255'>.{$页面格式}<Br> <font color='blue'>例：{$分类英文简称}/{$小说编号}_{$章节编号}{$页面格式}</font></font>
</td>
</tr>
</table>
</td>
</tr>
<tr class='KenQiao_Net_ds' ID=K_8 style="display:<%=ClassDir_C%>">
<td colspan='6'>
<table border='0' cellpadding='0' cellspacing='0' width='100%' >
<tr>
<td width='100' align='center'><strong>外部链接：</strong></td>
<td>
<input name='ClassUrl' type='text' id='ClassUrl' value="<%If rs("链接属性")="00" Then
response.write "Http://"
Else
response.write rs("链接属性")
End if%>" size='30' maxlength='200'> <font color='#FF0000'>外部栏目的链接地址</font> 例如：http://www.KenQiao.Net</td>
</tr>
</table>
</td>
</tr>
<tr class=KenQiao_Net_qs>
<td align="center">
<input name="Submit" type="submit" class="button" id="Submit" value="确定修改">
<input name="Reset" type="reset" class="button" id="Reset" value="清空重填"> </td>
</tr>
<tr class=KenQiao_Net_ds>
<td><font color=blue>内部栏目说明：指本系统内部的栏目，可以添加小说。</font></td>
</tr>
<tr>
<td class=KenQiao_Net_ds><font color=blue>外部栏目说明：外部栏目指链接到本系统以外的地址中。当此栏目准备链接到网站中的其他系统时，请使用这种方式。不能在外部栏目中添加小说。</font></td>
</tr>
</form>
</table>
</table>
<%
End if
rs.close
set rs=nothing
end sub
sub FY_Class_Px()%>
<table width=100% align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<tr class=KenQiao_Net_ss>
<td width="6%" align="center" bgcolor="#E1F0FB">ID</td>
<td align="center" bgcolor="#E1F0FB">分类名称</td>
<td width="22%" align="center" bgcolor="#E1F0FB">英文</td>
<td width="13%" align="center" bgcolor="#E1F0FB">连接属性</td>
<td width="10%" align="center" bgcolor="#E1F0FB">排序ID</td>
<td width="12%" align="center" bgcolor="#E1F0FB">修改</td>
<td width="20%" align="center" bgcolor="#E1F0FB">删除</td>
</tr><%
set rs=server.createobject("adodb.recordset")
sql="select * from 分类 order by 排序 asc,编号 asc"
rs.open sql,conn,1,1
If rs.eof and rs.bof then
response.write "<tr><td height='30' colspan='7' bgcolor='#F5FBFE' align='center'>暂时没有分类</td></tr>"
else
do while not rs.eof%>
<tr class=KenQiao_Net_ds onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<form id="form1" name="form<%=rs("编号")%>" method="post" action="?lbid=<%=rs("编号")%>&Action=J_editclass"><td width="6%" align="center"><%=rs("编号")%></td>
<td align="center"><input name="name" type="text" class="weibenkuang" maxlength="20" id="name" value="<%=rs("分类名称")%>" size="20" /></td>
<td align="center"><input name="ename" type="text" class="weibenkuang" maxlength="50" id="ename" value="<%=rs("目录名称")%>" size="20" /></td>
<td align="center"><%If rs("链接属性")="00" Then%><font color=red>内部栏目</font><%Else%>
<font color=blue>外链栏目</font></font><%End if%></td>
<td align="center"><input name="px" type="text" class="weibenkuang" id="px" value="<%=rs("排序")%>" size="8" /></td>
<td align="center"><input name="Yename" type="hidden" id="Yename" value="<%=rs("目录名称")%>" /><input name="Mr_px" type="hidden" id="Mr_px" value="<%=rs("排序")%>" />
<input type="submit" name="Submit" value=" 修 改 " /></td></form>
<td align="center"><a href='?action=edit&lid=<%=rs("编号")%>'>详细修改</a>
<a href="?lbid=<%=rs("编号")%>&Action=Delclass">删除</a></td>
</tr><%
rs.MoveNext
loop
end if%>
</table>
<%
end sub
call admin_footer()
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -