主頁 > 知識(shí)庫 > KesionCMSV4.0 個(gè)人空間二級(jí)域名轉(zhuǎn)向處理程序

KesionCMSV4.0 個(gè)人空間二級(jí)域名轉(zhuǎn)向處理程序

熱門標(biāo)簽:電銷外呼線路改不外呼線路 貴陽ai外呼系統(tǒng) 重慶人工智能電銷機(jī)器人報(bào)價(jià) 長春極信防封電銷卡公司 愛巢地圖標(biāo)注 crm外呼系統(tǒng)好不好 智能電銷機(jī)器人廣告語 電話機(jī)器人批發(fā) 強(qiáng)訊外呼系統(tǒng)
復(fù)制代碼 代碼如下:

<!--#include file="conn.asp"-->
<!--#include file="KS_Cls/KS.PublicCls.asp"-->
<%
'=============================================
'KesionCMSV4.0 個(gè)人空間二級(jí)域名轉(zhuǎn)向處理程序
'=============================================
'****************************************************
' 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) & "-個(gè)人空間" 
              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

              
              '=====================這里定義其它系統(tǒng)非個(gè)人空間的二級(jí)域名轉(zhuǎn)向,如論壇等=============================
              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
%>

標(biāo)簽:清遠(yuǎn) 吳忠 內(nèi)蒙古 陜西 山南 上海 保定 廣安

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《KesionCMSV4.0 個(gè)人空間二級(jí)域名轉(zhuǎn)向處理程序》,本文關(guān)鍵詞  KesionCMSV4.0,個(gè)人空間,二級(jí)域名,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《KesionCMSV4.0 個(gè)人空間二級(jí)域名轉(zhuǎn)向處理程序》相關(guān)的同類信息!
  • 本頁收集關(guān)于KesionCMSV4.0 個(gè)人空間二級(jí)域名轉(zhuǎn)向處理程序的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章