<% cl=request("cl") if cl = "" then cl=1 end if if IsNumeric(cl) = false then cl=1 end if if clng(cl)>5 or clng(cl)<1 then cl=1 end if query=Trim(request("query")) do while not InstrRev(query," ")=0 query=replace(query," "," ") loop URLQuery=Server.URLEncode(query) if query="" then Select Case cl Case 1 Response.Redirect("search.htm") Case 2 Response.Redirect("search_hos.htm") Case 3 Response.Redirect("search_med.htm") Case 4 Response.Redirect("search_dis.htm") Case 5 Response.Redirect("search_web.htm") Case Else Response.Redirect("search.htm") end Select else '---------------------------------------------------------------- FlagQuery = 0 '判斷查詢字符串是否被拆分的標識 0表示沒有拆分 Flag_de = 0 Flag_shi = 0 Flag_he = 0 Flag_yu = 0 query_FGC = query '分割串 if Instr(query_FGC,"的") > 0 then query_FGC = replace(query_FGC,"的"," ") Flag_de = 1 end if if Instr(query_FGC,"是") > 0 then query_FGC = replace(query_FGC,"是"," ") Flag_shi = 1 end if if Instr(query_FGC,"和") > 0 then query_FGC = replace(query_FGC,"和"," ") Flag_he = 1 end if if Instr(query_FGC,"與") > 0 then query_FGC = replace(query_FGC,"與"," ") Flag_yu = 1 end if if Instr(query_FGC,"或者") > 0 then query_FGC = replace(query_FGC,"或者"," ") Flag_huozhe = 1 end if if Instr(query_FGC,"或") > 0 then query_FGC = replace(query_FGC,"或"," ") Flag_huo = 1 end if if Instr(query_FGC,",") > 0 then query_FGC = replace(query_FGC,","," ") end if if Instr(query_FGC,"，") > 0 then query_FGC = replace(query_FGC,"，"," ") end if if Instr(query_FGC,"。") > 0 then query_FGC = replace(query_FGC,"。"," ") end if if Instr(query_FGC,"？") > 0 then query_FGC = replace(query_FGC,"？"," ") end if if Instr(query_FGC,"?") > 0 then query_FGC = replace(query_FGC,"?"," ") end if if Instr(query_FGC,"!") > 0 then query_FGC = replace(query_FGC,"!"," ") end if if Instr(query_FGC,"！") > 0 then query_FGC = replace(query_FGC,"！"," ") end if if Instr(query_FGC,"、") > 0 then query_FGC = replace(query_FGC,"、"," ") end if if Instr(query_FGC,"+") > 0 then query_FGC = replace(query_FGC,"+"," ") end if if Instr(query_FGC,"；") > 0 then query_FGC = replace(query_FGC,"；"," ") end if if Instr(query_FGC,";") > 0 then query_FGC = replace(query_FGC,";"," ") end if if Instr(query_FGC,":") > 0 then query_FGC = replace(query_FGC,":"," ") end if if Instr(query_FGC,"：") > 0 then query_FGC = replace(query_FGC,"："," ") end if do while not InstrRev(query_FGC," ")=0 query_FGC=replace(query_FGC," "," ") loop query_FGC=Trim(query_FGC) if InstrRev(query_FGC," ")>0 then '判斷查詢字符串是否被拆分>0被拆分 QueryArray=split(query_FGC," ") for QA_i = 0 to ubound(QueryArray) TJQuery=TJQuery & InStr(1,LCase(Title),LCase(QueryArray(QA_i)),0)<>0 &" or "& InStr(1,LCase(Key),LCase(QueryArray(QA_i)),0)<>0 &" or "& InStr(1,LCase(Content),LCase(QueryArray(QA_i)),0)<>0 &" or " next TJQuery = left(TJQuery,len(TJQuery)-4) 'TJQuery：查詢條件SQL文 FlagQuery = 1 else TJQuery = InStr(1,LCase(Title),LCase(query),0)<>0 &" or "& InStr(1,LCase(Key),LCase(query),0)<>0 &" or "& InStr(1,LCase(Content),LCase(query),0)<>0 &" or " end if '---------------------------------------------------------------- 'ConditionQuery=URLDecode(query) 'ConditionQuery="%" & outHTML(ConditionQuery) & "%" Select Case cl Case 1 rsCondition="SoArticle" Case 2 rsCondition="SoHospital" Case 3 rsCondition="SoMedicine" Case 4 rsCondition="SoDisease" Case 5 rsCondition="SoWeb" Case Else rsCondition="SoArticle" end Select end if page=request("page") 'if page="" then 'set rs = server.createobject("adodb.recordset") 'sql = "select "&rsCondition&",SoID,SoQuery,SoSUM from JK_So where SoQuery like '"&Query&"'" 'rs.open sql,conn,1,3 'if rs.bof and rs.eof then 'set rsID=server.createobject("adodb.recordset") 'sqlID ="select SoID from JK_So where SoID in( select max(SoID) from JK_So )" 'rsID.open sqlID,conn,1,3 'if rsID.eof and rsID.bof then 'ID = 1 'else 'ID = rsID("SoID") + 1 'end if 'rsID.close 'set rsID = nothing 'rs.addnew 'rs("SoID")=ID 'rs("SoQuery")=query 'rs(rsCondition)=1 'rs("SoSUM")=1 'rs.update 'else 'rs(rsCondition)=rs(rsCondition)+1 'rs("SoSUM")=rs("SoSUM")+1 'rs.update 'end if 'rs.close 'set rs = nothing 'end if Function TDTEXT(cl2,ClassText)'導航欄 if cl2=clng(cl) then Text=""&ClassText&"" else Text=""&ClassText&"" end if TDTEXT=Text Text="" end Function BeginTime=Timer set rs = server.createobject("adodb.recordset") sql = "select ArticleID,ClassID,Content,Title,UpdateTime from JK_Article where deled = 'false' order by Hits desc,ArticleID desc" 'and "&TJQuery&" rs.open sql,conn,1,1 ASUM=rs.recordcount if ASUM = 0 then FindContent="
未找到和您的查詢"""&outHTML(query)&""" 相匹配的網頁，建議您:

  1.查看輸入關鍵詞文字是否有誤；
  2.去掉可能不必要的字詞，如""怎么樣""、""怎樣""、""如何""、""什么""等；
  3.調整關鍵詞為常見的關鍵詞；
  4.試試短一些的詞匯。

