insertreply.asp

来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 87 行

<!-- #include file="Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<%
Dim rsReply,rsCheckUser,rsReplyCountAdd
Dim strSQL
Set rsReply = Server.CreateObject("ADODB.RecordSet")
Set rsCheckUser = Server.CreateObject("ADODB.RecordSet")
Set rsReplyCountAdd = Server.CreateObject("ADODB.RecordSet")

'如果用户未登录，则进行身份验证
If Session("UserID") = "" Then

  If Request("txtUserID") = "" OR Request("txtUserPWD") = "" OR Request("txtContent") = "" Then
  %>
    <p align="center"><font color="red">请输入完整信息！</font>
    <!-- #include file="ReplyInfoInput.asp" -->
  <%
  Else
    strSQL = "SELECT * FROM Lily_Users WHERE UserID='"&Request("txtUserID")&"' AND UserPWD='"&Request("txtUserPWD")&"'"
    rsCheckUser.Open strSQL,cn
    If rsCheckUser.Eof Then
    %>
      <p align="center"><font color="red">请输入正确的用户名/密码！</font>
      <!-- #include file="ReplyInfoInput.asp" -->
    <%
    Else
      
      '身份验证通过，标识用户身份
      Session("UserID") = rsCheckUser("UserID")
      
      '该文章回复数加1
      rsReplyCountAdd.Open "UPDATE Lily_Article SET ReplyCount=ReplyCount+1 WHERE ArticleID="&Session("ArticleID"),cn
      rsReply.Open "SELECT * FROM Lily_Reply",cn,2,3
      rsReply.AddNew
      rsReply("Content") = Request("txtContent")
      rsReply("ArticleID") = Session("ArticleID")
      rsReply("UserID") = Session("UserID")
      rsReply("BoardName") = Session("BoardName")
      rsReply("PostTime") = Now 
      rsReply.Update
      rsReply.Close
      %>
      <p align="center"><font color="red">回复文章成功！</font>
      <!-- #include file="ShowContent.asp" -->
      <%
      
    End If
    
    rsCheckUser.Close
  End If

'如果用户已登录，则省略身份验证步骤  
Else

  If Request("txtContent") = "" Then
  %>
    <p align="center"><font color="red">请输入完整信息！</font>
    <!-- #include file="ReplyInfoInput.asp" -->
  <%
  Else
    rsReplyCountAdd.Open "UPDATE Lily_Article SET ReplyCount=ReplyCount+1 WHERE ArticleID="&Session("ArticleID"),cn
    rsReply.Open "SELECT * FROM Lily_Reply",cn,2,3
    rsReply.AddNew
    rsReply("Content") = Request("txtContent")
    rsReply("ArticleID") = Session("ArticleID")
    rsReply("UserID") = Session("UserID")
    rsReply("BoardName") = Session("BoardName")
    rsReply("PostTime") = Now 
    rsReply.Update
    rsReply.Close
    %>
    <p align="center"><font color="red">回复文章成功！</font>
    <!-- #include file="ShowContent.asp" -->
    <%
  End If

End If

Set rsReply = Nothing
Set rsCheckUser = Nothing
Set rsReplyCountAdd = Nothing
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="Bottom.htm" -->