www.gusucode.com > 追梦翔飞数字报静态生成版 7.0 体验版码程序 > admin/addinfo_ok.asp

    <!--#include file="Admin.asp" -->
<!--#include file="cf.asp" -->
<!--#include file="../include/conn.asp" -->
<!--#include file="../include/safe.asp"-->
<%
 
function txttourl(tekst)
tekst_temp = tekst
tekst_temp = replace(tekst_temp,"<","&lt;")
tekst_temp = replace(tekst_temp,">","&gt;")
tekst_temp = replace(tekst_temp,"chr(13)","<br>")
tekst_temp = replace(tekst_temp,"#","<br>")

tekst_temp = replace(tekst_temp,chr(13),"<br>")
tekst_temp = replace(tekst_temp,"[","<b>")
tekst_temp = replace(tekst_temp,"]","</b>")
txttourl = tekst_temp
end function
%>
<%
if request.form("subsave")="subok" then
title=request.form("title")
bigclassname=request.form("bigclassname")
smallclassname=request.form("smallclassname")
for i = 1 to request.form("demo").count
	scontent = scontent & request.form("demo")(i)
next
demo=scontent
user=request.form("user")
come=request.form("come")

set rs=server.createobject("adodb.recordset")
sql="select * from FangBao_News where (id is null)"

rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=demo
rs("come")=come
rs("user")=user
rs("bigclassname")=bigclassname
rs("smallclassname")=smallclassname
rs("Hits")=1
rs.update
rs.close
set rs=nothing
conn.close  
set conn=nothing
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('新闻提交成功！');" & chr(13)
		response.write "window.document.location.href='NewsManage.asp';"&chr(13)
		response.write "</script>" & chr(13)
response.end
  else
response.write"<script language=javascript>alert('对不起，操作错误！');"
response.write"javascript:history.go(-1)</script>"
response.end
  end if
%>