add_save.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("Content")="" 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>
<%else%>
<% 
title=request("title")
set rs = server.CreateObject ("adodb.recordset")
sql="select * from article where title='" &title&"' and Fpath=date()"
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
rs.close
set rs=nothing%>
<script language=javascript>  
alert( "错误：文章已存在，请不要重复发表"  );
location.href = "javascript:history.back()"  
</script>
<%else%>

<%
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname & ".htm"
end function 
%> 

<%

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=sContent
writer=request("writer")
filename=makefilename(now())
about=request("about")
temptime =year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
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)


dim fpath
fpath="..\"&cstr(year(now()) &"-" & month(now()))
fname=makefilename(now())
 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 is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs("classid")=request("classid")
rs("boardid")=request("boardid")
rs("topicid")=request("topicid")
rs("fromsite")=fromsite
rs("writer")=writer
rs("fpath")=cstr(year(now()) &"-" & month(now()))
rs("fname")=fname
rs("ifhead")=request("ifhead")
rs("ifgood")=request("ifgood")
rs("ifimg")=request("ifimg")
rs("demoid")=request("demoid")
if session("userkey")=3 or session("userkey")=4 then
rs("ifshow")=1
else
rs("ifshow")=0
end if
rs("addtime")=now()
rs("about")=about
rs("username")=session("username")
rs.update
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=admin_add.asp> <font color=red>继续发表</font></a>】&nbsp;&nbsp;&nbsp;&nbsp;【<a href=main.asp><font color=red>返回首页</font></a>】</td></tr>")
response.write("</table>")
rs.close
set rs=nothing

set rs = server.CreateObject ("Adodb.recordset")
sql="select * from class where classid="& cstr(request("classid"))
rs.open sql,conn,1,1
count=rs("classNum")+1
rs.close
sql="update class set classNum="&count&" where classid="&cstr(request("classid"))
conn.execute(sql)

set rs = server.CreateObject ("Adodb.recordset")
sql="select * from board where boardid="& cstr(request("boardid"))
rs.open sql,conn,1,1
count1=rs("boardNum")+1
rs.close
sql="update board set boardNum="&count1&" where boardid="&cstr(request("boardid"))
conn.execute(sql)

username=session("username")
set rs = server.CreateObject ("Adodb.recordset")
rs.Open "Select * From users where username='" &username&"'", conn, 3,3
'sql="select * from users where username= "& trim(session("username"))
'rs.open sql,conn,1,1
count2=rs("articleNum")+1
rs.close
sql="update users set articleNum="&count2&" where username='" &username&"'"
conn.execute(sql)

end if
end if
%>