<%@ Language=VBScript %> <% Dim IP1 IP1 = Trim(Request.ServerVariables("REMOTE_ADDR")) If Left(IP1, 4) = "221.1" Then Response.End Dim strKey, strType strKey = LCase(Request.Form("txtKey")) If InStr(strKey, " "8" Then strType = "0" Dim szT0, szT1, szT2, szT3, szT4, szT5, szT6, szT7, szT8 select case strType case "1" szT1 = " selected=""selected""" case "2" szT2 = " selected=""selected""" case "3" szT3 = " selected=""selected""" case "4" szT4 = " selected=""selected""" case "5" szT5 = " selected=""selected""" case "6" szT6 = " selected=""selected""" case "7" szT7 = " selected=""selected""" case "8" szT8 = " selected=""selected""" case else szT0 = " selected=""selected""" end select If Trim(strKey) = "" Then Response.Redirect "/" Response.End End If strKey = Trim(strKey) If Len(strKey)>80 Then strKey = Left(strKey, 80) '----------------------------------------------------------- ' Save Key to Log Dim objSaveKey, strKeyLog, strRIP, strXIP, strHOST, strQSTR strXIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") strRIP = Request.ServerVariables("REMOTE_ADDR") strHOST = Request.ServerVariables("REMOTE_HOST") strQSTR = Request.ServerVariables("QUERY_STRING") If Left(IP1, 5) <> "74.6." Then strKeyLog = "{" & strKey & "}, RIP=" & strRIP & ", XIP=" & strXIP & ", HOST=" & strHOST & ", QSTR=" & strQSTR Set objSaveKey = CreateObject("qwSaveKey.cSaveKey") objSaveKey.Save2Log strKeyLog Set objSaveKey = Nothing End If '----------------------------------------------------------- Dim objSearch Dim strHTML Dim strTime Dim strResult Dim strCount Dim nCount Dim nStart Dim nPageSize Dim nType nStart = 0 nPageSize = 10 Set objSearch = CreateObject("NewQwSearch.cSearch") strHTML = objSearch.SearchKey(strKey, nStart, nPageSize, strType) strTime = objSearch.GetTime() strCount = objSearch.GetCountString() strResult = objSearch.GetResultPages() Set objSearch = Nothing Dim nRel, strRelKey strRelKey = "" nRel = 1 If nRel > 0 Then Dim objRelKey ' Set objRelKey = CreateObject("qwRelKey.cRelKey") ' strRelKey = objRelKey.SearchRelKey(strKey, 20) ' Set objRelKey = Nothing Dim arrRelKeys, strHref, xAd ' nRel = Instr(strRelKey, vbCrLf) nRel = 2 If nRel > 1 Then 'arrRelKeys = Split(strRelKey, vbCrLf) 'Dim i 'arrRelKeys(LBound(arrRelKeys)) = "" 'For i = LBound(arrRelKeys) + 1 To UBound(arrRelKeys) ' strHref = "http://www.qweas.com/searchx-new.asp?key=" & arrRelKeys(i) & "&type=" & nType ' arrRelKeys(i) = "" & arrRelKeys(i) & "" 'Next xAd = "


" & VBCRLF & _ " " & VBCRLF & _ "" & VBCRLF 'strRelKey = Join(arrRelKeys, "
" & vbCrLf) 'strRelKey = Right(strRelKey, Len(strRelKey) - 4) strRelKey = "" strRelKey = "" & vbCrLf & _ "" & _ "
Related Search Terms
" & strRelKey & xAd & "
" Else strRelKey = "" End If End If If Len(strKey) > 40 Then strKey = Left(strKey, 30) & "..." End If If Len(strHTML) < 30 Then strHTML = "No Records Found!" End If If Len(strResult) < 30 Then strResult = "No Pages" End If Dim strTypeAll, strTypeQweas If nType = 0 Then strTypeAll = "checked" strTypeQweas = "" Else strTypeQweas = "checked" strTypeAll = "" End If Dim strKey1 strKey1 = Replace(strKey, """", "") strKey1 = Replace(strKey1, "'", "`") %> <%=strKey1%> Download and Reviews - <%=strTime%> seconds
  About Qweas     RSS Feeds     BBS Forum Make Qweas.com My Home Page     Bookmark this page Register     Login     Help     Send Feedback  
Qweas
Search Rules  |  Search FAQ Feedback  |  Suggest Software
Result: <%=strResult%>
Results <% =nStart + 1 %> - <% =nStart + nPageSize %> of about <% =strCount %> for <% =strKey %>. ( <% =strTime %> seconds)
<% Response.Write strRelKey %>

<% Response.Write strHTML %>

Result Pages:   <% Response.Write strResult %>