<% wt_id = 885 '数码 WTID=wt_id set rsp = server.CreateObject("adodb.recordset") rsp.open "select * from wt_main_title where charindex('"&wt_id&"',pri_idstr)>0 and disst=0",conn,1,1 if not rsp.eof then do while not rsp.eof param = param & rsp("wt_id") rsp.movenext if not rsp.eof then param = param &"," loop else param = 0 end if %> 雷迪网—舒适生活每一天
请选择登陆方式:  账号: 密码:   忘记密码

本站首页 美食天地 生活资讯 特约商户  
·欢迎您来到雷迪网,您可以点击此处   企业会员注册  个人会员注册 设本站为首页   加入收藏夹
综合搜索
 
 
<% sql = "SELECT * FROM wt_main_title " sql = sql & " WHERE (Arra_Num = 1) AND (CHARINDEX('"&wt_id&"', Pri_idStr) > 0) AND (DisSt = 0)" sql = sql & " ORDER BY Browse_index" set rs = server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof sql1 = "SELECT * FROM wt_main_title " sql1 = sql1 & " WHERE (Arra_Num = 2) AND (CHARINDEX('"&rs("wt_id")&"', Pri_idStr) > 0)" sql1 = sql1 & " ORDER BY Browse_index" set rs1 = server.CreateObject("adodb.recordset") rs1.open sql1,conn,1,1 %> <% rs.movenext loop rs.close set rs = nothing %>
" target="_blank"><%=rs("main_title_name")%>
<%do while not rs1.eof%>" target="_blank"><%=rs1("main_title_name")%>   <% rs1.movenext loop rs1.close set rs1 = nothing %>
搜索IT企业会员信息:
特 别 推 荐 会 员 企 业 I T 推 荐
<% sql2 = "SELECT top 12 * FROM news_info" sql2 = sql2 & " WHERE (news_type_id in ("¶m&")) AND (pub_flag = 1) AND (isred in(1))" sql2 = sql2 & " ORDER BY news_pub_date DESC" set rs2 = server.CreateObject("adodb.recordset") rs2.open sql2,conn,1,1 do while not rs2.eof %>  ·" target="_blank"><%=rs2("news_title")%>
<% rs2.movenext loop %>
更多>>>        
<% dim WTID,rsp1,param1 WTID=wt_id set rsp1 = server.CreateObject("adodb.recordset") rsp1.open "select * from wt_main_title where charindex('"&WTID&"',pri_idstr)>0 and disst=0",conn,1,1 if not rsp1.eof then do while not rsp1.eof param1 = param1 & rsp1("wt_id") rsp1.movenext if not rsp1.eof then param1 = param1 &"," loop else param1 = 0 end if %> <% sqlleft = "SELECT top 4 * FROM news_info " sqlleft = sqlleft & " WHERE (news_type_id in ("¶m1&")) AND (new_flag = 1)" sqlleft = sqlleft & " ORDER BY news_pub_date DESC" set rsleft = server.CreateObject("adodb.recordset") rsleft.open sqlleft,conn,1,1 do while not rsleft.eof %> <% rsleft.movenext loop rsleft.close set rsleft = nothing %>
<%if rsleft("news_img_name")="" then%> <%else%> " target="_blank">" width="150" height="45" border=0 alt="<%=rsleft("news_title")%>"><%end if%>
最 新 加 入  
<% sqlnews = "SELECT top 18 * FROM news_info" sqlnews = sqlnews & " WHERE (news_type_id in ("¶m&")) AND (pub_flag = 1) AND (isred in(0))" sqlnews = sqlnews & " ORDER BY news_pub_date DESC" set rsnews = server.CreateObject("adodb.recordset") rsnews.open sqlnews,conn,1,1 do while not rsnews.eof %>  ·" title="<%=rsnews("news_title")%>" target="_blank"><%=gotTopic(rsnews("news_title"),26)%>
<% rsnews.movenext loop %>
数码生活 更多相关信息

<% call ShowInfo("it/out1.asp"," ·","(1057)",7,21)%>

 
优惠促销 更多相关信息

<% call ShowInfo("it/out1.asp"," ·","(1231)",7,21)%>

新品上市 更多相关信息

<% call ShowInfo("it/out1.asp"," ·","(1232)",7,21)%>

 
行业资讯 更多相关信息

<% call ShowInfo("it/out1.asp"," ·","(1233)",7,21)%>

[诚 征 代 理]
<% call ShowInfo("it/out1.asp"," ·","(1236)",16,42)%>
更多>>>    
[价 格 行 情]
整机
<% call ShowITPro(4,5)%>
数码产品
<% call ShowITPro(3,11)%>
投影
<% call ShowITPro(2,9)%>
网络产品
<% call ShowITPro(6,10)%>
耗材
<% call ShowITPro(11,9)%>
  更多产品价格信息  
 
返回首页 | 关于我们 | 服务项目 | 诚征合作 | 广告报价 | 本站招聘 | 联系我们 | 请您留言
 

 ICP备案/许可证号:鲁ICP备10202397号    鲁B2-2004055号
Copy Right ©2009-2010 济南联合智业广告传播有限公司 All Rights Reserved
Tel:0531-88388806 88388807 88388808 Email: LEED@Lifease.Com.Cn