add_ok.asp

功能最强大的ASP网站

<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
title=request("title")
url=request("url")
ne=request("news")
tag=trim(GernerateHtml(request("tag")))
color=trim(GernerateHtml(request("color")))
hide=trim(GernerateHtml(request("hide")))
smallclassname=trim(GernerateHtml(request("smallclassname")))
xiangguan=trim(GernerateHtml(request("xiangguan")))
BigClassName=request("BigClassName")
	mContent = trim(Request.form("cnWords")) 
	mContent = Replace(mContent,"<script","<sscript") 
	mContent = Replace(mContent,"/script>","/scripts>")
	mContent = Replace(mContent,"/script >","/scripts>")
	mimageNum = Request.form("imageNum")
	firstImageName = trim(Request.form("editFirstImageName"))
user=request("user")
ok=request("ok")

set rs=server.createobject("adodb.recordset")
sql="select * from news where (bh is null)"
rs.open sql,conn,1,3
if BigClassName="" then
response.Redirect("admin_wrong.asp?url=admin_add.asp&reason=你可能没填写分类标题或者你还没添加分类!")
end if
if title="" then
response.Redirect("admin_wrong.asp?url=admin_add.asp&reason=你可能没填写新闻标题!")
else
rs.addnew
rs("title")=title
rs("content")=mcontent
rs("author")=user
rs("BigClassName")=BigClassName
rs("url")=url
rs("infor")=ne
rs("tag")=tag
rs("color")=color
rs("hide")=hide
rs("smallclassname")=smallclassname
rs("xiangguan")=xiangguan
rs("time")=now
timenow=now
if ok<>"" then rs("ok") = ok
if mimageNum<>"" then rs("imageNum") = mimageNum 
if firstImageName<>"" then rs("firstImageName") = firstImageName
rs.update
rs.close
set rs=nothing

if url="" then
set rs=server.createobject("adodb.recordset")
sql="select * from news where title='"&title&"'"
rs.open sql,conn,1,3
num=rs("bh")


set rs1=server.createobject("adodb.recordset")
sql1="select * from example where bh=1"
rs1.open sql1,conn,1,3
moban=rs1("example")
moban=replace(moban,"E_author",user)
moban=replace(moban,"E_title",title)
moban=replace(moban,"E_content",mcontent)
moban=replace(moban,"E_now",timenow)
moban=replace(moban,"E_fenlei",bigclassname)
moban=replace(moban,"E_num",num)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("files/"&num&".html"))
fout.WriteLine moban
fout.close

conn.close  
set conn=nothing
response.Redirect("admin_right.asp?url=admin_info.asp&reason=添加新闻成功,系统将自动转入管理页面")
else
response.Redirect("admin_right.asp?url=admin_info.asp&reason=添加新闻成功,系统将自动转入管理页面")
end if
end if
%>