<!--#include file="../inc/cls_tags.asp"-->

'***********************************
'        自动TAGS  start
'***********************************
    Dim allhits,showtag,Taglist
    Dim xml, objNodes, myxml
'***********************************
'        自动TAGS  end
'***********************************

'***********************************
'        自动TAGS  start
'***********************************
            showtag = ""
            myxml="http://keyword.discuz.com/related_kw.html?title="&NewAsp.RequestForm(m_strTitle,255)&NewAsp.RequestForm(m_strSubTitle,200)&"&content="&m_strContent&"&ics=utf-8&ocs=utf-8"
            set xml = server.CreateObject("Microsoft.XMLDOM")
            xml.async = "false"
            xml.resolveExternals = "false"
            xml.setProperty "ServerHTTPRequest", true
            xml.load(myxml)
            On Error Resume Next
            If xml.getElementsByTagName("info")(0).selectSingleNode("count").Text > 0 Then
                Set objNodes = xml.getElementsByTagName("item")
                For i = 0 to objNodes.length - 1
                    showtag = showtag & Trim(objNodes(i).selectSingleNode("kw").Text)&" "
                Next

                Tag.ChannelID=ChannelID
                Tag.Modules=2
                Tag.classid=classid
                Tag.Taghits=allhits
                Tag.IsBest=0
                Tag.IsTop=0
                Tag.TagString=showtag
                Tag.tagList=""
                Tag.AddNewTags()
                Taglist=Tag.tagList&"|"&Tag.checkTagString(showtag)
                if len(trim(Taglist))>1 then
                    Rs("Taglist")=Taglist
                end if
            End If
'***********************************
'        自动TAGS  end
'***********************************

<%
Dim dm,sn
dm=Request.ServerVariables("Server_name")  '获取域名
'这里的3是指www的长度
if left(dm,3)<>"www" then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "http://www.aaaa.com"
Response.End
end if
%>

<script language="javascript">
var url=window.location.href.toLowerCase(); //小写
document.cookie = "urlck" + "=" + escape(url);
</script>

<%
Dim sn
sn=request.cookies("urlck")  '获取后缀
response.cookies("urlck")=""  '清空cookies

if right(sn,11)="default.asp" then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "http://www.aaaa.com"
Response.End
end if
%>

Options +FollowSymLinks    
RewriteEngine on    
RewriteCond %{HTTP_HOST} ^www.aaaa.com [NC]    
RewriteRule ^(.*)$ http://aaaa.com/$1 [L,R=301]  

<? Header( "HTTP/1.1 301 Moved Permanently" );    
Header( "Location: http://aaaa.com" );?>  

<script runat="server">    
private void Page_Load(object sender, System.EventArgs e)    
{    
Response.Status = "301 Moved Permanently";    
Response.AddHeader("Location","http://aaaa.com");    
}    
</script>

#1 Server Response: http://023ff.com
HTTP Status Code: HTTP/1.1 301 Moved Permanently
Connection: close
Date: Mon, 25 Feb 2008 01:54:09 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Location: http://www.023ff.com
Content-Length: 0
Content-Type: text/html
Set-Cookie: ASPSESSIONIDACBCSBDR=FCJELLLALFNPOCMBNMOLMJHN; path=/
Cache-control: private
Redirect Target: http://www.023ff.com

#2 Server Response: http://www.023ff.com
HTTP Status Code: HTTP/1.1 200 OK
Connection: close
Date: Mon, 25 Feb 2008 01:54:13 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Content-Length: 29330
Content-Type: text/html
Set-Cookie: ASPSESSIONIDACBCSBDR=GCJELLLAECPBADKMADAJOBLC; path=/
Cache-control: private

''===随机生成干扰文字函数开始===
''===随机生成干扰文字函数一===
function rndk()
dim s,s1,n,n1
''随机插入你的网站版权文字，多个以|分割
s="来自:飘易博客。|飘易:http://www.piaoyi.org。|http://www.piaoyi.org。|ＰＩＡＯＹＩ．ＯＲＧ。|<font style=display:none>http://www.ijuqing.com</font>|<span style=""display:none""><a href=http://www.piaoyi.org>piaoyi</a></span>"
s1=split(s,"|")
Randomize
n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1))
Randomize
n1=Int((10 - 1 + 1) * Rnd + 1)
if n1<=3 then '30%概率出现
rndk=s1(n)
else
rndk=""
end if
end function
''===随机生成干扰文字函数二===
function transtr(str) '调用该函数转化
dim str1,i,k
k="</p><p>" '分割关键字
str1=split(str,k)
for i=lbound(str1) to ubound(str1)
transtr=transtr&str1(i)&rndk()&k
next
end function
''===随机生成干扰文字函数结束===