index.asp

个人网站比较简短

            Exit Function
        End If
        If CheckCode <> LCase(Session("CheckCode")) Then
            SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err3", "您输入的确认码和系统产生的不一致！请重新输入。") & "</li>")
            Exit Function
        End If
    End If
    If GuestName = "" Or GuestTitle = "" Or GuestContent = "" Then
        SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err4", "留言发送失败！请将必要的信息填写完整！") & "</li>")
        Exit Function
    End If
    Dim mrs, intMaxID
    Set mrs = Conn.Execute("select max(GuestID) from PE_GuestBook")
    If IsNull(mrs(0)) Then
        intMaxID = 0
    Else
        intMaxID = mrs(0)
    End If
    Set mrs = Nothing
    If SaveEdit = 1 Then
		If UserLogined = False Then
			SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err6", "游客不能编辑留言！如果您需要编辑留言，请以用户身份发表留言！") & "</li>")
			Exit Function
		End If
        SaveEditId = Request("saveeditid")
        If SaveEditId = "" Then
            SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err5", "请指定要编辑的留言ID！") & "</li>")
            Exit Function
        Else
				
			sqlMaxId = "select max(GuestMaxId) as MaxId from PE_GuestBook"
            Set rsMaxId = Conn.Execute(sqlMaxId)
            MaxId = rsMaxId("MaxId")
            Set rsMaxId = Nothing
            If MaxId = "" Or IsNull(MaxId) Then MaxId = 0
            Set rsGuest = Server.CreateObject("adodb.recordset")
            sqlGuest = "select * from PE_GuestBook where GuestID=" & PE_CLng(SaveEditId) & " and GuestName = '" & UserName & "'"
            rsGuest.Open sqlGuest, Conn, 1, 3
            'rsGuest("GuestName") = GuestName
            rsGuest("GuestSex") = GuestSex
            rsGuest("GuestOicq") = GuestOicq
            rsGuest("GuestIcq") = GuestIcq
            rsGuest("GuestMsn") = GuestMsn
            rsGuest("GuestEmail") = GuestEmail
            rsGuest("GuestHomepage") = GuestHomepage
            rsGuest("GuestIP") = UserTrueIP
            rsGuest("GuestTitle") = GuestTitle
            rsGuest("KindID") = KindID
            rsGuest("ReplyNum") = 0
            rsGuest("GuestFace") = GuestFace
            rsGuest("GuestContent") = GuestContent
            rsGuest("GuestDatetime") = Now()
            rsGuest("GuestImages") = GuestImages
            rsGuest("GuestMaxId") = MaxId + 1
            rsGuest("GuestIsPrivate") = GuestIsPrivate
            rsGuest("GuestIsPassed") = GuestIsPassed
            rsGuest("GuestContentLength") = Len(GuestContent)
            rsGuest.Update
            If CheckLevel = 0 Or NeedlessCheck = 1 Then
                SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/SurMsg1", "留言编辑成功！") & "</li>")
            Else
                SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/SurMsg2", "留言编辑成功！只有管理员审核通过的留言才会显示出来。") & "</li>")
            End If
            rsGuest.Close
            Set rsGuest = Nothing
            Call ClearSiteCache(ChannelID)
        End If
    Else
        If GuestContent <> Session("OldGuestContent") Then
            Session("OldGuestContent") = GuestContent
            sqlMaxId = "select max(GuestMaxId) as MaxId from PE_GuestBook"
            Set rsMaxId = Conn.Execute(sqlMaxId)
            MaxId = rsMaxId("MaxId")
            Set rsMaxId = Nothing
            If MaxId = "" Or IsNull(MaxId) Then MaxId = 0
            Set rsGuest = Server.CreateObject("adodb.recordset")
            sqlGuest = "select * from PE_GuestBook"
            rsGuest.Open sqlGuest, Conn, 1, 3
            rsGuest.addnew
            If UserLogined = False Then
                rsGuest("GuestType") = 0
            Else
                rsGuest("GuestType") = 1
            End If
            rsGuest("GuestName") = GuestName
            rsGuest("GuestSex") = GuestSex
            rsGuest("GuestOicq") = GuestOicq
            rsGuest("GuestIcq") = GuestIcq
            rsGuest("GuestMsn") = GuestMsn
            rsGuest("GuestEmail") = GuestEmail
            rsGuest("GuestHomepage") = GuestHomepage
            rsGuest("GuestIP") = UserTrueIP
            rsGuest("GuestTitle") = GuestTitle
            rsGuest("KindID") = KindID
            If ReplyId <> 0 Then
                rsGuest("TopicID") = ReplyId
            Else
                rsGuest("TopicID") = intMaxID + 1
            End If
            rsGuest("ReplyNum") = 0
            rsGuest("GuestFace") = GuestFace
            rsGuest("GuestContent") = GuestContent
            rsGuest("GuestDatetime") = Now()
            rsGuest("GuestImages") = GuestImages
            rsGuest("GuestId") = intMaxID + 1
            rsGuest("GuestMaxId") = MaxId + 1
            rsGuest("GuestIsPrivate") = GuestIsPrivate
            rsGuest("GuestIsPassed") = GuestIsPassed
            rsGuest("GuestContentLength") = Len(GuestContent)
            rsGuest.Update
            If CheckLevel = 0 Or NeedlessCheck = 1 Then
                Saveinfo = "<li>" & XmlText("Guest", "SaveGuest/SurMsg3", "您的留言已经发送成功！") & "</li>"
            Else
                Saveinfo = "<li>" & XmlText("Guest", "SaveGuest/SurMsg4", "您的留言已经发送成功！只有管理员审核通过的留言才会显示出来。") & "</li>"
            End If

            rsGuest.Close
            Set rsGuest = Nothing
            If ReplyId <> 0 And (CheckLevel = 0 Or NeedlessCheck = 1) Then
                'GuestContent = ReplaceBadChar(GuestContent)
                'GuestName = ReplaceBadChar(GuestName)
                'GuestTitle = ReplaceBadChar(GuestTitle)
                'Conn.Execute ("update PE_GuestBook set LastReplyContent='" & GuestContent & "',LastReplyGuest='" & GuestName & "',LastReplyTitle='" & GuestTitle & "',LastReplyTime='" & Now() & "',GuestMaxId=" & MaxId & "+1,ReplyNum=ReplyNum+1 where GuestId=" & ReplyId & "")
                Dim sql, rs, rsReplyNum
                Set rs = Server.CreateObject("adodb.recordset")
                sql = "select top 1 * from PE_GuestBook where GuestId=" & ReplyId
                rs.Open sql, Conn, 1, 3
                If rs.EOF And rs.BOF Then
                    Saveinfo = "<li>" & XmlText("Guest", "SaveGuest/Err7", "找不到您回复的主题！") & "</li>"
                Else
                    rsReplyNum = rs("ReplyNum")
                    rs("LastReplyContent") = GuestContent
                    rs("LastReplyGuest") = GuestName
                    rs("LastReplyTitle") = GuestTitle
                    rs("LastReplyTime") = Now()
                    rs("ReplyNum") = rsReplyNum + 1
                    rs("GuestMaxId") = MaxId + 1
                    rs.Update
                End If
                rs.Close
            End If
            SaveWriteGuest = Guest_info(Saveinfo)
            Call ClearSiteCache(ChannelID)
            Exit Function
        Else
            SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err6", "请不要连续发送内容相同的留言或空留言！") & "</li>")
        End If
    End If
    
