add_userok.asp

功能最强大的ASP网站

<!--#include file="conn.asp"-->
<!--#include file="fso.asp"-->
<!--#include file="setting.asp"-->
<%
title=trim(request("title"))
	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 user_news where (bh is null)"
rs.open sql,conn,1,3
if title="" then
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('请填写标题！');" & Chr(13)
		response.write "window.document.location.href='http://www.tdworks.cn';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
else
rs.addnew
rs("title")=title
rs("content")=mcontent
rs("author")=user
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

set rs=server.createobject("adodb.recordset")
sql="select * from user_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=3"
rs1.open sql1,conn,1,3
moban=rs1("example")
moban=replace(moban,"E_title",title)
moban=replace(moban,"E_content",mcontent)
moban=replace(moban,"E_now",timenow)
moban=replace(moban,"E_fenlei","用户新闻专区")
moban=replace(moban,"E_num",num)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath("users/"&num&".html"))
fout.WriteLine moban
fout.close

conn.close  
set conn=nothing
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('新闻提交成功！');" & Chr(13)
		response.write "window.document.location.href='http://www.tdworks.cn';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
%>