start.asp

个人网站比较简短

        Set rsConfig = Nothing
        Response.Write "网站配置数据丢失！系统无法正常运行！"
        Response.End
        Exit Sub
    End If
    SiteName = rsConfig("SiteName")
    SiteTitle = rsConfig("SiteTitle")
    SiteUrl = rsConfig("SiteUrl")
    InstallDir = rsConfig("InstallDir")
    LogoUrl = rsConfig("LogoUrl")
    BannerUrl = rsConfig("BannerUrl")
    WebmasterName = rsConfig("WebmasterName")
    WebmasterEmail = rsConfig("WebmasterEmail")
    Copyright = rsConfig("Copyright")
    Meta_Keywords = rsConfig("Meta_Keywords")
    Meta_Description = rsConfig("Meta_Description")

    ShowSiteChannel = rsConfig("ShowSiteChannel")
    ShowAdminLogin = rsConfig("ShowAdminLogin")
    EnableSaveRemote = rsConfig("EnableSaveRemote")
    EnableLinkReg = rsConfig("EnableLinkReg")
    EnableCountFriendSiteHits = rsConfig("EnableCountFriendSiteHits")
    EnableSoftKey = rsConfig("EnableSoftKey")
    IsCustom_Content = PE_CBool(rsConfig("IsCustom_Content"))
    objName_FSO = rsConfig("objName_FSO")
    AdminDir = rsConfig("AdminDir")
    ADDir = rsConfig("ADDir")
    AnnounceCookieTime = PE_CLng(rsConfig("AnnounceCookieTime"))
    SiteHitsOfHot = rsConfig("HitsOfHot")
    AllModules = rsConfig("Modules")
    FileExt_SiteIndex = rsConfig("FileExt_SiteIndex")
    FileExt_SiteSpecial = rsConfig("FileExt_SiteSpecial")
    SiteUrlType = rsConfig("SiteUrlType")
    LockIPType = rsConfig("LockIPType")
    LockIP = rsConfig("LockIP")
    

    EnableUserReg = rsConfig("EnableUserReg")
    EmailCheckReg = rsConfig("EmailCheckReg")
    AdminCheckReg = rsConfig("AdminCheckReg")
    EnableMultiRegPerEmail = rsConfig("EnableMultiRegPerEmail")
    EnableCheckCodeOfLogin = rsConfig("EnableCheckCodeOfLogin")
    EnableCheckCodeOfReg = rsConfig("EnableCheckCodeOfReg")
    EnableQAofReg = rsConfig("EnableQAofReg")
    QAofReg = rsConfig("QAofReg")

    UserNameLimit = rsConfig("UserNameLimit")
    UserNameMax = rsConfig("UserNameMax")
    UserName_RegDisabled = rsConfig("UserName_RegDisabled")
    RegFields_MustFill = rsConfig("RegFields_MustFill")
    
    PresentExp = rsConfig("PresentExp")
    PresentMoney = rsConfig("PresentMoney")
    PresentPoint = rsConfig("PresentPoint")
    PresentValidNum = rsConfig("PresentValidNum")
    PresentValidUnit = rsConfig("PresentValidUnit")
    MoneyExchangePoint = rsConfig("MoneyExchangePoint")
    MoneyExchangeValidDay = rsConfig("MoneyExchangeValidDay")
    UserExpExchangePoint = rsConfig("UserExpExchangePoint")
    UserExpExchangeValidDay = rsConfig("UserExpExchangeValidDay")
    If MoneyExchangePoint <= 0 Then MoneyExchangePoint = 1
    If MoneyExchangeValidDay <= 0 Then MoneyExchangeValidDay = 1
    If UserExpExchangePoint <= 0 Then UserExpExchangePoint = 1
    If UserExpExchangeValidDay <= 0 Then UserExpExchangeValidDay = 1
    
    PointName = rsConfig("PointName")
    PointUnit = rsConfig("PointUnit")
    EmailOfRegCheck = rsConfig("EmailOfRegCheck")

    MailObject = rsConfig("MailObject")
    MailServer = rsConfig("MailServer")
    MailServerUserName = rsConfig("MailServerUserName")
    MailServerPassWord = rsConfig("MailServerPassword")
    MailDomain = rsConfig("MailDomain")

    PhotoObject = rsConfig("PhotoObject")
    Thumb_DefaultWidth = rsConfig("Thumb_DefaultWidth")
    Thumb_DefaultHeight = rsConfig("Thumb_DefaultHeight")
    Thumb_Arithmetic = rsConfig("Thumb_Arithmetic")
    PhotoQuality = PE_CLng(rsConfig("PhotoQuality"))
    Thumb_BackgroundColor = rsConfig("Thumb_BackgroundColor")
    If Watermark_Position = "" Then Watermark_Position = "1"
    If PhotoQuality < 50 Then PhotoQuality = 90
    If PhotoQuality > 100 Then PhotoQuality = 90
    If Thumb_BackgroundColor = "" Then Thumb_BackgroundColor = "#CCCCCC"
    Watermark_Images_Transparence = Watermark_Images_Transparence / 100
    Watermark_Text_FontColor = "&H" & Replace(Right(Watermark_Text_FontColor, 6), "#", "")
    Watermark_Images_BackgroundColor = "&H" & Replace(Right(Watermark_Images_BackgroundColor, 6), "#", "")
    Thumb_BackgroundColor = "&H" & Replace(Right(Thumb_BackgroundColor, 6), "#", "")
    Watermark_Type = rsConfig("Watermark_Type")
    Watermark_Text = rsConfig("Watermark_Text")
    Watermark_Text_FontName = rsConfig("Watermark_Text_FontName")
    Watermark_Text_FontSize = rsConfig("Watermark_Text_FontSize")
    Watermark_Text_FontColor = rsConfig("Watermark_Text_FontColor")
    Watermark_Text_Bold = rsConfig("Watermark_Text_Bold")
    Watermark_Images_FileName = rsConfig("Watermark_Images_FileName")
    Watermark_Images_Transparence = rsConfig("Watermark_Images_Transparence")
    Watermark_Images_BackgroundColor = rsConfig("Watermark_Images_BackgroundColor")
    Watermark_Position_X = rsConfig("Watermark_Position_X")
    Watermark_Position_Y = rsConfig("Watermark_Position_Y")
    Watermark_Position = PE_CLng(rsConfig("Watermark_Position"))

    SearchInterval = rsConfig("SearchInterval")
    SearchResultNum = rsConfig("SearchResultNum")
    MaxPerPage_SearchResult = rsConfig("MaxPerPage_SearchResult")
    SearchContent = rsConfig("SearchContent")
    
    EnableGuestBuy = rsConfig("EnableGuestBuy")
    IncludeTax = rsConfig("IncludeTax")
    TaxRate = rsConfig("TaxRate")
    Prefix_OrderFormNum = rsConfig("Prefix_OrderFormNum")
    Prefix_PaymentNum = rsConfig("Prefix_PaymentNum")
    
    MyCountry = rsConfig("Country")
    MyProvince = rsConfig("Province")
    MyCity = rsConfig("City")
    MyPostcode = rsConfig("Postcode")

    EmailOfOrderConfirm = rsConfig("EmailOfOrderConfirm") & ""
    EmailOfSendCard = rsConfig("EmailOfSendCard") & ""
    EmailOfReceiptMoney = rsConfig("EmailOfReceiptMoney") & ""
    EmailOfRefund = rsConfig("EmailOfRefund") & ""
    EmailOfInvoice = rsConfig("EmailOfInvoice") & ""
    EmailOfDeliver = rsConfig("EmailOfDeliver") & ""
    
    
    GuestBook_EnableVisitor = rsConfig("GuestBook_EnableVisitor")
    EnableGuestBookCheck = rsConfig("GuestBookCheck")
    GuestBook_EnableManageRubbish = rsConfig("GuestBook_EnableManageRubbish")
    PresentExpPerLogin = rsConfig("PresentExpPerLogin")
    GuestBook_ManageRubbish = rsConfig("GuestBook_ManageRubbish")
    GuestBook_ShowIP = rsConfig("GuestBook_ShowIP")
    GuestBook_IsAssignSort = rsConfig("GuestBook_IsAssignSort")
    GuestBook_MaxPerPage = rsConfig("GuestBook_MaxPerPage")

    EnableRss = rsConfig("EnableRss")
    RssCodeType = rsConfig("RssCodeType")

    EnableWap = rsConfig("EnableWap")
    WapLogo = rsConfig("WapLogo")
    EnableWapPl = rsConfig("EnableWapPl")
    ShowWapShop = rsConfig("ShowWapShop")
    ShowWapAppendix = rsConfig("ShowWapAppendix")
    ShowWapManage = rsConfig("ShowWapManage")
    
    EnableSMS = FoundInArr(rsConfig("Modules"), "SMS", ",")
    SMSUserName = rsConfig("SMSUserName")
    SMSKey = rsConfig("SMSKey")

    SendMessageToAdminWhenOrder = rsConfig("SendMessageToAdminWhenOrder")
    SendMessageToMemberWhenPaySuccess = rsConfig("SendMessageToMemberWhenPaySuccess")
    Mobiles = rsConfig("Mobiles")
    MessageOfOrder = rsConfig("MessageOfOrder")

    MessageOfOrderConfirm = rsConfig("MessageOfOrderConfirm") & ""
    MessageOfSendCard = rsConfig("MessageOfSendCard") & ""
    MessageOfReceiptMoney = rsConfig("MessageOfReceiptMoney") & ""
    MessageOfRefund = rsConfig("MessageOfRefund") & ""
    MessageOfInvoice = rsConfig("MessageOfInvoice") & ""
    MessageOfDeliver = rsConfig("MessageOfDeliver") & ""
    
    MessageOfAddRemit = rsConfig("MessageOfAddRemit")
    MessageOfAddIncome = rsConfig("MessageOfAddIncome")
    MessageOfAddPayment = rsConfig("MessageOfAddPayment")
    MessageOfExchangePoint = rsConfig("MessageOfExchangePoint")
    MessageOfAddPoint = rsConfig("MessageOfAddPoint")
    MessageOfMinusPoint = rsConfig("MessageOfMinusPoint")
    MessageOfExchangeValid = rsConfig("MessageOfExchangeValid")
    MessageOfAddValid = rsConfig("MessageOfAddValid")
    MessageOfMinusValid = rsConfig("MessageOfMinusValid")
    
    If Right(InstallDir, 1) <> "/" Then
        InstallDir = InstallDir & "/"
    End If
    If rsConfig("SiteUrlType") = 1 Then
        If Right(SiteUrl, 1) = "/" Then SiteUrl = Left(SiteUrl, Len(SiteUrl) - 1)
        If Left(SiteUrl, 7) <> "http://" Then SiteUrl = "http://" & SiteUrl
        strInstallDir = SiteUrl & InstallDir
    Else
        strInstallDir = InstallDir
    End If

    rsConfig.Close
    Set rsConfig = Nothing
    
End Sub

Sub IsIPlock()
    If session("IPlock") = "" Then
        session("IPlock") = ChecKIPlock(LockIPType, LockIP, UserTrueIP)
    End If
    If session("IPlock") = True Then
        Response.Write "对不起！您的IP（" & UserTrueIP & "）被系统限定。您可以和站长联系。"
        Response.End
    End If
End Sub
%>