婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > KesionCMSV4.0 個人空間二級域名轉向處理程序

KesionCMSV4.0 個人空間二級域名轉向處理程序

熱門標簽:電銷外呼線路改不外呼線路 貴陽ai外呼系統 重慶人工智能電銷機器人報價 長春極信防封電銷卡公司 愛巢地圖標注 crm外呼系統好不好 智能電銷機器人廣告語 電話機器人批發 強訊外呼系統
復制代碼 代碼如下:

<!--#include file="conn.asp"-->
<!--#include file="KS_Cls/KS.PublicCls.asp"-->
<%
'=============================================
'KesionCMSV4.0 個人空間二級域名轉向處理程序
'=============================================
'****************************************************
' Software name:Kesion CMS 4.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New SiteIndex
KSCls.Kesion()
Set KSCls = Nothing

Class SiteIndex
        Private KS
        Private From,gourl,sdomain,title,username
        Private Sub Class_Initialize()
         If (Not Response.IsClientConnected)Then
            Response.Clear
            Response.End
         End If
          Set KS=New PublicCls
        End Sub
        Private Sub Class_Terminate()
         Call CloseConn()
         Set KS=Nothing
        End Sub
        Public Sub Kesion()
        From = LCase(Request.ServerVariables("HTTP_HOST"))
        sdomain = LCase(KS.SSetting(15))
        sdomain = Replace(sdomain,"http://","")
        sdomain = Replace(sdomain,"/","")

        
        dim domain1,domain2
            domain = LCase (from)
            domain = Replace (domain,"http://","")
            domain = Replace (domain,"/","")

            if sdomain=domain and sdomain<>"" then
              title=KS.Setting(1) & "-個人空間" 
              gourl="space/index.asp"
            else
             domain1= Replace (Left (domain,InStr (domain,".")),".","")
             if Trim (domain1)="" or domain1="www" Then Response.Redirect("index.asp"):Response.End
             dim rs:set rs=conn.execute("select username,blogname from ks_blog where [domain]='" & KS.R(domain1) & "'")
             if rs.eof and rs.bof then
              rs.close:set rs=nothing

              
              '=====================這里定義其它系統非個人空間的二級域名轉向,如論壇等=============================
              if instr(Request.ServerVariables("SERVER_NAME"),"bbs.kesion.com")>0 then
                 response.redirect "bbs/index.asp"
              elseif instr(Request.ServerVariables("SERVER_NAME"),"news.kesion.com")>0 then
                 response.redirect "news/"
              elseif instr(Request.ServerVariables("SERVER_NAME"),"help.kesion.com")>0 then
                 response.redirect "help/"
              else
               response.redirect "index.asp"
              end if
             '============================================================================

              exit sub
             end if
             title=rs("blogname")
             domain1=rs("username")
             rs.close:set rs=nothing

             domain2= Right(domain,Len(domain)-InStr(domain,"."))
             gourl="space/space.asp?username=" & domain1
            end if

           Response.Write ("<html>") & vbcrlf
           Response.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />") & vbcrlf
           Response.Write ("<title>" & title & "</title>") & vbcrlf
           Response.Write ("<head>") & vbcrlf
           Response.Write ("</head>") & vbcrlf
           Response.Write( "<frameset><frame src="""&gourl&"""></frameset>")
         End Sub
End Class
%>

標簽:清遠 吳忠 內蒙古 陜西 山南 上海 保定 廣安

巨人網絡通訊聲明:本文標題《KesionCMSV4.0 個人空間二級域名轉向處理程序》,本文關鍵詞  KesionCMSV4.0,個人空間,二級域名,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《KesionCMSV4.0 個人空間二級域名轉向處理程序》相關的同類信息!
  • 本頁收集關于KesionCMSV4.0 個人空間二級域名轉向處理程序的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 岱山县| 鄂尔多斯市| 伊春市| 襄樊市| 娄烦县| 铁力市| 庆元县| 霍邱县| 错那县| 肇东市| 读书| 墨玉县| 家居| 措勤县| 买车| 佛坪县| 九台市| 吴旗县| 海淀区| 西盟| 富蕴县| 上饶县| 瓮安县| 徐州市| 闽清县| 吴忠市| 增城市| 吉水县| 普格县| 呼伦贝尔市| 广平县| 彭泽县| 泗水县| 黄石市| 东港市| 丰台区| 乐亭县| 通许县| 金坛市| 延边| 崇文区|