admin_editsave.asp

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

<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>
<!--#include file="./inc/const.asp"-->
<!--#include file="./inc/char.asp"-->
<!--#include file = "../../eWebEditor/Include/DeCode.asp"-->

<%
' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。
sContent = eWebEditor_DeCode(sContent, "")
%>
<%
For i = 1 To Request.Form("content").Count
  sContent = sContent & Request.Form("content")(i)
Next
%>
<%if request("title")="" then%>
<script language=javascript>  
alert( "错误：请输入文章标题！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("boardid")="" then%>
<script language=javascript>  
alert( "错误：请确认选择正确版面！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("Content")="" then%>
<script language=javascript>  
alert( "错误：请输入文章内容！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("about")="" then%>
<script language=javascript>  
alert( "错误：请输入文章关键字！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>

<%set rsold=server.createobject("adodb.recordset")
   sqlold="select * from [article] where id="&request("id")
   rsold.open sqlold,conn,1,1
   fpath=rsold("fpath")
   fname=rsold("fname")
   tempaddtime=rsold("addtime")
   %>

<%
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

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

set rs_2 = server.CreateObject ("Adodb.recordset")
sql_2="select * from demo where ifuse=1 and demoid="&request("demoid")
rs_2.open sql_2,conn,1,1
okfile=rs_2("demohtml")
rs_2.close

Aclassid=request("classid")
Aboardid=request("boardid")

fromsite=request("fromsite")
ArticleContent=Request("Content")
filename=fname
writer=request("writer")
about=request("about")
temptime =year(tempaddtime) & "年" & month(tempaddtime) & "月" & day(tempaddtime) & "日" & hour(tempaddtime)&":"&minute(tempaddtime)
Articletitle=request("title")

okfile = replace(okfile,"classname",classname)
okfile = replace(okfile,"boardname",boardname)
okfile = replace(okfile,"writer",writer)
okfile = replace(okfile,"ArticleContent",ArticleContent)
okfile = replace(okfile,"fromsite",fromsite)
okfile = replace(okfile,"dateandtime",temptime)
okfile = replace(okfile,"ArticleTitle",ArticleTitle)
okfile = replace(okfile,"ArticleAbout",about)
okfile = replace(okfile,"filename", filename)


 Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set fout = fso.Createtextfile(server.mappath("..\"&fpath&"\"&fname),true)
 fout.writeline okfile
fout.close



set rs = server.CreateObject ("adodb.recordset")
sql = "select * from [article] where id="&cstr(request("id"))
	rs.Open sql,conn,1,3
if not rs.eof then
	rs("title").value = Request("title")
	rs("topicid").value = Request("topicid")
	rs("demoid").value = Request("demoid")
	rs("content").value = Request("content")
	rs("fromsite").value = Request("fromsite")
	rs("writer").value = Request("writer")
	rs("about").value = Request("about")
	rs.Update 
end if
rs.Close 
set rs=nothing
response.write("<table width=100% border=0 cellspacing=3 cellpadding=3><tr><td height=20>当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_add.asp>发表文章</a></td></tr></table>")
response.write("<table width=95% cellspacing=1 cellpadding=5 bgcolor=#999999 align=center>")
response.write("<tr bgcolor=#CCCCCC align=center><td colspan=2><b><font color=#cc0000>恭喜，文章修改成功！</font></b></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>标题：</td><td>"&ArticleTitle&"</td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>浏览：</td><td><a href=../"&fpath&"/"&fname&" target=_blank>"&fname&"</a></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>所属版面：</td><td><a href=all_list.asp?classid="&Aclassid&"&boardid=0>"&classname&"</a>>><a href=all_list.asp?classid="&Aclassid&"&boardid="&Aboardid&">"&boardname&"</a></td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>来源：</td><td>"&fromsite&"</td></tr>")
response.write("<tr bgcolor=#eeeeee><td align=right>编辑：</td><td>"&writer&"</td></tr>")
response.write("<tr bgcolor=#eeeeee><td></td><td>【<a href=main.asp><font color=red>返回首页</font></a>】</td></tr>")
response.write("</table>")

end if
%>