{"id":36,"date":"2010-07-01T21:42:55","date_gmt":"2010-07-01T21:42:55","guid":{"rendered":"http:\/\/blog.yyhcw.com\/post\/36.html"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T07:54:17","slug":"kesion6.5","status":"publish","type":"post","link":"http:\/\/blog.yyhcw.com\/post\/36.html","title":{"rendered":"\u79d1\u8baf6.5\u4f01\u4e1a\u9ec4\u9875\u9996\u9875\u5217\u8868\u663e\u793a"},"content":{"rendered":"

\u3000\u3000\u4e5f\u4e0d\u77e5\u9053\u662f\u6211\u7684\u64cd\u4f5c\u4e0d\u6b63\u786e\u8fd8\u662f\u600e\u4e48\u56de\u4e8b\uff0c\u60f3\u8ba9\u4f01\u4e1a\u9ec4\u9875\u4ee5\u5217\u8868\u7684\u5f62\u5f0f\u663e\u793a\u51fa\u6765 \u53ef\u662f\u600e\u4e48\u8c03\u6574\u4e5f\u4e0d\u884c \u7b97\u4e86\uff0c\u6700\u540e\u6253\u7b97\u8fd8\u662f\u81ea\u5df1\u52a8\u624b\u6539\u9020\u5427\uff01\u65e2\u65b9\u4fbf\u4e5f\u5feb\u6377\uff0c\u5e9f\u8bdd\u4e0d\u591a\u8bf4\u4e00\u4e0b\u662f\u6539\u9020\u79d1\u8baf6.5\u4f01\u4e1a\u9ec4\u9875\u9996\u9875\u5217\u8868\u663e\u793a<\/a>\u8fc7\u7a0b\uff1a<\/p>\n

\u6211\u76f4\u63a5\u5c06\u4fee\u6539\u8fc7\u7684\u6e90\u4ee3\u7801\u53d1\u4e0a\u6765\u5427\uff01\u6211\u8bed\u8a00\u80fd\u529b\u4e0d\u884c\uff0c\u4e0d\u8981\u89c1\u7b11........<\/p>\n

<%Option Explicit%>
<!--#include File="..\/Conn.asp"-->
<!--#include file="..\/KS_Cls\/Kesion.CommonCls.asp"-->
<!--#include file="..\/KS_Cls\/Kesion.Label.CommonCls.asp"-->
<%<\/p>\n

'****************************************************
' Software name:Kesion CMS 6.5
' Email: service@kesion.com . QQ:111394,9537636
' Web: http:\/\/www.kesion.com http:\/\/www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim SearchCls
Set SearchCls = New SearchResult
SearchCls.Kesion()
Set SearchCls = Nothing<\/p>\n

Class SearchResult
    Private KS,KMR,F_C,LoopContent,SearchResult,photourl
 Private ChannelID,ClassID,SearchType,str,astr,SearchForm
    Private I,TotalPut, CurrentPage,MaxPerPage,RS,KeyWordArr
  
 Private Sub Class_Initialize()
 
 '***********\u5224\u65ad\u662f\u5426\u4e0e\u670d\u52a1\u5668\u7aef\u8fde\u63a5*********
  If (Not Response.IsClientConnected)Then
   Response.Clear
   Response.End
   End If
 
  Set KS=New PublicCls
  Set KMR=New Refresh
  MaxPerPage=3
  If KS.S("page") <> "" Then
          CurrentPage = CInt(Request("page"))
        Else
          CurrentPage = 1
        End If<\/p>\n

 End Sub<\/p>\n

 Private Sub Class_Terminate()
'  response.Write "bbbbbbbb"
        closeconn
     Set KS=Nothing
  Set KMR=Nothing
 End Sub
 
 Sub Kesion()
           F_C = KMR.LoadTemplate(KS.Setting(3) & KS.Setting(90) & "\u4f01\u4e1a\u7a7a\u95f4\/index.html")
     If Trim(F_C) = "" Then F_C = "\u6a21\u677f\u4e0d\u5b58\u5728!"
    
     FCls.RefreshType = "enterprise" '\u8bbe\u7f6e\u5237\u65b0\u7c7b\u578b\uff0c\u4ee5\u4fbf\u53d6\u5f97\u5f53\u524d\u4f4d\u7f6e\u5bfc\u822a\u7b49
     Fcls.RefreshFolderID = "0" '\u8bbe\u7f6e\u5f53\u524d\u5237\u65b0\u76ee\u5f55ID \u4e3a"0" \u4ee5\u53d6\u5f97\u901a\u7528\u6807\u7b7e
    
     '********\u83b7\u53d6\u5206\u7c7b*********
     call GetClassList()
     F_C=Replace(F_C,"{$ShowClass}",str)
     '********\u83b7\u53d6\u5730\u533a*********
     call getarealist()
     F_C=Replace(F_C,"{$ShowAreaList}",astr)
    
'     Response.Write FCls.RefreshType&"fffffffffffsss"
     '\u5f97\u5230“[loop] [\/loop]”\u4e2d\u95f4\u7684\u6240\u6709\u5185\u5bb9
      LoopContent=KS.CutFixContent(F_C, "[loop]", "[\/loop]", 0)
   Call LoadSearch()
   F_C = KMR.KSLabelReplaceAll(F_C)
   Response.Write F_C
 End Sub
 
 
Sub GetClassList()
   Dim RS,I,RSS
   Set RS=Conn.Execute("select id,classname from ks_enterpriseclass where parentid=0 order by orderid")
   str="<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbcrlf
   Do While Not RS.Eof
   str=str & "<tr>" & vbcrlf
   for i=1 to 2
     str=str & "<td width=""50%"" style=""padding:5px"">" & vbcrlf
     str=str & "<div style=""height:20px;"" class=""classname""><span style=""font-weight:bold""><img src=""..\/images\/arrow_r.gif""> <a href=""list.asp?pid=" & rs(0) & """>" & rs(1) &"<\/a><\/span>(" & conn.execute("select count(id) from ks_enterprise where status=1 and classid=" & rs(0))(0) &") <\/div>" & vbcrlf
     str=str & "<div style=""height:50px;padding-left:12px"">"
     dim xml,node,num,n
     set rss=conn.execute("select id,classname from ks_enterpriseclass where parentid=" & rs(0))
     if not rss.eof then set xml=KS.RsToXml(rss,"row","") else xml=empty
     rss.close:set rss=nothing
     if isobject(xml) then
         num=xml.DocumentElement.SelectNodes("row").length : n=0
      for each node in xml.DocumentElement.SelectNodes("row")
    str=str & "<a href='list.asp?id=" & node.selectsinglenode("@id").text & "'>" & node.selectsinglenode("@classname").text & "<\/a>"
    n=n+1
    if num<>n then str=str & " | "
      next
    xml=empty : set node=nothing
     end if
     str=str & "<\/div>"
     str=str & "<\/td>" & vbcrlf
     rs.movenext
     if rs.eof then exit for
   next
   str=str & "<\/tr>"
   Loop
   str=str & "<\/table>" & vbcrlf
   rs.close:set rs=nothing
End Sub
 
'******************\u83b7\u53d6\u5730\u533a*********
Sub getarealist()
    Dim RS,I,SQL,K,N
    Set RS=Conn.Execute("Select id,city from KS_Province where parentid=0 order by orderid")
    IF Not RS.Eof Then SQL=RS.GetRows(-1):RS.Close:Set RS=Nothing
    If IsArray(SQL) Then
     astr="<table border='0' width='100%'>" &vbcrlf
     N=0
     For i=0 To Ubound(SQL,2)
    astr=astr & "<tr>" &vbcrlf
    For K=1 To 3
    astr=astr & "<td><img src='..\/images\/arrow_r.gif'> <a href=""list.asp?province=" & sql(1,n) & "&provinceid=" & SQL(0,n) & """>" & sql(1,n) & "<\/a><\/td>"
    n=n+1
    if n>Ubound(SQL,2) then Exit For
    Next
    astr=astr & "<\/tr>" &vbcrlf
    if n>Ubound(SQL,2) then Exit For
    Next
    astr=astr & "<\/table>" & vbcrlf
   End If
End Sub
 
 
 <\/p>\n

 Sub LoadSearch()
     Call ArticleSearch()
' F_C = Replace(F_C,"{$GetClassName}","\u90d1\u5dde\u5bb6\u653f\u7f51")
 F_C = Replace(F_C,"{$ShowTotal}",totalput)
 F_C = Replace(F_C,KS.CutFixContent(F_C, "[loop]", "[\/loop]", 1),SearchResult)
 F_C = Replace(F_C,"{$ShowPage}",KS.ShowPage(totalput, MaxPerPage, "", CurrentPage,false,false))
  End Sub
 
 
Sub ArticleSearch()
  Dim SqlStr,Param
'  Param=" Where IsShow=1"
'  If DQType <> 0 Then Param = Param &" And Y_DiQu="& DQType &""
 
 SqlStr="Select * From KS_EnterPrise" & Param & " Order By ID Desc"
  Set RS=Server.CreateObject("ADODB.RECORDSET")
  RS.Open SqlStr,Conn,1,3
  IF RS.Eof And RS.Bof Then
      totalput=0
      SearchResult = "<a href=""http:\/\/www.21863.cn<\/a>"">\u90d1\u5dde\u5bb6\u653f\u7f51<\/a>"
   exit sub
  Else
     TotalPut= Conn.Execute("Select count(*) from KS_EnterPrise" & Param)(0)
                    If CurrentPage < 1 Then CurrentPage = 1<\/p>\n

                    If (CurrentPage - 1) * MaxPerPage > totalPut Then
                        If (TotalPut Mod MaxPerPage) = 0 Then
                            CurrentPage = totalPut \\ MaxPerPage
                        Else
                            CurrentPage = totalPut \\ MaxPerPage + 1
                        End If
                    End If<\/p>\n

                    If CurrentPage = 1 Then
                             Call GetSearchResult
                    Else
                        If (CurrentPage - 1) * MaxPerPage < totalPut Then
                            RS.Move (CurrentPage - 1) * MaxPerPage
                            Call GetSearchResult
                        Else
                            CurrentPage = 1
                            Call GetSearchResult
                        End If
                    End If
    End IF
 RS.Close
 Set RS=Nothing
End Sub  <\/p>\n

  Sub GetSearchResult()
      on error resume next
   I=0
       Dim LC
    Do While Not RS.Eof
    If Not Response.IsClientConnected Then Response.end
     LC=LoopContent
     LC=replace(LC,"{$GetUserName}",rs("UserName"))
     LC=replace(LC,"{$GetCompanyName}",rs("CompanyName"))
     LC=replace(LC,"{$GetProvince}",rs("Province"))
     LC=replace(LC,"{$GetCity}",rs("City"))
     LC=replace(LC,"{$GetAddress}",rs("Address"))
     LC=replace(LC,"{$GetEmail}",rs("Email"))
     LC=replace(LC,"{$GetMobile}",rs("Mobile"))
     LC=replace(LC,"{$GetIntro}",KS.gotTopic(FilterAllHTML(rs("Intro")),180))
'     LC=replace(LC,"{$GetLinkUrl}","\/"&Y_JZDir&"info.asp?"& rs("ID") &".html")
   '\u66ff\u6362\u81ea\u5b9a\u4e49\u5b57\u6bb5 ReplaceUserDefine
     LC=LFCls.ReplaceUserDefine(ChannelID,LC,RS)
     SearchResult=SearchResult & LC
   I = I + 1
   If I >= MaxPerPage Then Exit Do
   RS.MoveNext
  Loop
  End Sub
 
'*************************************
'***********\u8fc7\u6ee4HTML******************
'*************************************
Function FilterAllHTML(strHTML)
 'Strips the HTML tags from strHTML
 Dim objRegExp, strOutput
 Set objRegExp = New Regexp
 objRegExp.IgnoreCase = True
 objRegExp.Global = True
 objRegExp.Pattern = "<.+?>"
 'Replace all HTML tag matches with the empty string
 strOutput = objRegExp.Replace(strHTML, "")
 'Replace all < and > with < and >
 strOutput = Replace(strOutput, "&lt;p&gt;", "")
 strOutput = Replace(strOutput, "&lt;\/p&gt;", "")
 strOutput = Replace(strOutput, "<", "<")
 strOutput = Replace(strOutput, ">", ">")
 FilterAllHTML = strOutput 'Return the value of strOutput
 Set objRegExp = Nothing
End Function<\/p>\n

End Class
%><\/p>\n

\u4e3a\u4e86\u8ba9\u663e\u793a\u7684\u7b80\u4ecb\u80fd\u6b63\u5e38\u663e\u793a \u6211\u4f7f\u7528\u4e86 FilterAllHTML \u51fd\u6570\u5c06\u6240\u6709HTML\u90fd\u7ed9\u8fc7\u6ee4\u4e86\uff01\u672c\u4eba\u4f7f\u7528\u7684\u79d1\u8baf6.5<\/a><\/p>\n

\u53ef\u80fd\u4ee5\u4e0a\u7a0b\u5e8f\u6709\u9519\u8bef\u4e4b\u5904 \u8fd8\u8bf7\u5927\u867e\u4eec\u6307\u6b63 \u5171\u540c\u7814\u7a76 \u5b66\u4e60<\/p>\n","protected":false},"excerpt":{"rendered":"\u3000\u3000\u4e5f\u4e0d\u77e5\u9053\u662f\u6211\u7684\u64cd\u4f5c\u4e0d\u6b63\u786e\u8fd8\u662f\u600e\u4e48\u56de\u4e8b\uff0c\u60f3\u8ba9\u4f01\u4e1a\u9ec4\u9875\u4ee5\u5217\u8868\u7684\u5f62\u5f0f\u663e\u793a\u51fa\u6765 \u53ef\u662f\u600e\u4e48\u8c03\u6574\u4e5f\u4e0d\u884c \u7b97\u4e86\uff0c\u6700\u540e\u6253\u7b97 \u00b7\u00b7\u00b7","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3],"tags":[],"views":252,"_links":{"self":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts\/36"}],"collection":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/comments?post=36"}],"version-history":[{"count":0,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/posts\/36\/revisions"}],"wp:attachment":[{"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/media?parent=36"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/categories?post=36"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/blog.yyhcw.com\/api\/wp\/v2\/tags?post=36"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}