www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/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")
if xoYuStudioAdminDj=2 and request("id")="" then errmsg=errmsg & "＂您没有进入本页面的权限!＂ \n"
if xoYuStudioAdminDj=2 and request("id")<>"" then
rs.open "select * from infotype where id="&request("id"),conn,1,1
TM=rs("typemaster")
if instr("|"&TM&"|","|"&xoYuStudioAdminName&"|")<1 then errmsg=errmsg & "＂您没有进入本页面的权限!＂ \n"
rs.close
end if
if errmsg<>"" then
response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
else
if request("d")="edit" then
if request("tname")="" then
xoYuStudioMsg="错误:类名不能为空"
else
rs.open "select * from infotype where id="&request("id"),conn,1,3
do while NOT rs.EOF
TN=split(rs("tname"),"|")
for i = 0 to ubound(TN)-1
if i=request("tj")-1 then
TT=TT & ""&request("tname")&"|"
else
TT=TT & ""&TN(i)&"|"
end if
next
tname=TT
rs("tname")=tname
rs("mbname")=request("MbName")
rs.Update
TT=""
rs.MoveNext
loop
rs.close
rs.open "select * from infotype where id="&request("id"),conn,1,3
rs("mbname")=request("MbName")
rs("last")=request("last")
rs("jssort")=request("jssort")
rs("typemaster")=request("typemaster")
rs("MaxPerPage")=request("MaxPerPage")
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("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.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 infotype 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=html_listLB.asp>文章首页</a>"
tname=rs("tname")
ts=rs("ts")
tj=rs("tj")
TN=split(rs("tname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
thistype=thistype & ">> <a class=xoYuNewsSort href=html_listLB.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="type_edit.asp?d=edit&id=<%=request("id")%>&tj=<%=rs("tj")%>&oldtname=<%=rs("tname")%>%>">
<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%"><b>
<img border="0" src="images/NEWWIN.GIF"> 编辑栏目</b></th>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" class="forumrow">
<p align="center">
<font color="#FF0000">类名</font>：<input type="text" size=28 name="tname" value="<%=split(rs("tname"),"|")(rs("tj")-1)%>"><font color="#FF0000">捆绑模版</font>：<select size="1" name="MbName">
<%set rs5=server.CreateObject("ADODB.RecordSet")
sql="select * from mb where mbtype='1' 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> js文件栏目名显示：<select size="1" name="jssort">
<option value="1" <% if rs("jssort")="1" then Response.Write " selected"%>>显示</option>
<option value="2" <% if rs("jssort")="2" 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="typemaster" value="<%=rs("typemaster")%>" size="27" >(说明：管理员不具备继承的功能，上一级的管理员不能管理下属目录，需要自行设定，多个版主用"|"隔开)</p>
<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" >(说明：下级栏目的最新文章<font color="#FF0000">标题显示字数</font>，有效于自动生成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" >
(说明：<font color="#FF0000">栏目下文章排行榜显示数目</font>[xoyu_BJTOP])
<p align="left">
本栏目文章排行标题字数：<input name="toplen" value="<%=rs("toplen")%>" size="10" >(说明：设定本栏目文章排行榜
文章标题显示字数)<p align="left">本栏目标志图片：<input name="TypePic" value="<%=rs("TypePic")%>" size="59" >(说明：用于设定标志于笨栏目的图片的位置)<p align="left">本栏目<font color="#FF0000">更多</font>图片：<input name="TypePicmore" value="<%=rs("TypePicmore")%>" size="59" >(说明：用于设定各个下级栏目的"more"图片位置)</td>
</tr>
<tr>
<th width="100%">
<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
end if
%>