" else c=rs.recordcount onepage=10'每頁顯示信息條數 rs.pagesize=onepage pages=rs.pagecount page=request("page") if IsNumeric(page) = false then page=1 page = clng(page) if page<=0 then page=1 pump=onepage*(page-1) if page<10 then firstnum=1 lastnum=10 if lastnum>pages then lastnum=pages else firstnum=page-10 lastnum=page+10 if lastnum>pages then lastnum=pages end if PageText="
" if page<=1 then SYY="" else SYY="上一頁" end if PageText=PageText&SYY for i=firstnum to lastnum if i = page then if pages = 1 then PageText=PageText else PageText=PageText & page end if else PageText=PageText&" ["&i&"] " end if next if page >= pages then HYY="" else HYY="下一頁" end if PageText=PageText&HYY&"
" rs.move pump for i=1 to onepage if rs.eof then exit for ArticleID = rs("ArticleID") 'Content = replace(replace(replace(left(nohtml(rs("Content")),166), "<", "<"), ">", ">"),query,""&query&"")&"..." '--------------------------------------------------------------- Content = nohtml(rs("Content"))'取出不帶html的文章內容 'ContentLen = len(Content) '文章總長度 if FlagQuery = 0 then '查詢字符串沒有拆分 if InStr(Content,cStr(query))-10 > 0 then Content = mid(Content,InStr(Content,cStr(query))-10,166) Content = replace(Content,query,""&query&"") & "..." else Content = replace(left(Content,166),query,""&query&"")&"..." end if Title = replace(rs("Title"),query_FGC,""&query_FGC&"") else Temp_i = 99999 for QA_i = 0 to ubound(QueryArray) if Temp_i > InStr(Content,cStr(QueryArray(QA_i))) and InStr(Content,cStr(QueryArray(QA_i))) >0 then Temp_i = InStr(Content,cStr(QueryArray(QA_i))) end if next if Temp_i - 10 > 0 then Content = mid(Content,Temp_i - 10,166) else Content = left(Content,166) end if Title = rs("Title") for QA_i = 0 to ubound(QueryArray) Content = replace(Content,QueryArray(QA_i),""&QueryArray(QA_i)&"") Title = replace(Title,QueryArray(QA_i),""&QueryArray(QA_i)&"") next if Flag_de = 1 then Content = replace(Content,"的","的") end if if Flag_shi = 1 then Content = replace(Content,"是","是") end if if Flag_he = 1 then Content = replace(Content,"和","和") end if if Flag_yu = 1 then Content = replace(Content,"與","與") end if if Flag_huozhe = 1 then Content = replace(Content,"或者","或者") end if if Flag_huo = 1 then Content = replace(Content,"或","或") end if Content = Content & "..." end if '--------------------------------------------------------------- ClassID = rs("ClassID") UpdateTime = rs("UpdateTime") filename = replace(replace(replace(CStr(updatetime)," ",""),":",""),"-","") UpdateTime = DateValue(UpdateTime) K=int((strLength(Content)+8300)/1024)'文章字節數，已KB為單位 set rsC=server.createobject("adodb.recordset") sqlC="select ClassName,ClassPath from JK_ArticleClass where ClassID = "&ClassID&"" rsC.open sqlC,conn,1,1 ClassPath = rsC("ClassPath") ClassName = rsC("ClassName") rsC.close set rsC = nothing ClassNameArray=split(ClassName,"|") ClassPath2=ClassPath & "/" ClassPathArray=split(ClassPath2,"/") for i2 = 0 to ubound(ClassPathArray)-1 if i2 <= ubound(ClassPathArray)-1 and i2 > 0 then ClassPathArray(i2)=ClassPathArray(i2-1) & "/" & ClassPathArray(i2) end if Nav=Nav&""&ClassNameArray(i2)&" > " next Nav=left(Nav,len(Nav)-6) Nav="求醫問藥 > "&Nav FindContent=FindContent & "
"&Title&"
" FindContent=FindContent & Content &"
"&Nav&K&"K "&UpdateTime&"

