index.asp

个人网站比较简短

<!--#include file="CommonCode.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

strFileName = FileName & "?action=" & Action & "&KindID=" & KindID
SkinID = DefaultSkinID
Select Case Action
Case "savewrite"
    PageTitle = "保存留言"
Case "del"
    PageTitle = "删除留言"
Case Else
    If KindID = 0 Then
        If Action = "user" Then
            If ReplaceBadChar(TopicType) = "participation" Then
                PageTitle = "我回复的留言"
            Else
                PageTitle = "我发表的留言"
            End If
        Else
            PageTitle = XmlText("Guest", "FirstPage", "留言首页")
        End If
    Else
        Dim KindNam, rsKind
        Set rsKind = Conn.Execute("select KindName from PE_Guestkind where KindID=" & KindID)
        If rsKind.BOF And rsKind.EOF Then
            FoundErr = True
            Response.Write XmlText("Guest", "Err1", "输入的类别并不存在！")
        Else
            KindName = rsKind(0)
        End If
        Set rsKind = Nothing
        PageTitle = KindName
    End If
End Select
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
    Response.End
End If
strPageTitle = strPageTitle & " >> " & PageTitle
strNavPath = strNavPath & "&nbsp;" & strNavLink & "&nbsp;" & PageTitle
If Action <> "" Or KindID > 0 Or CurrentPage > 1 Then
    Call GetHTML_Index
Else
    If PE_Cache.CacheIsEmpty(ChannelID & "_HTML_Index" & ShowGStyle) Then
        Call GetHTML_Index
        PE_Cache.SetValue ChannelID & "_HTML_Index" & ShowGStyle, strHtml
    Else
        strHtml = PE_Cache.GetValue(ChannelID & "_HTML_Index" & ShowGStyle)
    End If
End If
Response.Write strHtml
Call CloseConn

'=================================================
'过程名：GetHTML_Index()
'作  用：留言首页模板替换函数
'参  数：无
'=================================================
Sub GetHTML_Index()

    Dim strTemp, strTopUser, strFriendSite, arrTemp, strAnnounce, strPopAnnouce
    Dim ArticleList_ChildClass, ArticleList_ChildClass2
    Dim strPicList, strList
    Dim sqlAD, rsAD, ImgUrl, strAD
   
    
    strHtml = GetTemplate(ChannelID, 1, 0)

    'strHTML = Replace(strHTML, "{$GuestMain}", GuestMain())
    
    Dim DefaultIndex
    DefaultIndex = DefaultTemplate("Index")
    strHtml = Replace(strHtml, "{$GuestMain}", DefaultIndex)
    strHtml = Replace(strHtml, "{$KindID}", KindID)
    Call ReplaceCommon
    
    Dim strParameter1, GuestList1, GuestListContent1
    Dim strParameter2, GuestList2, GuestListContent2
    
    regEx.Pattern = "【GuestList1\((.*?)\)】([\s\S]*?)【\/GuestList1】"
    Set Matches = regEx.Execute(strHtml)
    For Each Match In Matches
        GuestList1 = Match.value
		strParameter1 = Match.SubMatches(0)
		GuestListContent1 = Match.SubMatches(1)
    Next

    regEx.Pattern = "【GuestList2\((.*?)\)】([\s\S]*?)【\/GuestList2】"
    Set Matches = regEx.Execute(strHtml)
    For Each Match In Matches
        GuestList2 = Match.value
		strParameter2 = Match.SubMatches(0)
		GuestListContent2 = Match.SubMatches(1)
    Next
   
    Select Case Action
    Case "savewrite"
        strHtml = PE_Replace(strHtml, GuestList1, "")
        strHtml = PE_Replace(strHtml, GuestList2, SaveWriteGuest())

    Case "del"
        strHtml = PE_Replace(strHtml, GuestList1, "")
        strHtml = PE_Replace(strHtml, GuestList2, DelGuest())

    Case Else
        If ShowGStyle = 2 Then
            strHtml = PE_Replace(strHtml, GuestList2, "")
            strHtml = PE_Replace(strHtml, GuestList1, GetRepeatGuestBook(strParameter1, GuestListContent1))
        Else
            strHtml = PE_Replace(strHtml, GuestList1, "")
            strHtml = PE_Replace(strHtml, GuestList2, GetRepeatDiscussion(strParameter2, GuestListContent2))
        End If
    End Select

    If InStr(strHtml, "{$ShowPage}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage}", ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, XmlText("Guest", "HTML_Index/PageChar", "条主题"), False))
    If InStr(strHtml, "{$ShowPage_en}") > 0 Then strHtml = Replace(strHtml, "{$ShowPage_en}", ShowPage_en(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, XmlText("Guest", "HTML_Index/PageChar", "条主题"), False))
End Sub

'=================================================
'函数名：SaveWriteGuest()
'作  用：保存留言
'参  数：无
'=================================================
Private Function SaveWriteGuest()
    Dim GuestName, GuestSex, GuestOicq, GuestEmail, GuestHomepage, GuestFace, GuestImages, GuestIcq, GuestMsn
    Dim GuestTitle, GuestContent, GuestIsPrivate, GuestIsPassed, CheckCode
    Dim sqlMaxId, rsMaxId, MaxId, Saveinfo
    ReplyId = Trim(Request("ReplyId"))

    If ReplyId = "" Then
        ReplyId = 0
    Else
        ReplyId = PE_CLng(ReplyId)
    End If
    
    If GuestBook_EnableVisitor = False Then
        If UserLogined = False Then
            SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Notpermission", "您尚未登录，请登录后再进行您的操作！") & "</li>")
            Exit Function
        Else
            If GroupType < 1 Then
                SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err8", "对不起，您尚未通过邮件验证，不能发表留言！") & "</li>")
                Exit Function
            ElseIf GroupType = 1 Then
                SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err9", "对不起，您尚未通过管理员审核，不能发表留言！") & "</li>")
                Exit Function
            End If
        End If
    End If
    GuestContent = ReplaceBadUrl(ReplaceText(FilterJS(Request("GuestContent")), 4)) '过滤非法系统URL
    If GuestBook_EnableManageRubbish = True And ManageRubbishContent(GuestBook_ManageRubbish, GuestContent) Then
        SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/ForbiddenAD", "您输入的内容涉嫌广告，禁止留言！") & "</li>")
        Exit Function
    End If

    '过虑非法SQL字符,过滤 Jscript代码
    If UserLogined = False Then
        GuestName = PE_HTMLEncode(Trim(Request("GuestName")))
        GuestSex = PE_HTMLEncode(Trim(Request("GuestSex"))) '对方可以用伪造表单提交
        GuestOicq = PE_HTMLEncode(Trim(Request("GuestOicq")))
        GuestIcq = PE_HTMLEncode(Trim(Request("GuestIcq")))
        GuestMsn = PE_HTMLEncode(Trim(Request("GuestMsn")))
        GuestEmail = PE_HTMLEncode(Trim(Request("GuestEmail")))
        GuestHomepage = PE_HTMLEncode(Trim(Request("GuestHomepage")))
        If GuestHomepage = "http://" Or IsNull(GuestHomepage) Then GuestHomepage = ""
    Else
        GuestName = UserName
    End If
    GuestImages = PE_HTMLEncode(Trim(Request("GuestImages")))
    GuestFace = PE_HTMLEncode(Trim(Request("GuestFace")))
    GuestTitle = ReplaceText(PE_HTMLEncode(Trim(Request("GuestTitle"))), 4)
    GuestIsPrivate = Trim(Request("GuestIsPrivate"))
    CheckCode = LCase(ReplaceBadChar(Trim(Request("CheckCode"))))
    If GuestIsPrivate = "yes" Then
        GuestIsPrivate = True
    Else
        GuestIsPrivate = False
    End If
    
    If CheckLevel = 0 Or NeedlessCheck = 1 Then
        GuestIsPassed = True
    Else
        GuestIsPassed = False
    End If
    
    SaveEdit = Request("saveedit")
    If EnableGuestBookCheck = True Then
        If CheckCode = "" Then
            SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err1", "验证码不能为空！") & "</li>")
            Exit Function
        End If
        If Trim(Session("CheckCode")) = "" Then
            SaveWriteGuest = Guest_info("<li>" & XmlText("Guest", "SaveGuest/Err2", "你发留言时间过长，请重发留言。") & "</li>")