<% Dim Keyword Keyword = Trim(Request("keyword")) If Len(Keyword)>20 Then Keyword = Left(Keyword,20) End If If Keyword<>"" Then KeywordCode = Server.URLEncode(Keyword) KeyEnCode = base64Encode(KeywordCode) Response.Redirect("https://kaoshi.china.com/sonews/"&KeyEnCode&".htm") End If %>