" Nav="" rs.movenext next end if rs.close set rs = nothing if ASUM>20 then ASUM=Round((ASUM+1)/10)*10 end if F_Sum="找到相關網頁約"&ASUM&"篇，" F_Time="用時"&FormatNumber((Timer-BeginTime),3,true)&"秒" 'set rs = server.createobject("adodb.recordset") 'sql = "select SoQuery from JK_So where SoQuery like '%"&Query&"%' and SoQuery not like '"&Query&"' order by "&rsCondition&" desc,SoSUM desc" 'rs.open sql,conn,1,1 'if rs.bof and rs.eof then 'FindCorrelative="" 'else 'RSC=rs.recordcount 'FindCorrelative="
" 'FindCorrelative=FindCorrelative&"
相關搜索" 'if RSC >= 9 then 'for i = 1 to 9 'if i mod(5) = 1 then 'FindCorrelative=FindCorrelative&"" 'else 'if i mod(5) = 0 then 'FindCorrelative=FindCorrelative&"" 'else 'FindCorrelative=FindCorrelative&"" 'end if 'end if 'rs.movenext 'next 'FindCorrelative=FindCorrelative&"
"&outHTML(rs("SoQuery"))&" "&outHTML(rs("SoQuery"))&" 
"&outHTML(rs("SoQuery"))&" 更多相關搜索 >> 
 