End Function

'=================================================
'函数名：DelGuest()
'作  用：删除留言
'参  数：无
'=================================================
Private Function DelGuest()
	If UserLogined = False Then
		DelGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err7", "游客不能删除留言！") & "</li>")
		Exit Function
	End If
    Dim Delid
    Delid = Trim(Request("guestid"))
    If IsValidID(Delid) = False Then
        Delid = ""
    End If
    If Delid = "" Then
        DelGuest = Guest_info("<li>" & XmlText("Guest", "DelGuest/Err1", "请指定要删除的留言ID！") & "</li>")
        Exit Function
    End If
    If InStr(Delid, ",") > 0 Then
        sqlGuest = "Select * from PE_GuestBook where GuestID in (" & Delid & ")"
    Else
        sqlGuest = "select * from PE_GuestBook where GuestID=" & Delid
    End If
    Set rsGuest = Server.CreateObject("Adodb.RecordSet")
    rsGuest.Open sqlGuest, Conn, 1, 3
    If rsGuest.BOF And rsGuest.EOF Then
        DelGuest = Guest_info("<li>" & XmlText("Guest", "DelGuest/NoFound", "找不到您指定的留言！") & "</li>")
        Exit Function
    End If

    If rsGuest("GuestName") <> UserName Or rsGuest("GuestIsPassed") = True Then
        DelGuest = Guest_info("<li>" & XmlText("Guest", "DelGuest/Err2", "您没有使用此功能的权限！") & "</li>")
    Else
        Do While Not rsGuest.EOF
            rsGuest.Delete
            rsGuest.Update
            rsGuest.MoveNext
        Loop
        DelGuest = Guest_info("<li>" & XmlText("Guest", "DelGuest/SurMsg", "删除留言成功！") & "</li>")
    End If
    rsGuest.Close
    Set rsGuest = Nothing
    Call ClearSiteCache(ChannelID)
End Function
%>