请教一个解决问题的思想。

bbenyu

以下是我用ASP写的与取google.com关键字有关代码片段！供参考.

dim getStr
getStr        = Request.ServerVariables("HTTP_REFERER"
       
if 0 < len(trim(getStr)) then       
        dim keyWord, value, j, iNeed
        result        = split(getStr,"?"        ' 以？为符号,被划分为二部分
       
        if (isArray(result)) then       
                resultMore        = split(result(UBound(result)),"&"        ' 从result中取出第一部分并以&为符号被划分为四部分,
                if(isArray(resultMore)) then                       
                        for j=LBound(resultMore) to UBound(resultMore)                               
                                if "q"        = left(resultMore(j),1) then        ' 还要看一下是不是q开头的,其它部分以此类推;
                                        iNeed        = resultMore(j)        ' 取得以Q串
                                        exit for
                                end if
                        next
                end if               
        else               
                response.write "无法取得您要的字串"                       
        end if

        ' 分析出Q串的值
        values        = split(iNeed,"="
       
        if (isArray(values)) then               
                keyword        = values(lbound(values))
                value        = values(ubound(values))
        end if
       
        ' 模糊匹配 q 关键值;
        if (("%E7%89" = left(value,6)) OR ("%E9%B1" = left(value,6)) OR ("%E7%99" = left(value,6))) then
                Response.redirect "http://www.zhpf.com.cn"
        elseif (("%E5%A4"        = left(value,6)) OR ("%E6%8A" = left(value,6))) then
                Response.redirect "http://www.gotosleep120.com"
        elseif ("%E9%AB%98%E8%A1%80%E5%8E%8B" =value) then
                Response.redirect "http://www.junkhospital.com/gxy/"
        else
                Response.write "遇到未知关键字...执行停止!"
        end if
       
else
        Response.write "请从GOOGLE查找进入"
end if

lauchee

很高深啊.