📄 addnews2.asp
字号:
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="check" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF
BigClassName=Request("BigClassName")
if BigClassName="" then
%>
<script language=javascript>
history.back()
alert("请选择文章大类，如果没有文章大类，将不能添加文章，请在类别管理里添加您所需要的文章大类的名称！")
</script>
<%
Response.End
end if
set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from BigClass where BigClassName='" & BigClassName & "'"
rs.Open rs.source,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加文章</title>
<link rel="stylesheet" type="text/css" href="site.css">
<script language="javascript">
<!--
function CheckForm()
{
document.form1.content.value=document.form1.doc_html.value;
return true
}
//-->
</script>
</head>
<body>
<%set rs5=server.CreateObject ("ADODB.RecordSet")
rs5.Source="select * from system"
rs5.Open rs5.source,conn,1,1
%>
<form method="POST" action="<%if rs5("upload")="1" then%>addnews3.asp<%else%>addnews33.asp<%end if%>" onsubmit="return CheckForm()" name="form1">
<div align="center"><center>
<table border="0" cellspacing="0" width="81%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" bgcolor="#000000">
<tr align="center">
<td width="100%">
<table border="0" cellspacing="1" width="609" cellpadding="3">
<tr align="center">
<td colspan="4" height="30" class="unnamed2" valign="middle" bgcolor="#abb8d6" width="631"><b class="unnamed2">添
加 文 章</b> </td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">所属大类：</td>
<input type=hidden name="BigClassName" value='<%=BigClassName%>'>
<td width="533" bgcolor="#FFFFFF" colspan="3"> <%=BigClassName%></td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">所属小类：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3">
<select name="SmallClassName" size="1">
<%
set rs2=server.createobject("adodb.recordset")
rs2.Source="select * from SmallClass where BigClassName='" & BigClassName & "' order by SmallClassid"
rs2.open rs2.Source,conn,1,1
if rs2.eof and rs2.bof then %>
<option value="">还没有小类</option>
<%
else
%>
<option value="">选择小类</option>
<%do while not rs2.eof%>
<option value='<%=trim(rs2("SmallClassName"))%>'><%=trim(rs2("SmallClassName"))%></option>
<%
rs2.movenext
loop
end if
rs2.close
%>
</select><font color="#FF0000">＊</font></td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">所属专题：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3">
<select name="SpecialID" size="1">
<%
set rs3=server.CreateObject ("ADODB.RecordSet")
rs3.Source="select * from Special"
rs3.Open rs3.source,conn,1,1
%>
<option value=0>不属于任何专题</option>
<%if rs3.EOF then %>
<option value=0>暂无任何专题</option>
<%else
while not rs3.EOF
%>
<option value="<%=rs3("SpecialID")%>"><%=trim(rs3("SpecialName"))%></option>
<%
rs3.MoveNext
wend
end if
rs3.close
%>
</select>
</td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章标题：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3"> <span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<input name="txttitle" id=me type="TEXT" size=60 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span> <font color="#FF0000">＊</font></td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章来源：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3"> <span style='cursor:hand' title='缩短对话框' onClick='if (message.size>10)message.size=message.size-2'>-</span>
<input name="Original" id=message type="TEXT" size=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (message.size<102)message.size=message.size+2'>+</span>
</td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章作者：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3"><span style='cursor:hand' title='缩短对话框' onClick='if (mess.size>10)mess.size=mess.size-2'>-</span>
<input name="Author" id=mess type="TEXT" size=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (mess.size<102)mess.size=mess.size+2'>+</span>
</td>
</tr>
<tr>
<td width="97" align="right" valign="top" class="unnamed2" bgcolor="#FFFFFF">文章内容：<br><font color="#FF0000">＊</font> </td>
<td width="533" bgcolor="menu" colspan="3">
<object id=doc_html style="LEFT: 0px; TOP: 0px" data=editor.htm width=521
height=320 type=text/x-scriptlet VIEWASTEXT>
</object>
<input type="hidden" name="content" value="">
</td>
</tr>
<tr>
<td width="97" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">相关文章：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3"><span style='cursor:hand' title='缩短对话框' onclick='if (ss.size>10)ss.size=ss.size-2'>-</span>
<INPUT NAME="about" id=ss TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onclick='if (ss.size<102)ss.size=ss.size+2'>+</span>
填入关键字或完整标题 </td>
</tr>
<tr>
<td width="97" align="right" bgcolor="#FFFFFF">编码方式：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3">
<select size="1" name="EnCode">
<option value="html">默认方式</option>
<option value="ubb">UBB方式</option>
</select>
</td>
</tr>
<tr>
<td width="97" align="right" valign="middle" class="unnamed2" bgcolor="#FFFFFF">推荐文章：</td>
<td width="533" valign="middle" bgcolor="#FFFFFF" colspan="3">
<input type="radio" value="1" name="goodnews">
是
<input type="radio" value="0" checked name="goodnews">
否 生成推荐文章</td>
</tr>
<tr>
<td width="97" align="right" bgcolor="#FFFFFF">热点文章：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3">
<input type="radio" value="1" name="hot">
是
<input type="radio" value="0" name="hot" checked>
否 加入排行榜</td>
</tr>
<tr>
<td width="97" align="right" bgcolor="#FFFFFF">首页图片：</td>
<td width="533" bgcolor="#FFFFFF" colspan="3">
<input type="radio" value="1" name="sypic">
是
<input type="radio" value="0" name="sypic" checked>
否 生成首页图片JS</td>
</tr>
<tr>
<td width="97" align="right" bgcolor="#FFFFFF">图片张数：</td>
<td width="76" bgcolor="#FFFFFF">
<select size="1" name="image">
<option selected>0</option>
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
</select></td>
<td width="74" bgcolor="#FFFFFF"> 图片位置：</td>
<td width="367" bgcolor="#FFFFFF">
<select size="1" name="pos">
<option selected value="">自己添加图片代码</option>
<option value="文章前">文章前</option>
<option value="文章后">文章后</option>
</select></td>
</tr>
<tr bgcolor="#abb8d6" align="center">
<td colspan="4" height="50" width="631">
<input name="check" type="hidden" value="<%if session("key")="super" or session("key")="check" then%>1<%else%><%if rs5("usecheck")="1" then%>1<%else%>0<%end if%><%end if%>"><%rs5.close%>
<input name="editor" type="hidden" value="<%=session("username")%>">
<input type="submit" value=" 添 加 "
name="cmdok" class="unnamed5">
<input type="reset" value=" 清 除 "
name="cmdcancel" class="unnamed5">
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -