📄 user_article.asp
字号:
<%=ShowClass_Option(ChannelID,ClassID,0,1)%>
</select>
<font color="#FF0000"><strong>注意：</strong></font><font color="#0000FF">不能指定为外部栏目</font>
<%if Action="Add" then%>
<input type="checkbox" id="IsShowSpecial" onclick="chkShowSpecial();"> 指定专题
<%end if%>
</td>
</tr>
<tr class="tdbg" <%If Action="Add" Then Response.write " style='display:none;'"%> id="ShowSpecial">
<td width="100" align="right"><strong>所属专题：</strong></td>
<td colspan="2">
<select name="SpecialID" id="SpecialID" multiple style="height:90px;width:200px;">
<%=ShowSpecial_Option(ChannelID,SpecialID,1)%>
</select>  
<font color="#FF0000"><strong>说明：</strong></font><font color="#0000FF">按“Shift”“Ctrl”可多选</font>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>标题：</strong></td>
<td colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td width="64">简短标题：</td>
<td>
<select name="Prefixion">
<option value="" selected="selected">[前缀]</option>
<%for i=0 To Ubound(sPrefixion)%>
<option value="<%=sPrefixion(i)%>"><%=sPrefixion(i)%></option>
<%Next%>
</select>
<input name="Title" type="text" id="Title" value="<%=Title%>" size="40" maxlength="255" />
<font color="#FF0000">*</font> <select name="FontType" id="FontType" onchange="updateTitleFont('Title');">
<option value="0">字 形</option>
<option value="0">规 则</option>
<option value="1" <%if FontType=1 then response.write " selected"%>>粗 体</option>
<option value="2" <%if FontType=2 then response.write " selected"%>>斜 体</option>
<option value="3" <%if FontType=3 then response.write " selected"%>>粗+斜</option>
</select>
<input name="FontColor" type="hidden" id="FontColor" value="<%=FontColor%>" size="10" onClick="Getcolor(ColorBG,'FontColor');updateTitleFont('Title');" readonly="Readonly" />
<img border="0" src="../images/Gcolor.gif" style="cursor:pointer;background-Color:<%=FontColor%>;" onClick="Getcolor(this,'FontColor');updateTitleFont('Title');" title="选取标题颜色!" align="absmiddle" id="ColorBG" />
<script type="text/javascript">updateTitleFont('Title')</script>
<input name="Check" type="button" id="Check" value="检测标题" onclick="CheckTitle('Title','<%=ChannelID%>');" />
</td>
</tr>
<tr>
<td width="64">完整标题：</td>
<td><input name="TitleIntact" type="text" id="TitleIntact" value="<%=TitleIntact%>" size="79" maxlength="255" /></td>
</tr>
</table>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><input name="Keyword" type="text" id="Keyword" value="<%=Keyword%>" size="82" maxlength="255" />
<font color="#FF0000">*</font> <a onclick="SelectCustom('Keyword',<%=ChannelID%>,0,1)" style="cursor:hand;"><font color="#66666">Select...</font></a><br />
<font color="#0000FF">用来查找相关<%=Cl.ChannelItemName%>，可输入多个关键字，中间用<font color="#FF0000">“|”</font>分开。不能出现"'*?()等字符。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("1",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>作 者：</strong></td>
<td colspan="2">姓名：
<input name="AuthorName" type="text" id="AuthorName" value="<%=AuthorName%>" size="20" maxlength="30" />
<a onclick="SelectCustom('AuthorName',<%=ChannelID%>,1,0)" style="cursor:hand;"><font color="#66666">Select...</font></a> Email：
<input name="AuthorEmail" type="text" id="AuthorEmail" value="<%=AuthorEmail%>" size="40" maxlength="100" /></td>
</tr>
<tr class="tdbg"<%=CheckUse("2",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>来 源：</strong></td>
<td colspan="2">名称：
<input name="CopyFromName" type="text" id="CopyFromName" value="<%=CopyFromName%>" size="20" maxlength="50" />
<a onclick="SelectCustom('CopyFromName',<%=ChannelID%>,2,0)" style="cursor:hand;"><font color="#66666">Select...</font></a> 网 址：
<input name="CopyFromUrl" type="text" id="CopyFromUrl" value="<%=CopyFromUrl%>" size="40" maxlength="200" /></td>
</tr>
<%=ShowField(Action,InfoID,1)%>
<tr class="tdbg"<%=CheckUse("3",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>简介：</strong></td>
<td colspan="2"><textarea name="Intro" id="Intro" style="width:95%" rows="5"><%=Intro%></textarea>
<br /><a href="javascript:admin_Size(-5,'Intro')"><img src="images/minus.gif" unselectable="on" border="0" /></a> <a href="javascript:admin_Size(5,'Intro')"><img src="images/plus.gif" unselectable="on" border='0' /></a></td>
</tr>
<tr class="tdbg" id="ChkIsLink" style="display:none;">
<td width="100" align="right"><strong>链接地址：</strong></td>
<td colspan="2"><input name="HtmlFileUrl" type="text" id="HtmlFileUrl" value="<%=HtmlFileUrl%>" size="82" maxlength="255" />
<font color="#FF0000">*</font><br /></td>
</tr>
<tr class="tdbg" id="ChkNoLink">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>内容：</strong></td>
<td colspan="2">
<table width="100%">
<!--==================================================-->
<tr class="tdbg">
<td colspan="2"><textarea name="Content" style="display:none"><%=Content%></textarea>
<iframe id="editor" src="../Editor/Editor.asp?id=Content&style=aspoo&cid=<%=ChannelID%>&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="95%" height="405"></iframe>
<br />
<font color="#006600">· 换行请按Shift+Enter，另起一段请按Enter</font>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>分页方式：</strong></td>
<td><select name="PaginationType" id="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> <strong><font color="#0000FF">注：</font></strong><font color="#0000FF">手动分页符标记为：</font>
<input name="NextPageLabel" type="button" id="NextPageLabel" value="[NextPage]" onclick="editor.Editor.focus();editor.insertHTML('[NextPage]');" style="cursor:hand;" />
<font color="#0000FF">点击插入，注意大小写。</font></td>
</tr>
<tr class="tdbg">
<td align="right"> </td>
<td>自动分页时的每页大约字符数（包含HTML标记）：<strong>
<input name="MaxCharPerPage" type="text" id="MaxCharPerPage" value="<%=MaxCharPerPage%>" size="8" maxlength="8" />
</strong></td>
</tr>
<!--==================================================-->
</table></td>
</tr>
<tr class="tdbg"<%=CheckUse("4",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>转向链接：</strong></td>
<td colspan="2"><input name="IsLink" type="checkbox" id="IsLink" value="yes" onclick="ChkLink();" <%if IsLink=True then%>Checked<%end if%> />
转向链接
<input type="checkbox" id="IsShowUploadFiles" onclick="chkShowUploadFiles();"> 查看已上传文件</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>缩 略 图：</strong></td>
<td colspan="2"><input name="PicUrl" type="text" id="PicUrl" value="<%=PicUrl%>" size="80" maxlength="200" onClick="doPreview('PicUrl','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')" />
<br /><iframe style="top:2px" id="UpFile" src="../User/Upload.asp?ID=<%=ChannelID%>&Type=0&Obj=PicUrl&TObj=TempUploadFiles" frameborder="0" scrolling="No" width="530" height="25"></iframe>
<br />用于在首页的图片<%=Cl.ChannelItemName%>处显示，根目录用“{$webdir}”，上传目录用“{$uploaddir}”
</td>
</tr>
<tr class="tdbg" id="ShowUploadFiles" style="display:none;">
<td width="100" align="right"><strong>已 上 传：</strong></td>
<td><select name="TempUploadFiles" style="width:500;height:132" size="2" onclick="doPreview('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>')"><%
dim sUploadFiles
sUploadFiles = Trim(UploadFiles)
if Instr(sUploadFiles,"@@@") >0 then
sUploadFiles = Split(sUploadFiles,"@@@")
for i=0 to Ubound(sUploadFiles)
%>
<option value="<%=sUploadFiles(i)%>"><%=sUploadFiles(i)%></option>
<%
Next
elseif sUploadFiles<>"" then
%>
<option value="<%=sUploadFiles%>"><%=sUploadFiles%></option>
<%end if%></select><br />
<input type="button" name="SetDefaultPic" value="设为缩略图" onClick="SetPicUrl('TempUploadFiles','PicUrl');" />
<input type="button" name="InsEditor" value="插入编辑器" onClick="InsertEditor('TempUploadFiles','<%=Cl.WebDir%>','<%=Cl.UploadDir%>');" />
<input type="hidden" name="UploadFiles" value="" />
</td>
<td width="180">
<fieldset style="height:100%">
<legend>预览</legend>
<table border="0" cellpadding="0" cellspacing="1" width="180" height="150" valign="top">
<tr><td align="center" valign="middle" id="tdPreview" height="100%">
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
<!--
<tr class="tdbg">
<td width="100" align="right"><strong>阅读等级：</strong></td>
<td colspan="2">
<input name="InfoGroup" type="hidden" id="InfoGroup" value="<%=InfoGroup%>" />
<input name="InfoGroupView" type="text" id="InfoGroupView" value="<%=Cl.GetUserGroupName(InfoGroup)%>" size="82" onClick="SelectUserGroup('InfoGroup');" readonly="Readonly" />
<input type="checkbox" name="GetClassPurview" id="GetClassPurview" value="yes" onClick="document.myform.InfoGroupView.disabled=this.checked" />
继承栏目权限<br /><font color="#0000FF">只有具有相应权限的人才能阅读此<%=Cl.ChannelItemName%>。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("9",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>阅读<%=Cl.Web_Setting(28)%>：</strong></td>
<td colspan="2"><input name="InfoPoint" type="text" id="InfoPoint" value="<%=InfoPoint%>" size="8" maxlength="5" style="text-align: right;" />
<%=Cl.Web_Setting(29)%> <font color="#0000FF">如果大于0，则用户阅读此<%=Cl.ChannelItemName%>时将消耗相应<%=Cl.Web_Setting(28)%>。（对游客无效）</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("10",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>阅读<%=Cl.Web_Setting(26)%>：</strong></td>
<td colspan="2"><input name="InfoMoney" type="text" id="InfoMoney" value="<%=InfoMoney%>" size="8" maxlength="5" style="text-align: right;" />
<%=Cl.Web_Setting(27)%> <font color="#0000FF">如果大于0，则用户阅读此<%=Cl.ChannelItemName%>时将消耗相应<%=Cl.Web_Setting(26)%>。（对游客无效）</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("5",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>回扣设置：</strong></td>
<td colspan="2">
<%=Cl.Web_Setting(28)%>：<input name="BackPoint" type="text" id="BackPoint" value="<%=BackPoint%>" size="5" maxlength="3" style="text-align: right;" />
<%=Cl.Web_Setting(29)%>＋<%=Cl.Web_Setting(28)%>的<input name="BackPointRate" type="text" id="BackPointRate" value="<%=BackPointRate%>" size="5" maxlength="2" style="text-align: right;" />
%<br />
<%=Cl.Web_Setting(26)%>：<input name="BackMoney" type="text" id="BackMoney" value="<%=BackMoney%>" size="5" maxlength="3" style="text-align: right;" />
<%=Cl.Web_Setting(27)%>＋<%=Cl.Web_Setting(26)%>的<input name="BackMoneyRate" type="text" id="BackMoneyRate" value="<%=BackMoneyRate%>" size="5" maxlength="2" style="text-align: right;" />
%<br /><font color="#0000FF">即当用户游览或下载此内容时，给予一定的回扣给添加者！</font>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>性质：</strong></td>
<td colspan="2"><input name="OnTop" type="checkbox" id="OnTop" value="yes" <% if OnTop=True then response.Write "checked" end if%> />
固顶<%=Cl.ChannelItemName%> <input name="Hot" type="checkbox" id="Hot" value="yes" <%if Hot=True then response.Write("checked") end if%> />
热点<%=Cl.ChannelItemName%> <input name="Elite" type="checkbox" id="Elite" value="yes" <%if Elite=True then response.Write("checked") end if%> />
推荐<%=Cl.ChannelItemName%> 评分等级：
<select name="Stars" id="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"<%=CheckUse("6",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>点 击 数：</strong></td>
<td colspan="2"><input name="Hits" type="text" id="Hits" value="<%=Hits%>" size="10" maxlength="10" />
<font color="#0000FF">这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("7",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>录入时间：</strong></td>
<td colspan="2"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=UpdateTime%>" maxlength="50" />
<font color="blue"><--【<a href='javascript:ToValue("","UpdateTime","<%=now%>")'>设为当前时间</a>】</font>
<br />
时间格式为“年-月-日 时:分:秒”，如：<font color="#0000FF">2005-1-1 12:32:47</font>
</td>
</tr>
<tr class="tdbg"<%=CheckUse("8",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong>签收<%=Cl.ChannelItemName%>：</strong></td>
<td colspan="2"><input name="Receive" type="checkbox" id="Receive" value="yes" onclick="ChkReceiver();" <%if Receive=True then%>Checked<%end if%> />
签收<%=Cl.ChannelItemName%></td>
</tr>
<tr class="tdbg" id="ShowReceiver" style="display:none">
<td width="100" align="right"><strong>签收用户：</strong></td>
<td colspan="2" width="*">
<table width="100%">
<tr>
<td width="100%"><textarea name="ReceiveUser" id="ReceiveUser" style="width:95%" rows="5" readonly="readonly"><%=ReceiveUser%></textarea>
<font color="#ff6600">*</font>
</td>
</tr>
<tr>
<td><input type="button" name="Select_User" id="Select_User" value=" 选择用户 " onclick="window.open('../User/User_SelectUsers.asp?Action=Receive', 'UserList', 'width=700,height=500,resizable=0,scrollbars=yes');" />
自动签收：
<input type="text" name="AutoReceiveTime" id="AutoReceiveTime" value="<%=AutoReceiveTime%>" size="5" maxlength="3" />
秒
文档类型：
<select name="ReceiveType" id="ReceiveType">
<option value="0" <% if ReceiveType=0 then%>selected<%end if%>>公众文档</option>
<option value="1" <% if ReceiveType=1 then%>selected<%end if%>>专属文档</option>
</select>
<br />
<font color="red">注意：签收<%=Cl.ChannelItemName%>修改后，所有用户将要重新签收。</font> </td>
</tr>
</table>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>立即发布：</strong></td>
<td colspan="2"><input name="Passed" type="checkbox" id="Passed" value="yes" <%if Status=1 then response.Write("checked") end if%> />
是<font color="#0000FF">（如果选中的话将直接发布，否则审核后才能发布。）</font>
<input name="NowCreate" type="checkbox" value="yes" checked="checked" />
立即生成</td>
</tr>
-->
</table>
<div align="center">
<p>
<input name="Action" type="hidden" id="Action" value="Save<%=Action%>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
<%if Action="Modify" then%>
<input name="InfoID" type="hidden" id="InfoID" value="<%=InfoID%>" />
<input name="Save" type="submit" id="Save" value="保存修改结果" style="cursor:hand;" />
<!--
<input name="Add" type="submit" id="Add" value="添加为新<%=Cl.ChannelItemName%>" onClick="document.myform.Action.value='SaveAdd';" style="cursor:hand;" />-->
<%else%>
<input name="Add" type="submit" id="Add" value=" 添 加 " style="cursor:hand;" />
<!--<script type="text/javascript">
$("InfoGroupView").disabled=true;
$("GetClassPurview").checked=true;
</script>-->
<%end if%>
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="history.go(-1)" style="cursor:hand;" />
</p>
</div>
</form>
<script language="JavaScript" type="text/javascript">
<!--
CheckSel('Prefixion','<%=Prefixion%>');
<%if Receive=true then%>
document.getElementById('ShowReceiver').style.display = '';
<%end if
if IsLink=true then%>
document.getElementById('ChkIsLink').style.display = '';
document.getElementById('ChkNoLink').style.display = 'none';
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -