addinfo_ok.asp

一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风格,是大家非常值得学习的一个网站.

<%'容错处理
On Error Resume Next
%>
<!--#include file="adminconn.inc"-->
<!--#include file="lib.asp" -->
<%
title=request("title")
BigClassName=request("BigClassName")
SmallClassName=request("SmallClassName")
	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")
fname = makefilename(now())  'makefilename为自定义函数 
folder = "../news/"&date()&"/"
filepath = folder&fname
set rs=server.createobject("adodb.recordset")
sql="select * from NEWS where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=mcontent
rs("user")=user
rs("infotime")=now()
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("c_filepath")=filepath
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
set js = server.CreateObject("ADODB.RecordSet")
sql="select * from bigclass"
set js = conn.Execute (Sql) 
do while not js.eof
    bigclass=js("BigClassName")   
goaler = goaler + " <td height='30' align='center'  onmouseover='this.bgColor='#FFFFFF';'onmouseout='this.bgColor='#CCCCCC';'bgColor=#CCCCCC>"&"<a href=../../dis_big.asp?b_soft_id="&BigClass&">"&BigClass&"</a></td>"
js.movenext 
loop
goaler = "<table width='100%' height='29' border='0' cellpadding='0' cellspacing='1' bgcolor='#CCCCCC'><tr>" + goaler + "</tr></table>"
js.close
set js = nothing

set rs2=server.createobject("adodb.recordset")
sql="select top 1 * from news order by infotime desc"
rs2.open sql,conn,1,1
if not rs2.eof then
newsid=rs2("id")
end if
rs2.close
set rs2=nothing
sql1="select m_id,m_html from c_moban where m_id=1"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("m_html")
rs1.close
set rs1=nothing
conn.close
set conn=nothing
c_title=htmlencode(title)
c_content=mcontent
mb_code=replace(mb_code,"$cntop$",now())
mb_code=replace(mb_code,"$cnleft$",c_title)
mb_code=replace(mb_code,"$cnbigclass$",goaler)
mb_code=replace(mb_code,"$cnbgname$",bigclassname)
mb_code=replace(mb_code,"$cnsmname$",smallclassname)
mb_code=replace(mb_code,"$cnuser$",user)
mb_code=replace(mb_code,"$cnid$",newsid)
mb_code=replace(mb_code,"$cnright$",c_content)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(folder))
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine mb_code
fout.close
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('新闻提交成功！');" & Chr(13)
		response.write "window.document.location.href='admin_info.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
%>