📄 admin_news_add.asp
字号:
<option value='<%=rs("id")%>|0|0' <% if clng(lmid)=clng(rs("id")) then response.write " selected" %>><%=rs("lm")%>(1级)</option>
<% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id_desc,id asc"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
while not rs2.eof
%>
<option value='<%=rs("id")%>|<%=rs2("id")%>|0' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>> ├<%=rs2("lm2")%>(2级)</option>
<%
Set rs33 = Server.CreateObject("ADODB.RecordSet")
rs33.Open "select * from [lm] where lm3<>'' and lmid='"&rs2("id")&"' order by id_desc,id asc",conn,1,1
while not rs33.eof
%>
<option value='<%=rs2("lmid")%>|<%=rs2("id")%>|<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>> ├<%=rs33("lm3")%>(3级)</option>
<%
rs33.movenext
wend
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
<%else%>
<!--webbot bot="Validation" s-display-name="栏目分类" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lm">
<option>请选择:::</option>
<%
admin_sql = "select * from admin where [user]='"&Request.Cookies(Art2008)("adminuser")&"' order by id desc"
Set admin_rs = Server.CreateObject("ADODB.RecordSet")
admin_rs.Open admin_sql,conn,1,1
admin_lmid=admin_rs("lmid") '豪修改，原句是:lmid=rs3("lmid") ,这个变量与新闻的lmid冲突了。
if right(admin_lmid,1)="," then admin_lmid=left(admin_lmid,len(admin_lmid)-1) '豪-增加一句
array_admin_lmid=split(admin_lmid,",") '豪修改
For i=0 to ubound(array_admin_lmid)
aaa=array_admin_lmid(i) '取出编辑者拥有的权限ID号.
lm_1_sql = "select * from lm where id="&aaa
Set lm_1_rs = Server.CreateObject("ADODB.RecordSet")
lm_1_rs.Open lm_1_sql,conn,1,1
while not lm_1_rs.eof
if lm_1_rs("lm")<>"" then
%>
<option value='<%=lm_1_rs("id")%>|0|0' <% if clng(lm1id)=lm_1_rs("id") then response.write " selected" %>><%=lm_1_rs("lm")%>(1级) </option>
<%
ElseIf lm_1_rs("lm2")<>"" then
%>
<option value='<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>|0' <% if clng(lm2id)=lm_1_rs("id") then response.write " selected" %>> ├ <%=lm_1_rs("lm2")%>(2级)</option>
<%
'豪气冲天-修正
Elseif lm_1_rs("lm3")<>"" then
get_1_id_sql="select lmid from [lm] where id="&clng(lm_1_rs("lmid"))
set get_1_id_rs = Server.CreateObject("ADODB.RecordSet")
get_1_id_rs.Open get_1_id_sql,conn,1,1
lmid31=get_1_id_rs("lmid")
get_1_id_rs.close
set get_1_id_rs=nothing
%>
<option value='<%=lmid31%>|<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>' <% if clng(lm3id)=lm_1_rs("id") then response.write " selected" %>> ├ <%=lm_1_rs("lm3")%>(3级)</option>
<%
end if '结尾配对lm_1_rs("lm")<>""
'豪气冲天-修正结束。
lm_1_rs.movenext
wend
lm_1_rs.close
set lm_1_rs=nothing
next
admin_rs.close
set admin_rs=nothing
'豪-修改完毕
%>
</select>
<%end if%> </td>
<td class="Forumrow"><b>来源：</b><!--webbot bot="Validation" s-display-name="来源作者" b-value-required="TRUE" i-maximum-length="40" --><input type="text" name="zz" size="14" maxlength="40" value="<%=zz%>"><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write Server.HtmlEncode(content)'阿蚊少-08-06-10 修复提交代码片再次编辑出错问题%></textarea></td>
</tr>
<!-- 2.5版,增一个专题选择 -->
<tr>
<td align="center" class="Forumrow"><b>所属专题：</b></td>
<td colspan="2" class="Forumrow"> <select size="1" name="ztid">
<option value="0">请选择:::</option>
<%
set rszt = Server.CreateObject("ADODB.RecordSet")
rszt.Open "select id,title from [NewsZT] order by id asc",conn,1,1
while not rszt.eof
%>
<option value="<%=rszt("id")%>" <% if clng(ztid)=clng(rszt("id")) then Response.Write " selected "%>><%=rszt("title")%></option>
<%
rszt.movenext
wend
rszt.close:set rszt=nothing
%>
</select> </td>
</tr>
<!-- 2.5版的专题结束. -->
<!-- 豪--增添加时间可以修改。大头鱼要求。2006-9-29 -->
<tr>
<td class="Forumrow"><p align="center"><b>发表时间：</b></td>
<td colspan="2" align="left" class="Forumrow">
<input type="text" name="add_time" size="19" maxlength="19" value="<%=cdate(add_time)%>" title="方便有些特殊新闻，需时取发布时间，而不是现在添加时间。修改时，请注意日期与时间格式。" > <a href='#' onClick="OpenThenSetValue('Include/DateDialog.asp',160,180,window,document.FrontPage_Form1.add_time);document.FrontPage_Form1.add_time.focus();"> <img src='../Images/date.gif' border='0' align='absmiddle' title='选择日期'></a> 【选择日期】
文章阅读数： <!--webbot bot="Validation" s-display-name="阅读数" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="9" --><input type="text" name="hit" size="20" value="<%=ehit%>" maxlength="9" title="可修改文章阅读点击率"> </td>
</tr>
<!-- 豪--增。2006-9-29 结束-->
<tr><td class="Forumrow"><p align="center"><b>文章内容：</b></td>
<td colspan="2" class="Forumrow"><IFRAME ID="eWebEditor1" SRC="../edit/ewebeditor.htm?id=content&style=coolblue" frameborder="0" scrolling="no" width="651" HEIGHT="450" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME></td>
</tr>
<tr>
<td class="Forumrow"><p align="center"><b>文章类别：</b></td>
<td colspan="2" class="Forumrow" align="left" > <input type="checkbox" <% if pic<>"" then Response.Write " checked "%> name="tuwen" value="1" id=tu><label for=tu class="redtext">图片新闻</label>
<%
if Request.Cookies(Art2008)("admindj")="1" or Request.Cookies(Art2008)("admindj")="2" then
%>
<input type="checkbox" <%if tj="推荐" then response.write " checked "%> name="tj" value="推荐" id=tj><label for=tj class="redtext">推荐新闻</label>
<input type="checkbox" name="ontop" <%if ontop=5 then response.write " checked "%> value="5" id=ontop><label for=ontop class="redtext">固顶</label>
<%
end if
%> </td>
</tr>
<!-- 豪-增加一个分页符提示 -->
<tr>
<td class="Forumrow"><p align="center"><b>内容分页方式：</b></td>
<td colspan="2" align="left" class="Forumrow"><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> 【<font color=green>提示：如果长文章可以选择分页显示，手动分页符标记为：</font><%=config("nextpage")%> 】<br />
自动分页时的每页大约字符数（包含HTML标记）：
<input name="MaxCharPerPage" type="text" id="MaxCharPerPage" value="<%=MaxCharPerPage%>" size="8" maxlength="8">
</strong>
</td></tr>
<!-- 豪-增加结束 -->
<tr>
<td class="Forumrow">
<p align="center"><b>图片地址：</b></td>
<td class="Forumrow">
<input type="text" name="pic" size="59" value="<%=pic%>">
<br /><input type="button" name="Button" value="从已上传图片选择" onClick="javascript:window.open('selectupfile.asp?UrlID=0', 'selupfile', 'width=800, height=600, toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, status=yes');" class="smallInput">
</td>
<td class="Forumrow"><span class="red">此地址将做为图片新闻的缩略图。</span><font color="green"><br />
如果为空，默认是新闻内容中第一幅图片；<br />也可以从已上传图片选择；</font></td>
</tr>
<tr>
<td class="Forumrow">
<p align="center"><b>图片来源：</b></td>
<td colspan="2" class="Forumrow">
<input type="text" name="piczz" size="20" value="<%=piczz%>" maxlength="50"> 【<font color="green"> 可以填写图片作者 </font>】</td>
</tr>
<tr>
<td class="Forumrow">
<p align="center"><b>相关新闻：</b></td>
<td class="Forumrow" colspan="2">
<input type="text" name="xgnews" size="20" value="<%=xgnews%>">
【<font color="green">填写关键字：</font>】</td>
</tr>
<tr>
<td class="Forumrow"><p align="center"><b>阅读权限选项：</b></td>
<td class="Forumrow" colspan="2" align="left"><INPUT onclick=getlicense() type=checkbox value=1 name=viewlicense align="absmiddle"> <font color="red">←点击打开会员阅读选项</font>
</td>
</tr>
<tr style="display:none" id=license>
<td class="Forumrow">
<p align="center"><b>阅读权限：</b></td>
<td class="Forumrow" colspan="2">
<input name="InfoPurview" type="radio" value="0"<%if InfoPurview=0 Then response.write " checked"%>>继承栏目权限 【当所属栏目为<span class="red">认证栏目</span>时，建议选择此项】<br>
<input name="InfoPurview" type="radio" value="1"<%if InfoPurview=1 Then response.write " checked"%>>所有会员 【当所属栏目为<span class="red">开放栏目</span>，<span class="greentext">想单独对某些文章进行阅读权限设置</span>，可以选择此项】<br>
<input name="InfoPurview" type="radio" value="2"<%if InfoPurview=2 Then response.write " checked"%>>指定会员组 【当所属栏目为<span class="red">开放栏目</span>，<span class="greentext">想单独对某些文章进行阅读权限设置</span>，可以选择此项，并选择用户组】<br>
<table border=0 align=center width=90%><tr><td><%= GetGroup_CheckBox("ArrGroupID",ArrGroupID,5) %></td></tr></table></td>
</tr>
<tr style="display:none" id=license1>
<td class="Forumrow">
<p align="center"><b>消费点数：</b></td>
<td class="Forumrow" colspan="2">
<input name="ReadPoint" type="text" id="ReadPoint" value="<%= ReadPoint %>" size="10">
【<span class="red">免费阅读请设为 "0"</span><font color="green">，否则有权限的会员阅读此文章时将消耗相应点数，游客将无法阅读此文章</font>】</td>
</tr>
<tr>
<td class="Forumrow" colspan="3" align="center" height="30">
<input type="submit" value=" 提 交 保 存" name="B1" class="smallInput"> <input type="reset" value=" 重 新 添 写" name="B2" class="smallInput"> </td>
</tr></form>
</table>
<%
call CloseConn()
call AdminPageEnd()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -