<% Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing '============================================================================== '软件名称:风讯网站信息管理系统 '当前版本:Foosun Content Manager System(FoosunCMS V3.2SP1) '最新更新:2006.50 '============================================================================== 'Copyright (C) 2002-2004 Foosun.Net All rights reserved. '商业注册联系:028-85098980-601,项目开发:028-85098980-606、609,客户支持:608 '产品咨询QQ:394226379,159410,125114015 '技术支持QQ:315485710,66252421 '项目开发QQ:415637671,655071 '程序开发:四川风讯科技发展有限公司(Foosun Inc.) 'Email:service@Foosun.cn 'MSN:skoolls@hotmail.com '论坛支持:风讯在线论坛(http:/bbs.foosun.net) '官方网站:www.Foosun.cn 演示站点:test.cooin.com '网站通系列(智能快速建站系列):www.ewebs.cn '============================================================================== '免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接 '风讯公司保留此程序的法律追究权利 '============================================================================== '加载 FS系统缓存 Dim ClassCache Set ClassCache = New Cls_FsCache ClassCache.Name="ConfigCache" If ClassCache.IsVaild = False Then ClassCache.ReLoadCache("") End If ClassCache.Name="ClassCache" If ClassCache.IsVaild = False Then ClassCache.ReLoadCache("") End If Set ClassCache=Nothing strpage=request.querystring("Page") if len(strpage)=0 then strpage="1" end if Dim Temp_DummyDir,Appraise If SysRootDir <> "" then Temp_DummyDir = "/" & SysRootDir Else Temp_DummyDir = "" End If dim DatePathStr %> <% = GetConfig(1)%>___关键字:<%=request("KeyWord")%> 搜索结果
中国触摸屏网
首页
触摸屏
一体机
触摸显示器
供求商机
产品展示
厂商资料
资讯中心
触摸软件
触摸论坛
触摸屏资讯 | 触控一体机 | 触摸屏屏幕 | 触摸屏机柜 | 触摸显示器 | 触摸控制器 | 自助终端 | 呼叫系统 | 触摸屏软件| 全国经销商
触摸屏外设 | 考勤排队机 | 触摸屏新品 | 解决之方案 | 选购与维护 | 驱动与软件 | 数字城市 | POS 系统 |LED电子大屏| 触摸屏论坛
   导航:首页 >> 搜索结果 全国触摸屏销售热线:(点击查看)
全国触摸屏经销商 全国触摸屏经销商
·广东广州 ·广东深圳
·福建福州 ·福建厦门
·福建泉州 ·湖南长沙
·江西南昌 ·上 海 市
·江苏南京 ·江苏苏州
·江苏无锡 ·北 京 市
·山东济南 ·山西太原
·重 庆 市 ·四川成都
·云南昆明
·>>> 经销商加入指南
搜索结果
以下为关键字<%=request("KeyWord")%>的相关内容
<% '判断开始 Dim Keyword,Condition,Types,ReSQL Keyword = Replace(Replace(request("keyword"),"'",""),Chr(39),"") Condition = LCase(Replace(Replace(request("condition"),"'",""),Chr(39),"")) Types = Replace(Replace(request("Types"),"'",""),Chr(39),"") Dim Rs Set Rs = server.CreateObject(G_FS_RS) If Keyword<>"" then If Types = "News" then Dim N1 If Condition = "title" Then N1 = " and Title like '%"& Keyword &"%'" ElseiF Condition = "content" Then N1 = " and Content like '%"& Keyword &"%'" Else N1 = " and Author like '%"& Keyword &"%'" End if ReSQL = "select * from FS_News where DelTF=0 and AuditTF=1 "& N1 &" Order by Id desc" ElseIf Types="DownLoad" then Dim k1 If Condition = "title" Then k1 = " and Name like '%"& Keyword &"%'" ElseiF Condition = "content" Then k1 = " and description like '%"& Keyword &"%'" Else k1 = " and Provider like '%"& Keyword &"%'" End if ReSQL = "select * from FS_Download where AuditTF=1 "& k1 &" Order by Id desc" End if Else Response.Write("") Response.End End if Rs.Open ReSQL,Conn,1,1 if Rs.eof then Response.write "

未找到符合你条件的"& Request("keyword") &"信息

" Else if Types = "News" Then Rs.pagesize=40 Rs.absolutepage=cint(strpage) select_count=Rs.recordcount select_pagecount=Rs.pagecount for i=1 to Rs.pagesize if Rs.eof then exit for end if response.write "" dim ClassCName1,RssearchObj Set RssearchObj = Conn.Execute("Select SaveFilePath,ClassEName,ClassCName,ClassID,FileExtName from FS_NewsClass where Classid = '" & Replace(Rs("ClassID"),"'","") &"'") if Not RssearchObj.eof then If GetConfig(21)="1" then DatePathStr=Rs("Path") else DatePathStr="" response.write "" response.write "" response.write "" end if response.write "
·" ClassCName1="["& RssearchObj("ClassCName") &"] " if Rs("HeadNewsTF")=1 then response.write ClassCName1 & ""& Rs("title") &"[标] " & Rs("AddDate")&"" else response.write ClassCName1 & "" & Rs("title") & " " & Rs("AddDate") & "" end if response.write "
" rs.movenext next ElseIf Types = "DownLoad" Then Appraise = Array("","★","★★","★★★","★★★★","★★★★★","★★★★★★") %> <% Rs.pagesize=50 Rs.absolutepage=cint(strpage) Select_count=Rs.recordcount Select_pagecount=Rs.pagecount for i=1 to Rs.pagesize if Rs.eof then exit for end if if i mod 2 = 1 then %> <% else %> <% end if Set RssearchObj = Conn.Execute("Select ClassCName,ClassEName,SaveFilePath,FileExtName from FS_NewsClass where Classid = '" & Rs("ClassID") &"'") ClassCName1="["& RssearchObj("ClassCName") &"] " %> <% rs.movenext next %>
栏目
名称
版本号
系统类型
评价
·<%=ClassCName1%> " target="_blank"> <%=Rs("name")%> <%=Rs("Version")%> <%=Rs("SystemType")%> <%=Appraise(Cint(Rs("Appraise")))%>
<% End if End if %>

<% response.write"  共"& select_pagecount &"" & select_count &"条记录,本页是第"& strpage &"页。" if int(strpage)>1 then response.Write"   第一页 " response.Write"   上一页 " end if if int(strpage)下一页" response.Write"   最后一页 " end if response.Write"
" %>
触摸屏及相关厂家
广东洪毅触摸设备
台湾嵩达光电科技
广东深越光电技术
台湾理义科技股份
北京联控兴业科技
台湾宇宙光电股份
3M中国触控系统部
南京华睿川电子科技
捷蔚光电科技上海公司
>> 触摸屏相关厂商加入
加入收藏网站地图友情链接联系我们  |  广告联系全国销售网络
    网站广告、经销商加盟、触摸屏软件销售:028-85108892 13183843395 028-66219290 联系人:张小姐 传真:028-85108892 全国各地经销商如下:
   广 州   020-87599875 深 圳   0755-21949677 福 州   0591-87818596 厦 门   0592-5615268 泉 州   0595-88150378
   湖 南   15863470449 江 西   0791-6283683 上 海   13916222245 南 京   025-83610010 苏 州   0512-65581867
   无 锡   0510-88658230 北 京   010-62631382 山 西   0351-8390152 济 南   13396407999 四 川   028-81934978
   云 南   0871-5109466 重 庆   023-68609756 其 他… 13183843395   >>> 经销商加入指南  
电子邮件: 51touch(A)126.com 请将地址中的"(A)"改成"@",避免垃圾邮件出此下策,望谅
版权所有 Copyright(C)2003-2008 中国触摸屏网 地址:成都市高升桥东路2号高盛中心1109室 电话:028-85108892 13183843395 028-66219290 

在线咨询QQ: 

触摸屏、触摸屏软件、触控一体机咨询 43361182 触摸屏、触摸屏软件、触控一体机咨询 893008608 MSN 帐号:touch8(A)gmail.com 将"(A)"改成"@"即可