write.asp

树型ASP论坛下载

<!--#include file="opendb.asp" -->
<%
nickname=request("nickname")

'==检查非登录(非注册)用户名是否和注册用户名冲突==
if nickname<>"" then
 set rs=server.createobject("ADODB.Recordset")
 sql="select * from users where nickname='"&nickname&"'"
 rs.open sql,conn,1,3
 if rs.recordcount>0 then
%>
  <script language="javascript"> 
  alert("您的名字已经有人注册, 请用别的名字吧！");
  history.go(-1);
  </script> 
 <%
  
  set rs=nothing
  rs.close
  end if
 end if
'==end检查

indexid=request("indexid")
board=request("board")
suboard=request("suboard")
subject=left(trim(request("subject")),100)
sex=request("sex")
email=trim(request("email"))
area=request("area1")+trim(request("area2"))
classid=request("face")
document=trim(request("content"))
usign=trim(request("usign"))

if subject<>"" then
 '事务处理和卷回处理
' conn.BeginTrans
   set rs1=server.createobject("adodb.recordset")
   if indexid="" then '写到首贴表
     rs1.open "select * from yfindex",conn,1,3
     rs1.addnew
	 if session("userid")<>"" then '登录者写入信息
	  rs1("userid")=session("userid")
	  rs1("nickname")=session("nickname")
	  if usign<>"" then
	   set rs_u=server.createobject("adodb.recordset")
	   rs_u.open "select usign from users where userid="&session("userid"),conn,1,3
	   rs1("usign")=rs_u("usign")
	   set us_u=nothing	   
	  end if
	 else  '非登录者写入信息
	  rs1("nickname")=nickname
	  rs1("sex")=cint(sex)
	  rs1("area")=area
	  rs1("email")=email
	 end if
     rs1("board")=cint(board)
	 rs1("suboard")=cint(suboard)
     rs1("title")=subject
     rs1("content")=document
     rs1("classid")=classid
	 rs1("ip")=Request.ServerVariables("REMOTE_ADDR")
     rs1.update
     rs1.Close
	 
    set rs1=nothing
   else  '写到回复表
     rs1.open "select * from yfrep",conn,1,3
     rs1.addnew
	 if session("userid")<>"" then  '登录者写入信息
	'Response.Write "aaa="&usign
	'Response.end	 
	  rs1("userid")=session("userid")
	  rs1("nickname")=session("nickname")
	  if usign<>"" then
	   set rs_u=server.createobject("adodb.recordset")
	   rs_u.open "select usign from users where userid="&session("userid"),conn,1,3
	   rs1("usign")=rs_u("usign")
	   set us_u=nothing	   
	  end if
	 else '非登录者写入信息
	  rs1("nickname")=nickname
	  rs1("sex")=cint(sex)
	  rs1("area")=area
	  rs1("email")=email
	 end if
     rs1("indexid")=indexid
     rs1("content")=document
     rs1("classid")=classid
	 rs1("ip")=Request.ServerVariables("REMOTE_ADDR")
     rs1.update
     rs1.Close
     set rs1=nothing
     repsql="update yfindex set renum=renum+1 where indexid="&indexid&""
     conn.execute(repsql) 
     repsql="update yfindex set retime=now() where indexid="&indexid&""
     conn.execute(repsql)
	 'if session("level")="3" then '管理员回复时改写new标志
	   repsql="update yfindex set newflag=1 where indexid="&indexid&""
       conn.execute(repsql)
	 'end if
       repsql="update yfindex set modifyable=false where indexid="&indexid&"" '有人回复后不能首帖改为不能修改
       conn.execute(repsql)
   end if
 	 if session("userid")<>"" then 
	 repsql="update users set fatie=fatie+1 where userid="&session("userid") '登录用户发贴数+1
     conn.execute(repsql)
	 jiafen="update users set fenshu=fenshu+1 where userid="&session("userid") '登录一次加一分经验值
       conn.execute(jiafen)
     end if  
'  if conn.Errors.Count=0 then
'   conn.CommitTrans 
'  else
'   conn.RollbackTrans 
'  end if
  '完成事务处理和卷回处理
 end if

if indexid="" then
  response.redirect "main.asp?board="&Request("board")&"&suboard="&Request("suboard")
else
  response.redirect "showbbs.asp?indexid="&indexid&"&page_code="&request("page_code")&"&board="&request("board")&"&suboard="&Request("suboard")
end if
%>