" 'else 'for i = 1 to RSC 'if i mod(5) = 1 then 'FindCorrelative=FindCorrelative&""&outHTML(rs("SoQuery"))&" " 'else 'if i mod(5) = 0 then 'FindCorrelative=FindCorrelative&""&outHTML(rs("SoQuery"))&" " 'else 'FindCorrelative=FindCorrelative&""&outHTML(rs("SoQuery"))&" " 'end if 'end if 'rs.movenext 'next 'for i = RSC+1 to 9 'if i mod(5) = 1 then 'FindCorrelative=FindCorrelative&"  " 'else 'if i mod(5) = 0 then 'FindCorrelative=FindCorrelative&"  " 'else 'FindCorrelative=FindCorrelative&"  " 'end if 'end if 'next 'FindCorrelative=FindCorrelative&"   " 'end if 'end if 'rs.close 'set rs = nothing conn.close set conn = nothing ' Function GoogleKeyWord(query) ' Randomize ' RNum=round(RND()*100) mod 37 ' Select Case RNum ' Case 0 ' GoogleKeyWord = "留學" ' Case 1 ' GoogleKeyWord = query ' Case 2 ' GoogleKeyWord = "出國" ' Case 3 ' GoogleKeyWord = "留學加拿大" ' Case 4 ' GoogleKeyWord = query ' Case 5 ' GoogleKeyWord = query ' Case 6 ' GoogleKeyWord = "留學美國" ' Case 7 ' GoogleKeyWord = "移民" ' Case 8 ' GoogleKeyWord = query ' Case 9 ' GoogleKeyWord = query ' Case 10 ' GoogleKeyWord = "MBA" ' Case 11 ' GoogleKeyWord = "EMBA" ' Case 12 ' GoogleKeyWord = query ' Case 13 ' GoogleKeyWord = query ' Case 14 ' GoogleKeyWord = "MBA學習" ' Case 15 ' GoogleKeyWord = query ' Case 16 ' GoogleKeyWord = "EMBA學習" ' Case 17 ' GoogleKeyWord = query ' Case 18 ' GoogleKeyWord = "英語" ' Case 19 ' GoogleKeyWord = query ' Case 20 ' GoogleKeyWord = "英語學習" ' Case 21 ' GoogleKeyWord = "EMBA課程" ' Case 22 ' GoogleKeyWord = query ' Case 23 ' GoogleKeyWord = query ' Case 24 ' GoogleKeyWord = "MBA課程" ' Case 25 ' GoogleKeyWord = query ' Case 26 ' GoogleKeyWord = "移民加拿大" ' Case 27 ' GoogleKeyWord = query ' Case 28 ' GoogleKeyWord = query ' Case 29 ' GoogleKeyWord = "英語培訓" ' Case 30 ' GoogleKeyWord = query ' Case 31 ' GoogleKeyWord = "MBA培訓" ' Case 32 ' GoogleKeyWord = query ' Case 33 ' GoogleKeyWord = "EMBA培訓" ' Case 34 ' GoogleKeyWord = query ' Case 35 ' GoogleKeyWord = "減肥" ' Case 36 ' GoogleKeyWord = query ' end Select ' end Function %> <%=outHTML(query)%>_求醫問藥搜霸

艾客直播_伊人久久婷婷五月综97色,无码少妇一区二区三区99,精品国产欧美一区二区,四虎成人国产精品永久在线

求醫問藥
>
<%=TDTEXT(1,"資 訊")%><%=TDTEXT(2,"醫 院")%><%=TDTEXT(3,"醫 藥")%><%=TDTEXT(4,"疾 病")%><%=TDTEXT(5,"網 站")%>
首 頁<%=F_Sum%><%=F_Time%> 


<%=FindContent%>

<%=PageText%>
　
<%'=FindCorrelative%>

> 

關于我們 | 聯系方式 | 廣告服務 | 招商引資 | 友情鏈接 | 設為首頁 | 網站地圖 | 網站導航
Copyright © 2005-2009　求醫問藥　jk58.com　All rights reserved
本站信息僅供參考 不能作為診斷及醫療的依據
聲明：本站部分信息來自互聯網，若有版權問題請及時與本站聯系。 

    • <tt id="qgamd"></tt>