insertarticle.asp

ASPTest 网络基础网页设计

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

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

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

  If Request("txtUserID") = "" OR Request("txtUserPWD") = "" OR Request("txtTitle") = "" OR Request("txtContent") = "" Then
  %>
    <p align="center"><font color="red">请输入完整信息！</font>
    <!-- #include file="NewInfoInput.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="NewInfoInput.asp" -->
    <%
    Else
      
      '身份验证通过，标识用户身份
      Session("UserID") = rsCheckUser("UserID")
      
      '该用户已发表文章数加1
      rsReadCount.Open "UPDATE Lily_Users SET ArticleNum=ArticleNum+1 WHERE UserID='"&Session("UserID")&"'",cn
      rsNew.Open "SELECT * FROM Lily_Article",cn,2,3
      rsNew.AddNew
      rsNew("Title") = Request("txtTitle")
      rsNew("Content") = Request("txtContent")
      rsNew("UserID") = Session("UserID")
      rsNew("BoardName") = Session("BoardName")
      rsNew("PostTime") = Now 
      rsNew.Update
      rsNew.Close
      %>
      <p align="center"><font color="red">发表文章成功！</font>
      <!-- #include file="ShowTitle.asp" -->
      <%
         
    End If
    
    rsCheckUser.Close
  End If

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

  If Request("txtTitle") = "" OR Request("txtContent") = "" Then
  %>
    <p align="center"><font color="red">请输入完整信息！</font>
    <!-- #include file="NewInfoInput.asp" -->
  <%
  Else
    rsReadCount.Open "UPDATE Lily_Users SET ArticleNum=ArticleNum+1 WHERE UserID='"&Session("UserID")&"'",cn
    rsNew.Open "SELECT * FROM Lily_Article",cn,2,3
    rsNew.AddNew
    rsNew("Title") = Request("txtTitle")
    rsNew("Content") = Request("txtContent")
    rsNew("UserID") = Session("UserID")
    rsNew("BoardName") = Session("BoardName")
    rsNew("PostTime") = Now 
    rsNew.Update
    rsNew.Close
    %>
    <p align="center"><font color="red">发表文章成功！</font>
    <!-- #include file="ShowTitle.asp" -->
    <%
  End If

End If

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

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