add_save.asp

本系统为ASP版 1

<!--#include file="../inc/check.asp"-->
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_info.asp"-->
<!--#include file="../inc/char.inc"-->
<%
savetime=Now()+webtime/24
set rs=server.CreateObject("ADODB.RecordSet")             
if request.form("tid")="" then errmsg=errmsg & "＂文章类别＂必选! \n"    
if request.form("form_user")="" then errmsg=errmsg & "＂作者＂不能为空! \n"               
if request.form("title")="" then errmsg=errmsg & "＂文章名称＂不能为空! \n"
if request("title")<>"" then
rs.open "select * from info where title='"&request("title")&"' and tid="&request("tid"),conn,1,1
if not rs.eof then errmsg=errmsg & "本类别内已经有相同的文章了! \n"
rs.close
end if

if errmsg<>"" then
   set rs=nothing
   conn.close
   set conn=nothing
   response.write("<script>alert('" & errmsg & "');history.go(-1)</script>") 
else
		sql="select * from info where (id is null)"
		rs.open sql,conn,1,3
		rs.addnew
		rs("tid")=request("tid")
		rs("se")=request("se")
		rs("title")=request("title")
		rs("form_user")=request("form_user")
		rs("form_url")=request("form_url")
		  if request("html")="yes" then
			rs("info")=request("body")
		  else
			rs("info")=htmlencode(request("body"))
		  end if
		rs("date")=savetime
		rs.update
		if request("makehtml")="yes" then
		temp = rs.bookmark
		rs.bookmark = temp
		newid=rs.Fields("ID")
		end if
		rs.close
				
set rs=nothing
conn.close
set conn=nothing
if request("makehtml")="yes" then
response.write("")
end if
response.write("<Script Language=Javascript>window.alert('您的信息已经成功提交,我们会在第一时间审核你的信息,谢谢!');location.href='../user/main.asp';</Script>")
response.end
end if
%>