📄 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")
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="98%" 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>①删除论坛同时将删除该论坛下所有帖子！删除分类同时删除下属论坛和其中帖子！ 操作时请完整填写表单信息。</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="98%" 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="98%" class="tableBorder" height="1">
<tr>
<th width="100%" height="13" colspan="2"><b>
<img border="0" src="images/NEWWIN.GIF"> 编辑栏目</b></th>
</tr>
<tr>
<td width="4%" bgcolor="#FFFFFF" class="forumrow" height="16">
<p align="left">
<font color="#FF0000">分类名称</font>：</td>
<td width="129%" bgcolor="#FFFFFF" class="forumrow" height="16">
<input type="text" size=28 name="tname" value="<%=split(rs("tname"),"|")(rs("tj")-1)%>"></td>
</tr>
<tr>
<td width="4%" bgcolor="#FFFFFF" class="forumrow" height="20">
<font color="#FF0000">捆绑模版</font>：</td>
<td width="129%" bgcolor="#FFFFFF" class="forumrow" height="20">
<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></td>
</tr>
<tr>
<td width="4%" bgcolor="#FFFFFF" class="forumrow" height="1">
栏目性质：</td>
<td width="129%" bgcolor="#FFFFFF" class="forumrow" height="1">
<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="4%" bgcolor="#FFFFFF" class="forumrow" height="1">
js文件栏目名显示： </td>
<td width="129%" bgcolor="#FFFFFF" class="forumrow" height="1">
<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="4%" class="forumrow" height="1">
<p align="left"><font color="#FF0000">横向图片显示设定</font> </td>
<td width="98%" class="forumrow" height="1">
显示个数：<input name="imageshu" value="<%=rs("Imageshu")%>" size="7" >(个) 长度：<input name="imagelen" value="<%=rs("Imagelen")%>" size="7" >(像素) 宽度：<input name="imagewid" value="<%=rs("Imagewid")%>" size="7" >(像素)</td>
</tr>
<tr>
<td width="4%" class="forumrow" height="1">
<p align="left"><font color="#FF0000">纵向图片显示设定</font></td>
<td width="98%" class="forumrow" height="1">
显示个数：<input name="imagevshu" value="<%=rs("Imagevshu")%>" size="7" >(个) 长度：<input name="imagevlen" value="<%=rs("Imagevlen")%>" size="7" >(像素) 宽度：<input name="imagevwid" value="<%=rs("Imagevwid")%>" size="7" >(像素)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="17">
本栏目的版主：</td>
<td width="74%" class="forumrow" height="17">
<input name="typemaster" value="<%=rs("typemaster")%>" size="65" ><br>
(说明：管理员不继承管理权限，上级的管理员不能管理下属目录，需要自行设定，多个版主用"|"隔开)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="17">
终极分类文章每页显示数：</td>
<td width="74%" class="forumrow" height="17">
<input name="MaxPerPage" value="<%=rs("MaxPerPage")%>" size="10" >(<font color="#FF0000">说明：
本选项仅对终极分类页有效，单分类页无效</font>) </td>
</tr>
<tr>
<td width="26%" class="forumrow" height="16">
下级分类最新文章显示数：</td>
<td width="74%" class="forumrow" height="16">
<input name="newshuset" value="<%=rs("newshuset")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成html环节中)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="16">
下级分类文章标题显示数：</td>
<td width="74%" class="forumrow" height="16">
<input name="chalen" value="<%=rs("chalen")%>" size="10" >(说明：下级栏目的最新文章<font color="#FF0000">标题显示字数</font>，有效于自动生成html环节中)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="3">
下级分类最新文章显示数：</td>
<td width="74%" class="forumrow" height="3">
<input name="jsshu" value="<%=rs("jsshu")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成js环节中)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="3">
分类js文章标题显示字数：</td>
<td width="74%" class="forumrow" height="3">
<input name="jschalen" value="<%=rs("jschalen")%>" size="10" >(说明：设定下级栏目的最新的文章显示数目，有效于自动生成js环节中)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="3">
本栏目文章排行榜显示数：</td>
<td width="74%" class="forumrow" height="3">
<input name="topshu" value="<%=rs("topshu")%>" size="10" >(说明：设定本栏目文章排行榜显示数目)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="3">
本栏目文章排行标题字数：</td>
<td width="74%" class="forumrow" height="3">
<input name="toplen" value="<%=rs("toplen")%>" size="10" >(说明：设定本栏目文章排行榜
文章标题显示字数)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="2">
本栏目标志图片：</td>
<td width="74%" class="forumrow" height="2">
<input name="TypePic" value="<%=rs("TypePic")%>" size="59" >(说明：用于本栏目的标志图片)</td>
</tr>
<tr>
<td width="26%" class="forumrow" height="2">
本栏目<font color="#FF0000">更多</font>图片：</td>
<td width="74%" class="forumrow" height="2">
<input name="TypePicmore" value="<%=rs("TypePicmore")%>" size="59" >(说明：用于各下级栏目的"more")</td>
</tr>
<tr>
<th width="100%" height="22" colspan="2">
<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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -