post.asp

他是一个asp+access的多用户留言板！

<!-- #include file="密码验证.asp" -->
<%

INNER=Request.Form("content")

POSTID=Request.QueryString("POSTID")

if (NOIPUserTit="管理员" or NOIPUserTit="班长") then Ding=(Request.Form("Ding")="Ding") else Ding=false

Subject=Request.Form("Subject")
if Subject="" then Subject="无标题"
icon=Request.Form("icon")
  set rs = server.CreateObject("ADODB.Recordset")  
  
if Request.QueryString("NEWreply")=1 then 
   rs.open "SELECT * FROM 文章回复" ,conn ,3,3
   rs.AddNew 
  rs("回复标题")=Subject
  rs("回复人")=NOIPUserId
  rs("回复内容")=INNER
  rs("文章")=Cint(Request.QueryString("POSTID"))
  rs("客人")= Request.Form("ke")
  rs("ip")=Request.ServerVariables("REMOTE_ADDR")
  
   set rs1 = server.CreateObject("ADODB.Recordset")  
    rs1.open "SELECT * FROM 文章标题 WHERE id=" & (Request.QueryString("POSTID")) ,conn ,3,3
    if not rs1.eof and not rs1.bof then
    rs1("楼")=rs1("楼")+1
    rs("楼层")=rs1("楼")
    rs1.update
    end if
    rs1.close
    set rs1=nothing
    
    
   
 if  NOIPUserID<>-1 then  
    set rs1 = server.CreateObject("ADODB.Recordset")  
      rs1.open "SELECT * FROM NOIP选手 Where id="&NOIPUSERID ,conn ,3,3
      rs1("学分")=rs1("学分")+5
      rs1("文章数")=rs1("文章数")+1
      rs1.update
      rs1.close
      set rs1=nothing
   
 end if
 
    set rs1 = server.CreateObject("ADODB.Recordset")  
    
  rs1.open "SELECT * FROM 文章标题 WHERE id=" &Request.QueryString("POSTID") ,conn ,3,3
  rs1("回复")=rs1("回复")+1
  rs1("最后回复")=now
  rs1("最后回复者")=NOIPUserId
  
 rs1.Update
  rs1.Close
    aa="ShowPost.asp?postid=" & postid & "&class=" &classnum

 set rs1=nothing

  
  
else
   if  NOIPUserID > 0  then  
      set rs1 = server.CreateObject("ADODB.Recordset")  
      rs1.open "SELECT * FROM NOIP选手 Where id=" & NOIPUSERID ,conn ,3,3
      if not rs1.eof and not rs1.bof then

      rs1("学分")=rs1("学分")+10
      rs1("文章数")=rs1("文章数")+1
      rs1.update
      end if
      rs1.close
      set rs1=nothing
    end if
  rs.open "SELECT * FROM 文章标题" ,conn ,3,3
  rs.AddNew 
  rs("文章标题")=Subject
  rs("发送人")=NOIPUserId
  rs("内容")=INNER
  rs("置顶")=Ding
rs("ip")=Request.ServerVariables("REMOTE_ADDR")
  rs("表情")=Request.Form("icon")
  rs("最后回复")=now
  rs("最后回复者")=NOIPUserId
  rs("班级")=classnum
   rs("客人")= Request.Form("ke")
  aa="ShowPost.asp?postid=" & rs("id") & "&class=" &classnum
end if


  rs("日期")=now
 
  rs.Update
  rs.Close
  
 set rs=nothing
 Response.Redirect aa



%>