📄 special_type_edit.asp
字号:
<%Admin="InfoType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<%
'#################################################################
'# 晓宇听幽网站内容管理系统(xoYu CMS)
'#
'# 版权所有: 晓宇听幽工作室
'#
'# 制作人 : xoyu(晓宇)
'#
'# 主页地址: http://www.xoYu.com 晓宇听幽工作室
'# 论坛地址: http://www.xoYu.com/bbs/ 晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。
'#################################################################
set rs=server.CreateObject("ADODB.RecordSet")
set rs1=server.CreateObject("ADODB.RecordSet")
if request("d")="edit" then
if request("sname")="" then
xoYuStudioMsg="错误:类名不能为空"
else
rs.open "select * from specialx where id="&request("id"),conn,1,3
do while NOT rs.EOF
TN=split(rs("sname"),"|")
for i = 0 to ubound(TN)-1
if i=request("tj")-1 then
TT=TT & ""&request("sname")&"|"
else
TT=TT & ""&TN(i)&"|"
end if
next
sname=TT
rs("sname")=sname
rs.Update
TT=""
rs.MoveNext
loop
rs.close
rs.open "select * from specialx where id="&request("id"),conn,1,3
rs("mbname")=request("MbName")
rs("last")=request("last")
rs("Imageshu")=request("Imageshu")
rs("Imagelen")=request("Imagelen")
rs("Imagewid")=request("Imagewid")
rs("Imagevshu")=request("Imagevshu")
rs("Imagevlen")=request("Imagevlen")
rs("Imagevwid")=request("Imagevwid")
rs("newshuset")=request("newshuset")
rs("MaxPerPage")=request("MaxPerPage")
rs("jsshu")=request("jsshu")
rs("jschalen")=request("jschalen")
rs("topshu")=request("topshu")
rs("toplen")=request("toplen")
rs("chalen")=request("chalen")
rs("TypePic")=request("TypePic")
rs("TypePicmore")=request("TypePicmore")
rs("SpecialGJ")=request("SpecialGJ")
rs("introduce")=request("introduce")
rs("Spics")=request("spics")
rs("simage")=request("simage")
rs.Update
rs.close
xoYuStudioMsg="成功:成功修改类目资料"
end if
end if
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th width="100%" class="tableHeaderText" colspan=2 height=25>文章栏目管理
</th>
</tr>
<tr>
<td class="forumrow" colspan=2>
<p><B>注意</B>：<BR>①删除论坛同时将删除该论坛下所有帖子！删除分类同时删除下属论坛和其中帖子！ 操作时请完整填写表单信息。<BR>②如果选择<B>复位所有版面</B>，则所有版面都将作为一级论坛（分类），这时您需要重新对各个版面进行归属的基本设置，<B>不要轻易使用该功能</B>，仅在做出了错误的设置而无法复原版面之间的关系和排序的时候使用
</td>
</tr>
<%
rs.open "select * from specialx where id="&request("id"),conn,1
if rs.eof and rs.bof then
response.write "<b>错误：</b>此ID号的类别不存在或已被删除!"
response.end
else
thistype=thistype & "<a class=xoYuNewsSort href=specialLB.asp>专题首页</a>"
sname=rs("sname")
ts=rs("ts")
tj=rs("tj")
TN=split(rs("sname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
thistype=thistype & ">> <a class=xoYuNewsSort href=specialLB.asp?id="&TI(i)&">"&TN(i)&"</a>"
next
end if
%>
<tr>
<td class="forumrow">
<B>文章栏目位置：</B>
<%=thistype%>
</td>
</tr>
</table><p>
<form name=ctype method="post" action="special_type_edit.asp?d=edit&id=<%=request("id")%>&tj=<%=rs("tj")%>&oldsname=<%=rs("sname")%>%>">
<div align="center">
<center>
<%if xoYuStudioMsg<>"" then%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="95%" class="tableBorder">
<tr>
<td width="100%" class="forumrow"><font color="#FF0000">·</font><%=xoYuStudioMsg%>,时间<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" bgcolor="#555555" style="border-collapse: collapse" width="95%" class="tableBorder">
<tr>
<th width="100%" nowrap bgcolor="#99CCFF"><b>
<img border="0" src="images/NEWWIN.GIF"> 编辑类目 <a href="specialLB.asp?id=<%=request("id")%>"><%=split(rs("sname"),"|")(rs("tj")-1)%></a> </b></th>
</tr>
<tr>
<td width="100%" class="forumrow">
<p align="center">
<font color="#FF0000">专题名称</font>：<input type="text" size=28 name="sname" value="<%=split(rs("sname"),"|")(rs("tj")-1)%>"><font color="#FF0000"> 捆绑模版</font>：<select size="1" name="MbName">
<%set rs5=server.CreateObject("ADODB.RecordSet")
sql="select * from mb where mbtype='3' order by ID"
rs5.Open sql,conn,1,1
if rs5.EOF then %>
<option value=0>暂无任何模版捆绑</option>
<%else
while not rs5.EOF
%>
<option value=<%=rs5("id")%> <%if rs("mbName")=rs5("id") then Response.Write " selected"%>><%=rs5("mbName")%></option>
<%
rs5.MoveNext
wend
end if
%>
</select>
<select size="1" name="last">
<option value="2" <% if rs("last")="2" then Response.Write " selected"%>>中间分类页</option>
<option value="1" <% if rs("last")="1" then Response.Write " selected"%>>终端分类页</option>
</select></td>
</tr>
<tr>
<td width="100%" class="forumrow">
<p align="center">
<<font color="#FF0000">本类横向图片显示设定</font>>
<br>
横向图片显示数：<input name="imageshu" value="<%=rs("Imageshu")%>" size="10" >(个) 横向图片长度：<input name="imagelen" value="<%=rs("Imagelen")%>" size="10" >(像素) 横向图片宽度：<input name="imagewid" value="<%=rs("Imagewid")%>" size="10" >(像素)</td>
</tr>
<tr>
<td width="100%" class="forumrow">
<p align="center"> <<font color="#FF0000">本类纵向图片显示设定</font>><br>
纵向图片显示数：<input name="imagevshu" value="<%=rs("Imagevshu")%>" size="10" >(个) 纵向图片长度：<input name="imagevlen" value="<%=rs("Imagevlen")%>" size="10" >(像素) 纵向图片宽度：<input name="imagevwid" value="<%=rs("Imagevwid")%>" size="10" >(像素)</td>
</tr>
<tr>
<td width="100%" class="forumrow">
<p align="left">
终极分类文章每页显示数：<input name="MaxPerPage" value="<%=rs("MaxPerPage")%>" size="10" >(<font color="#FF0000">说明：
本选项仅对终极分类页有效，单分类页无效</font>)
<p align="left">
下级分类最新文章显示数：<input name="newshuset" value="<%=rs("newshuset")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成html环节中)<p align="left">下级分类文章标题显示数：<input name="chalen" value="<%=rs("chalen")%>" size="10" >(说明：下级栏目的最新文章标题显示字数，有效于自动生成html环节中)<p align="left">
下级分类最新文章显示数：<input name="jsshu" value="<%=rs("jsshu")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成js环节中)<p align="left">分类js文章标题显示字数：<input name="jschalen" value="<%=rs("jschalen")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成js环节中)<p align="left">
本栏目文章排行榜显示数：<input name="topshu" value="<%=rs("topshu")%>" size="10" >(说明：设定本栏目文章排行榜显示数目)<p align="left">
本栏目文章排行标题字数：<input name="toplen" value="<%=rs("toplen")%>" size="10" >(说明：设定本栏目文章排行榜
文章标题显示字数)<p align="left">本栏目标志图片：<input name="TypePic" value="<%=rs("TypePic")%>" size="64" >(说明：用于设定标志本栏目的图片的位置)<p align="left">本栏目更多图片：<input name="TypePicmore" value="<%=rs("TypePicmore")%>" size="64" >(说明：用于设定各个下级栏目的"more"图片位置)</td>
</tr>
<% if tj=1 then %>
<tr>
<td width="100%" class="forumrow">
<p align="center">
<<font color="#FF0000">专题相关设定</font>>
</p>
<p align="center">
<font color="#FF0000">专题内部连接关键字：</font>
<input Class=text type="text" name="specialGJ" size="61" value='<%=rs("specialGJ")%>'>
（请尽量简洁，用于内部连接的串连）</p>
<p align="center">
<font color="#FF0000">分类相关介绍</font>：
<textarea rows="4" name="introduce" cols="95"><%=rs("introduce")%></textarea><p>
<p align="center">
<font color="#FF0000">分类相关专题首页图片：</font>
<input type="text" name="simage" size="96" value='<%=rs("simage")%>'>
</p>
<p align="center"><font color="#FF0000">分类相关首页图片</font>：
<input type="text" name="spics" size="101" value='<%=rs("spics")%>'>
</td>
</tr>
<% end if %>
<tr>
<th width="100%" bgcolor="#99CCFF" nowrap>
<p align="center"><input name="changetype" value="修 改" type='submit'> <input name="b" onclick="history.go(-1);" type="button" value="返 回"></th>
</tr>
</table>
</center>
</div>
</form>
<%rs.close
set rs=nothing
rs5.close
set rs5=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -