save.asp

单版面小型论坛 单版面小型论坛

<!--#include file="func.asp"-->
<%
    bid=request.form("bid")
    if isempty(bid) or bid="" then bid=1
    fid=request.form("fid")
    if isempty(fid) or fid="" then fid=0
    
    errmsg=""
    err=0
    
    title=trim(request.form("title"))
    username=trim(request.form("username"))
    usermail=trim(request.form("usermail"))
    content=request.form("content")
    faceimg=trim(request.form("faceimg"))
    
    if faceimg="" then faceimg="01"
    
    title=server.htmlencode(title)
    username=server.HTMLEncode(username)
    usermail=server.HTMLEncode(usermail)
    
    if title="" then
        errmsg=errmsg+"<br><br>您 忘 为 您 的 大 作 标 上 一 个 题 目 ！"
        err=1
    end if
    if username="" then
        errmsg=errmsg+"<br><br>别 忘 了 写 上 您 的 大 名 ！"
        err=1
    end if
	if usermail<>"" then
        if not IsValidEmail(usermail) then
             errmsg=errmsg+"<br><br>请 检 查 您 的 妹 儿 ！ 是 不 是 有 点 错 误 ！"
             err=1
        end if
    end if
    if isempty(content) or content="" then
    	errmsg=errmsg+"<br><br>您 的 大 作 还 没 有 写 上 呢 ？"
        err=1
    end if
	if err=1 then
	    errshow (errmsg)
	end if
	
	if cint(fid)<>0 then
	    retype=fid
	else
	    retype=0
	end if
	wdate=now()
	ldate=now()
 	
%>
<!--#include file="conn.asp"-->
<%
	 if fid<>0 then
	     set update=server.createobject("adodb.recordset")
	     sqlstr="select * from book where id="&fid
	     update.open sqlstr,conn
	     reply=update("reply")+1
	     update.close
	     
	     sqlstr="update book set reply=" & cint(reply)& ",ldate='" &ldate& "' where id="& fid
	     update.open sqlstr,conn
	
		if err.number<>0 then
		    errmsg="回 复 更 新 出 错 ！"
		    errshow
		end if
		
	     set update=nothing
	 end if
	 
     Set cmdTemp = Server.CreateObject("ADODB.Command")
	 Set insert = Server.CreateObject("ADODB.Recordset")
	     cmdTemp.CommandText="SELECT * FROM book WHERE (title IS NULL)"
         cmdTemp.CommandType = 1
         Set cmdTemp.ActiveConnection = conn
  	     insert.Open cmdTemp, , 1, 3
	     insert.AddNew
	     insert("title")=title
	     insert("username")=username
	     insert("usermail")=usermail
	     insert("type")=retype
	     insert("fid")=cint(fid)
	     insert("bid")=cint(bid)
	     insert("faceimg")=faceimg
	     insert("wdate")=wdate
	     insert("ldate")=ldate
	     insert("content")=content
	     insert.update
	     if err.number<>0 then
                 response.write "数据库操作失败："&err.description
         end if

	set insert=nothing
	set cmdTemp=nothing
	set conn=nothing
	response.redirect "topic.asp?bid="&bid

%>