📄 admin_articlemod.asp
字号:
<% rssmall.movenext
loop
end if
end if
rssmall.close
set rssmall=nothing
%>
</select>
<span class="style1">*</span> <%set rsspe=conn.execute("select * from special order by specialid desc")%>
所属专题：
<select name="special" class="but" id="special">
<option value="">请选择所属专题</option>
<%if rsspe.bof or rsspe.eof then%>
<option value="">还没有专题</option>
<%else%>
<%do while not rsspe.eof %>
<option value="<%=rsspe("special")%>" <%If (Not isNull(rsarid("special"))) Then If (rsarid("special") = CStr(rsspe("special"))) Then Response.Write("SELECTED") : Response.Write("")%>><%=rsspe("special")%></option>
<%rsspe.movenext
loop
end if
rsspe.close
set rsspe=nothing
%>
</select></td>
</tr>
<tr>
<td class="txt05">关键字：
<input name="textkey" type="text" class="but" id="textkey" value="<%=rsarid("textkey")%>" maxlength="50">
<span class="style1">*</span>用于查找该文章 </td>
</tr>
<tr>
<td class="txt05">转向链接地址：
<input name="urlto" type="text" class="but" id="urlto" value="<%=rsarid("urlto")%>" size="50" maxlength="255"></td>
</tr>
<tr>
<td class="txt05"> 文件上传：
<iframe class="TBGen" style="top:2px" ID="UploadFiles" src="upload.asp" frameborder=0 scrolling=no width="300" height="20"></iframe>
（可以是图片SWF或附件） </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" class="txt05"><p>文章内容：<span class="style1">*</span></p>
<p>最好保持默认的字体大小</p></td>
<td width="88%"><textarea name="Content" style="display:none"><%=rsarid("content")%></textarea>
<iframe ID="editor" src="../editor.asp" frameborder=1 scrolling=no width="700" height="465"></iframe> </td>
</tr>
</table></td>
</tr>
<tr>
<td class="txt05"> 是否包含图片
<%if rsarid("includepic")=true then%>
<input name="includepic" type="checkbox" id="includepic" value="yes" checked>
<%else%>
<input name="includepic" type="checkbox" id="includepic" value="yes">
<%end if%>
首页图片地址：
<input name="defaultpic" type="text" class="but" id="defaultpic" value="<%=rsarid("defaultpic")%>" size="40" maxlength="255">
<br>请选择首页图片地址：
<select name="DefaultPicList" class="but" id="DefaultPicList" onChange="defaultpic.value=this.value;">
<option value=""<% if rsarid("defaultpic")="" then response.write "selected" %>>选择首页图片</option>
<%
if rsarid("UploadFiles")<>"" then
dim IsOtherUrl
IsOtherUrl=True
if instr(rsarid("UploadFiles"),"|")>1 then
dim arrUploadFiles,intTemp
arrUploadFiles=split(rsarid("UploadFiles"),"|")
for intTemp=0 to ubound(arrUploadFiles)
if rsarid("defaultpic")=arrUploadFiles(intTemp) then
response.write "<option value='" & arrUploadFiles(intTemp) & "' selected>" & arrUploadFiles(intTemp) & "</option>"
IsOtherUrl=False
else
response.write "<option value='" & arrUploadFiles(intTemp) & "'>" & arrUploadFiles(intTemp) & "</option>"
end if
next
else
if rsarid("UploadFiles")=rsarid("defaultpic") then
response.write "<option value='" & rsarid("UploadFiles") & "' selected>" & rsarid("UploadFiles") & "</option>"
IsOtherUrl=False
else
response.write "<option value='" & rsarid("UploadFiles") & "'>" & rsarid("UploadFiles") & "</option>"
end if
end If
if IsOtherUrl=True then
response.write "<option value='" & rsarid("defaultpic") & "' selected>" & rsarid("defaultpic") & "</option>"
end if
end if
%>
</select>
<input name="uploadfiles" type="hidden" id="uploadfiles" value="<%=rsarid("uploadfiles")%>"> </td></tr>
<tr>
<td class="txt05">选择分页方式：
<select name="pageno" class="but" id="pageno">
<option value="1" <%If (Not isNull(rsarid("pageno"))) Then If ("1" = CStr(rsarid("pageno"))) Then Response.Write("SELECTED") : Response.Write("")%>>不分页</option>
<option value="2" <%If (Not isNull(rsarid("pageno"))) Then If ("2" = CStr(rsarid("pageno"))) Then Response.Write("SELECTED") : Response.Write("")%>>自动分页</option>
<option value="3" <%If (Not isNull(rsarid("pageno"))) Then If ("3" = CStr(rsarid("pageno"))) Then Response.Write("SELECTED") : Response.Write("")%>>手动分页</option>
</select>
手动分页请在编辑文章时插入<span class="txt04">pageNo</span>字符，注意<span class="txt04">大小写</span>,如是WORD文档或有图片，建议选择此项或选择不分页。</td>
</tr>
<tr>
<td class="txt05">文章属性：<%if rsarid("ontop")=1 then%>
<input name="ontop" type="checkbox" id="ontop" value="1" checked>
<%else%>
<input name="ontop" type="checkbox" id="ontop" value="1">
<%end if%>
固顶
<%if rsarid("elite")=2 then%>
<input name="elite" type="checkbox" id="elite" value="2" checked>
<%else%>
<input name="elite" type="checkbox" id="elite" value="2" >
<%end if%>
推荐
<%if rsarid("hot")=3 then%>
<input name="hot" type="checkbox" id="hot" value="3" checked>
<%else%>
<input name="hot" type="checkbox" id="hot" value="3">
<%end if%>
精华</td>
</tr>
<tr>
<td class="txt05">文章级别：
<select name="textclass" class="but" id="textclass">
<option value="">请选择文章阅读级别</option>
<option value="0" <%If (Not isNull(rsarid("textclass"))) Then If ("0" = CStr(rsarid("textclass"))) Then Response.Write("SELECTED") : Response.Write("")%>>一般游客</option>
<option value="1" <%If (Not isNull(rsarid("textclass"))) Then If ("1" = CStr(rsarid("textclass"))) Then Response.Write("SELECTED") : Response.Write("")%>>注册用户</option>
<option value="2" <%If (Not isNull(rsarid("textclass"))) Then If ("2" = CStr(rsarid("textclass"))) Then Response.Write("SELECTED") : Response.Write("")%>>普通会员</option>
<option value="3" <%If (Not isNull(rsarid("textclass"))) Then If ("3" = CStr(rsarid("textclass"))) Then Response.Write("SELECTED") : Response.Write("")%>>中级会员</option>
<option value="4" <%If (Not isNull(rsarid("textclass"))) Then If ("4" = CStr(rsarid("textclass"))) Then Response.Write("SELECTED") : Response.Write("")%>>高级会员</option>
<option value="5" <%If (Not isNull(rsarid("textclass"))) Then If ("5" = CStr(rsarid("textclass"))) Then Response.Write("SELECTED") : Response.Write("")%>>特级会员</option>
</select>
<span class="style1">*</span>文章点击数：
<input name="hits" type="text" class="but" id="hits" value="<%=rsarid("hits")%>" size="10" maxlength="18"></td>
</tr>
<tr>
<td height="30" class="txt05">版权信息：
<select name="copyright" class="but" id="copyright">
<option value="可以任意转载，但需保留<%=webtext%>信息">可以任意转载，但需保留<%=webtext%>信息</option>
<option value="可以任意转载，但需保留原作者信息">可以任意转载，但需保留原作者信息</option>
<option value="如转载需经作者同意">如转载需经作者同意</option>
<option value="如转载需经<%=webtext%>同意">如转载需经<%=webtext%>同意</option>
<option value="如转载需经<%=webtext%>和原作者同意">如转载需经<%=webtext%>和原作者同意</option>
<option value="本文来自网络，可以任意转载">本文来自网络，可以任意转载</option>
<option value="本文来自网络，可以任意转载，但需保留出处">本文来自网络，可以任意转载，但需保留出处</option>
<option value="可以任意转载">可以任意转载</option>
</select>
<font color="#FF6600">*</font>请确认该文章的版权
</td>
</tr>
<tr>
<td class="txt05">是否允许评论：
<input name="yescomment" type="checkbox" id="yescomment" value="yes" <%if rsarid("yescomment")=true then%>checked<%end if%>></td>
</tr>
<tr>
<td class="txt05">通过审核：
<%if rsarid("passed")=true then%>
<input name="passed" type="checkbox" id="passed" value="ok" checked>
<%else%>
<input name="passed" type="checkbox" id="passed" value="ok">
<%end if%>
最后修改时间：
<input name="edittime" type="text" class="but" id="edittime" value="<%=now()%>" size="18" maxlength="20">
保持时间的格式不要更改</td>
</tr>
<tr>
<td align="center"><input name="Submit" type="submit" class="but" value="修改">
<input name="armodsave" type="hidden" id="armodsave" value="modsave">
</td>
</tr>
</table>
</form>
<%end if
end if
end if
rsarid.close
set rsarid=nothing
call closeconn()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -