admin_edit.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

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

<%
' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。
sContent = eWebEditor_DeCode(sContent, "")
%>
<link href=../css/main.css rel=stylesheet>
<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>
<%
   set rsold=server.createobject("adodb.recordset")
   sqlold="select * from [article] where id="&request("id")
   rsold.open sqlold,conn,1,1
   
%>


<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_edit.asp?id=<%=request("id")%>>修改文章</a></td>
  </tr>
</table>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor="#999999" align="center">
<form action="admin_editsave.asp?id=<%=rsold("id")%>&classid=<%=rsold("classid")%>&boardid=<%=rsold("boardid")%>" 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=80 value="<%=rsold("title")%>"></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")%> <%if rs("topicid")=rsold("topicid") then response.write " selected " end if%>>>> <%=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")%> <%if rs("demoid")=rsold("demoid") then response.write " selected " end if%>><%=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="<%=Server.HTMLEncode(rsold("Content"))%>">
<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 value=<%=rsold("fromsite")%>>
<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><a href=admin_from.asp?action=addfrom><font color=blue>增加新来源</font></a></td></tr>


<tr bgcolor=#eeeeee><td align=right>编辑：</td><td><input type="text" name="writer" size="15" value=<%=rsold("writer")%>></td></tr>
<tr bgcolor=#eeeeee><td align=right>关键字：</td><td><input type="text" name="about" size="30" value=<%=rsold("about")%>></td></tr>


<tr bgcolor=#eeeeee><td align=right></td><td align="center"><input type="submit" name="Submit" value="完成">&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" name="Submit2" value="重填"></td></tr>

 </form></table>

 
 <%rsold.close
 set rsold=nothing%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>