📄 admin_itemattribute.asp
字号:
<%@language=vbscript codepage=936 %>
<%
'********************************************************
'程序名称:最强新闻采集系统
'版权所有:火红的五月(qq:88389917)
'程序制作:火红的五月
%>
<%
option explicit
response.buffer=true
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
Dim SqlItem,RsItem,Action,FoundErr,ErrMsg
Dim ItemID,ItemName,ChannelID,ClassID,SpecialID
Dim PaginationType,MaxCharPerPage,ReadLevel,Stars,ReadPoint,Hits,UpdateType,UpdateTime,IncludePicYn,DefaultPicYn
Dim OnTop,Elite,Hot,SkinID,TemplateID
Dim Script_Iframe,Script_Object,Script_Script,Script_Div,Script_Class,Script_Span,Script_Img,Script_Font,Script_A,Script_Html,Script_Table,Script_Tr,Script_Td
Dim CollecListNum,CollecNewsNum,Passed,SaveFiles,CollecOrder,LinkUrlYn,InputerType,Inputer,EditorType,Editor,ShowCommentLink
FoundErr=False
ItemID=Trim(Request("ItemID"))
Action=Trim(Request("Action"))
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，项目ID不能为空！</li>"
Else
ItemID=Clng(ItemID)
End If
If FoundErr<>True Then
Call GetTest()
End If
If FoundErr<>True Then
Call Main()
End If
'关闭数据库链接
Call CloseConn()
Call CloseConnItem()
%>
<%Sub Main
%>
<html>
<head>
<title>采集系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
<%Call SetChannel()%>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td height="22" colspan="2" align="center" class="topbg"><strong>采 集 系 统 模 板 管 理</td>
</tr>
<tr class="tdbg">
<td width="65" height="30"><strong>管理导航：</strong></td>
<td height="30">项目编辑 >> <a href="Admin_ItemModify.asp?ItemID=<%=ItemID%>">基本设置</a> >> <a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">列表设置</a> >> <a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">链接设置</a> >> <a href="Admin_ItemModify4.asp?ItemID=<%=ItemID%>">正文设置</a> >>
<a href="Admin_ItemModify5.asp?ItemID=<%=ItemID%>">采样测试</a> >> <a href="Admin_ItemAttribute.asp?ItemID=<%=ItemID%>"><font color=red>属性设置</font></a> >> 完成</td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td height="22" colspan="2" class="title"> <div align="center"><strong>编 辑 项 目--属 性 设 置</strong></div></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" class="tdbg">
<form method="post" action="Admin_ItemSuccess.asp" name="myform">
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>项目名称：</b></td>
<td><input name='ItemName' type='text' id='ItemName' value='<%=ItemName%>' size='27' maxlength='30'></td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><strong> 所属频道：</strong></td>
<td><select ID="ChannelID" name="ChannelID" onChange="changelocation(document.myform.ChannelID.options[document.myform.ChannelID.selectedIndex].value)"><%call Admin_ShowChannel_Option(ChannelID)%></select>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><strong> 所属栏目：</strong></td>
<td><select name="ClassID" ID="ClassID"><%call Admin_ShowClass_Option(ChannelID,ClassID)%></select>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><strong> 所属专题：</strong></td>
<td class="tdbg"><%call Admin_ShowSpecial_Option(ChannelID,SpecialID)%>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>内容分页方式：</b></td>
<td><select name="PaginationType">
<option value="0" <%If PaginationType=0 Then response.write "selected"%>>不分页</option>
<option value="1" <%If PaginationType=1 Then response.write "selected"%>>自动分页</option>
<option value="2" <%If PaginationType=2 Then response.write "selected"%>>手动分页</option>
</select>
自动分页时的每页大约字符数（包含HTML标记）：<input name="MaxCharPerPage" type="text" value="<%=MaxCharPerPage%>" size="8" maxlength="8"> </td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>文章阅读等级：</b></td>
<td><select name='ReadLevel' id='ReadLevel'>
<option value='5' <%If ReadLevel=5 Then response.write "selected"%>>管理员</option>
<option value='9' <%If ReadLevel=9 Then response.write "selected"%>>VIP会员</option>
<option value='99' <%If ReadLevel=99 Then response.write "selected"%>>收费会员</option>
<option value='999' <%If ReadLevel=999 Then response.write "selected"%>>注册会员</option>
<option value='9999' <%If ReadLevel=9999 Then response.write "selected"%>>游客</option>
</select>
<FONT color=#0000ff>只有具有相应权限的人才能阅读此文章。</FONT>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>文章评分等级：</b></td>
<td><select name="Stars">
<option value="5" <%If Stars=5 Then response.write "selected"%>>★★★★★</option>
<option value="4" <%If Stars=4 Then response.write "selected"%>>★★★★</option>
<option value="3" <%If Stars=3 Then response.write "selected"%>>★★★</option>
<option value="2" <%If Stars=2 Then response.write "selected"%>>★★</option>
<option value="1" <%If Stars=1 Then response.write "selected"%>>★</option>
<option value="0" <%If Stars=0 Then response.write "selected"%>>无</option>
</select>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>文章阅读点数：</b></td>
<td><input name='ReadPoint' type='text' id='ReadPoint' value='<%=ReadPoint%>' size='5' maxlength='3'>
<font color='#0000FF'>如果大于0，则用户阅读此文章时将消耗相应点数。（对游客和管理员无效）</font>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>点击数初始值：</b></td>
<td><input name="Hits" type="text" id="Hits" value="<%=Hits%>" size="10" maxlength="10">
<font color='#0000FF'>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</font>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>新闻录入时间：</b></td>
<td><input name="UpdateType" type="radio" value="0" <%If UpdateType= 0 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">当前时间
<input name="UpdateType" type="radio" value="1" <%If UpdateType=1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">标签中的时间
<input name="UpdateType" type="radio" value="2" <%If UpdateType= 2 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">自定义：
<input name="UpdateTime" type="text" value="<%=UpdateTime%>">
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>新闻录入：</b></td>
<td><input name="InputerType" type="radio" value="0" <%If InputerType= 0 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">当前用户
<input name="InputerType" type="radio" value="1" <%If InputerType=1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">指定用户
<input name="Inputer" type="text" value="<%=Inputer%>">
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>责任编辑：</b></td>
<td><input name="EditorType" type="radio" value="0" <%If EditorType= 0 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">当前用户
<input name="EditorType" type="radio" value="1" <%If EditorType=1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">指定用户
<input name="Editor" type="text" value="<%=Editor%>">
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>新闻性质：</b></td>
<td>
<input name="IncludePicYn" type="checkbox" value="yes" <%If IncludePicYn=-1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
包含图片
<input name="DefaultPicYn" type="checkbox" value="yes" <%If DefaultPicYn=-1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
首页图片
<input name="OnTop" type="checkbox" value="yes" <%If OnTop=-1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
固顶文章
<input name="Elite" type=checkbox value="yes" <%If Elite=-1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
推荐文章
<input name="Hot" type="checkbox" value="yes" <%If Hot=-1 Then Response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
热点文章
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>评论链接：</b></td>
<td>
<input name="ShowCommentLink" type="radio" id="ShowCommentLink" value="Yes" <%If ShowCommentLink=True Then Response.write "Checked"%>>显示评论链接
<input name="ShowCommentLink" type="radio" id="ShowCommentLink" value="No" <%If ShowCommentLink=False Then Response.write "Checked"%>>不显示评论链接
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>配色风格：</b></td>
<td><select name='SkinID' id='SkinID'><option value='0' selected>默认风格</option></select>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>版面设计模板：</b></td>
<td><select name='TemplateID' id='TemplateID'><option value='0' selected>默认风格</option></select>
</td>
</tr>
<tr class="tdbg">
<td height="30" width="20%" align="right"><b>标签过滤：</b></td>
<td>
<input name="Script_Iframe" type="checkbox" value="yes" <%If Script_Iframe=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Iframe
<input name="Script_Object" type="checkbox" value="yes" <%If Script_Object=-1 Then response.write "checked"%> onclick='return confirm("确定要选择该标记吗？这将删除正文中的所有Object标记，结果将导致该文章中的所有Flash动画被删除！");' style="border: 0px;background-color: #eeeeee;">
Object
<input name="Script_Script" type="checkbox" value="yes" <%If Script_Script=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Script
<input name="Script_Div" type="checkbox" value="yes" <%If Script_Div=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Div
<input name="Script_Class" type="checkbox" value="yes" <%If Script_Class=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Class
<input name="Script_Table" type="checkbox" value="yes" <%If Script_Table=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Table
<input name="Script_Tr" type="checkbox" value="yes" <%If Script_Tr=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Tr
<br>
<input name="Script_Span" type="checkbox" value="yes" <%If Script_Span=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Span
<input name="Script_Img" type="checkbox" value="yes" <%If Script_Img=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Img
<input name="Script_Font" type="checkbox" value="yes" <%If Script_Font=-1 Then response.write "checked"%> style="border: 0px;background-color: #eeeeee;">
Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -