admin_add.asp

来自「网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提」· ASP 代码 · 共 193 行

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<!--#include file="./inc/const.asp"-->
<!--#include file = "../../eWebEditor/Include/DeCode.asp"-->

<%
' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。
sContent = eWebEditor_DeCode(sContent, "")
%>
<link href=../css/main.css rel=stylesheet>
<%
Aclassid=request("classid")
Aboardid=request("boardid")
if request("classid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from class where classid="& cstr(request("classid"))
rs.open sql,conn,1,1
classname=rs("classname")
rs.close
end if

if request("boardid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from board where boardid="& request("boardid")
rs.open sql,conn,1,1
boardname=rs("boardname")
rs.close
end if
%>
<script language="JavaScript">
<!--
function Dofromsite(addfromsite)
{ 
var fromsite = document.form1.addfromsite.value; 
document.form1.fromsite.value=fromsite; 
document.form1.fromsite.focus(); 
return; }
//-->
</script>
<script language="javascript">
<!--
function na_select_form (fname, type_name) 
{
  document.forms[fname].elements[type_name].select()
  document.forms[fname].elements[type_name].focus()
}

function checkdata()
{
if (document.form1.title.value=="")
	{
	  alert("对不起，请输入文章标题！")
	  document.form1.title.focus()
	  return false
	 }
if (document.form1.about.value=="")
	{
	  alert("对不起，请输入关键字！")
	  document.form1.about.focus()
	  return false
	 }
}
//-->
</script>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> 快速发表文章</td>
  </tr>
</table>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor="#999999" align="center">
<form action="add_save.asp" method=POST  name="form1"  OnSubmit="return checkdata()" onReset="return ResetForm();" >
<tr bgcolor="#CCCCCC" align=center><td colspan="2"><b>快速发表文章</b></td></tr>
<tr bgcolor=#ffffff height=20><td colspan="2"></td></tr>
<tr bgcolor=#eeeeee><td width=20% align=right>标题：</td><td><input type=text name=Title size=90></td></tr>
<tr bgcolor=#eeeeee><td width=20% align=right>选择版面：</td><td>
<%dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from board order by classid desc"
rs.open sql,conn,1,1%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%count = 0
do while not rs.eof %>
subcat[<%=count%>] = new Array("<%= trim(rs("boardname"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("boardid"))%>");
<%count = count + 1
rs.movenext
loop
rs.close%>
onecount=<%=count%>;
function changelocation(locationid)
{document.form1.boardid.length = 0; 
 var locationid=locationid;
 var i;
 for (i=0;i < onecount; i++)
{if (subcat[i][1] == locationid)
{document.form1.boardid.options[document.form1.boardid.length] = new Option(subcat[i][0], subcat[i][2]);
}}}    
</script>

<%sql = "select * from class order by classid desc"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
  response.write "请先添加总类。"
  response.end
  else%>
<select name="classid" onChange="changelocation(document.form1.classid.options[document.form1.classid.selectedIndex].value)" size="1">
<option value="">==选择栏目==</option>
<%do while not rs.eof%>
<option value="<%=trim(rs("classid"))%>"><%=trim(rs("classname"))%></option>

<%rs.movenext
  loop
  end if
  rs.close
  set rs = nothing%>
</select>
<select name="boardid"><option value="">==请选版面==</option></select>
<font color="#CC0000">请一定选择正确</font></td></tr>
<tr bgcolor=#eeeeee><td align=right>专题：</td><td>
<select name="topicid" size="5" >
<option value="0" selected>不属于任何专题</option>
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select topicid,topicname,ifpub from  topic where ifpub=1 order by topicid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<option value=0>请先添加专题</option>"
else
do while not rs.EOF%>
<option value=<%=rs("topicid")%> >>> <%=rs("topicname")%></option>
<%rs.MoveNext 
loop
end if
rs.Close 
set rs=nothing%>
</select></td></tr>


<tr bgcolor=#eeeeee><td align=right>模版：</td>
<td> <select name="demoid" size="1" >
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select demoid,demoname from demo where ifuse=1 order by demoid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<option value=>请先添加模版</option>"
else
do while not rs.EOF%>
<option value=<%=rs("demoid")%>><%=rs("demoname")%></option>
<%rs.MoveNext 
loop
end if
rs.Close 
set rs=nothing%></select></td></tr>
<tr bgcolor=#eeeeee><td align=right>内容：</td><td width="680" colspan="3" valign="top">
<input type="hidden" name="Content" value="">
<iframe ID="form1" src="../../eWebEditor/eWebEditor.asp?id=content&style=chinaue" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>
</td></tr>

<tr bgcolor=#eeeeee><td align=right>文章来源：</td>
<td><input type=text name="fromsite" size=20 >
<select name="addfromsite" size="1"  onchange=Dofromsite(this.options[this.selectedIndex].value)>
<option value=网页酷吧>默认来源</option>
<%set rs = server.CreateObject ("Adodb.recordset")
sql = "select fromid,fromname from [from] order by fromid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<option value=>请先添加来源</option>"
else
do while not rs.EOF%>
<option value=<%=rs("fromname")%>><%=rs("fromname")%></option>
<%rs.MoveNext 
loop
end if
rs.Close 
set rs=nothing%></select><%if session("userkey")>=3 then%><a href=admin_from.asp><font color=blue>管理来源</a><%end if%></td></tr>

<tr bgcolor=#eeeeee><td align=right>编辑：</td><td><input type="text" name="writer" size="15" value=<%=session("username")%>></td></tr>
<tr bgcolor=#eeeeee><td align=right>关键字：</td><td><input type="text" name="about" size="35"></td></tr>
<tr bgcolor=#eeeeee><td align=right>头条：</td><td><input type="radio" name="ifhead" value="1">是 <input type="radio" name="ifhead" value="0" checked> 否</td></tr>
<tr bgcolor=#eeeeee><td align=right>焦点：</td><td><input type="radio" name="ifgood" value="1">是 <input type="radio" name="ifgood" value="0" checked> 否</td></tr>
<tr bgcolor=#eeeeee><td align=right>图片：</td><td><input type="radio" name="ifimg" value="1">是 <input type="radio" name="ifimg" value="0" checked>  否</td></tr>
<tr bgcolor=#eeeeee><td></td><td align="center"><input type="submit" name="Submit" value="完成"> &nbsp;&nbsp;&nbsp;&nbsp;
<input type="reset" name="Submit2" value="重填"></td></tr>
</form></table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>