www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/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="WWW.2KY.CN 共享世纪">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<!--#include file="top.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
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)%>"><p align="center">
<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><p align="center">
<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="center">
终极分类文章显示数：<input name="MaxPerPage" value="<%=rs("MaxPerPage")%>" size="10" >(<font color="#FF0000">说明：
本选项仅对终极分类页有效，中间分类页无效</font>)
<p align="center">
下级分类文章显示数：<input name="newshuset" value="<%=rs("newshuset")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成html环节中)<p align="center">下级分类文章标题显示字数：<input name="chalen" value="<%=rs("chalen")%>" size="10" >(说明：下级栏目的最新文章标题显示字数，有效于自动生成html环节中)<p align="center">分类js文章显示数：<input name="jsshu" value="<%=rs("jsshu")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成js环节中)<p align="center">分类js文章
标题显示字数：<input name="jschalen" value="<%=rs("jschalen")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成js环节中)<p align="center">
本栏目文章排行榜显示数：<input name="topshu" value="<%=rs("topshu")%>" size="10" >(说明：设定本栏目文章排行榜显示数目)<p align="center">
栏目文章标题显示字数（推荐30）：<input name="toplen" value="<%=rs("toplen")%>" size="10" >(说明：设定本栏目文章排行榜
文章标题显示字数)<p align="center">本栏目图片：<input name="TypePic" value="<%=rs("TypePic")%>" size="89" >(说明：用于设定标志于笨栏目的图片的位置)<p align="center">本栏目“更多”图片：<input name="TypePicmore" value="<%=rs("TypePicmore")%>" size="79" >(说明：用于设定各个下级栏目的"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="106" 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
%>