<% set rs=server.CreateObject("adodb.recordset") db="bbs/database/bbs.asp" Set conn1 = Server.CreateObject("ADODB.Connection") connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn1.Open connstr1 %> 中镜科仪网
友情链接：英雄合击 传奇外传私服 英雄合击 英雄合击 英雄合击 英雄合击 英雄合击 英雄合击外挂 英雄合击外挂 网络游戏 诛仙私服 诛仙私服 传奇私服 热血江湖私服 永恒之塔私服 传奇外传私服 魔力宝贝私服 英雄合击 家族战歌 家族论坛 家族视频 网通英雄合击 在线漫画 外汇牌价 在线看电影 穿越火线透视外挂 地下城与勇士外挂 穿越火线外挂 免费艺术签名 穿越火线透视外挂 穿越火线外挂 穿越火线外挂 穿越火线外挂 cf外挂
穿越火线外挂外挂签名设计
新开传世私服 新开传奇世界私服 热血传奇私服 好私服 传奇sf 网通传奇私服 最新传奇私服 完美国际私服 连击私服 传奇外传私服 新开传奇私服 及时雨合击外挂 传奇登陆器 传世私服 传奇私服
<% sql="select top 5 * from shop_news where lb=3 order by adddate desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
· " target="_blank" class="use12"> <%if len(rs("newsname"))>13 then%> <%=left(rs("newsname"),11)%>... <%else%> <%=rs("newsname")%> <%end if%>  
<%if request.cookies("snsn")("username")="" then%> <%else%> <%rs.close end if%>
用户：
密码：
 

<%=Request.Cookies("snsn")("username")%>，欢迎您！ <% if request.cookies("snsn")("username")<>"" then set rs=server.CreateObject("adodb.recordset") rs.open "select count(*) as rec_count from shop_action where username='"&request.cookies("snsn")("username")&"' and zhuangtai=7",conn,1,1 rec_count=rs("rec_count") rs.close rs.open "select sum(zonger) as zongji from shop_action where username='"&request.cookies("snsn")("username")&"' and zhuangtai=7",conn,1,1 else set rs=server.CreateObject("adodb.recordset") rs.open "select count(*) as rec_count from shop_action where username='"&session("tmp_usersessionid")&"' and zhuangtai=7",conn,1,1 rec_count=rs("rec_count") rs.close rs.open "select sum(zonger) as zongji from shop_action where username='"&session("tmp_usersessionid")&"' and zhuangtai=7",conn,1,1 end if %> 您的物有: <%=rec_count%> 种商品； 总计价格￥： <%if rec_count=0 then%> 0 <%else%> <%=rs("zongji")%> <%end if%> 元； <%set rs11=server.CreateObject("adodb.recordset") sql11="select vip from shop_user where username='" & Request.Cookies("snsn")("username") & "'" rs11.open sql11,conn,1,1 if rs11("vip")=1 then %> 您是本站VIP用户，可以货到付款。

<%end if%>

查看购物车 - 查询订单
修改资料 - 注销退出

 
<% set rs=server.CreateObject("adodb.recordset") rs.open "select anclass,anclassid from shop_anclass order by anclassidorder",conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
·
 " class="hei12-x"><%=trim(rs("anclass"))%>
<% sql="select top 3 * from shop_links order by linkidorder" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
 · " class="use12" target="_blank"><%=rs("linkname")%> 
<% sql="select top 10 * from shop_news where lb=1 order by adddate desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
· " target="_blank" class="use12"> <%if len(rs("newsname"))>18 then%> <%=left(rs("newsname"),17)%>... <%else%> <%=rs("newsname")%> <%end if%>
<% sql="select top 10 * from pxjz order by id desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
· " class="hei12-x" target="_blank"> <%if len(rs("title"))>18 then%> <%=left(rs("title"),17)%>... <%else%> <%=rs("title")%> <%end if%>
 
推荐产品
<% sql="select top 8 * from shop_nclass where piccc like '%shoppic%' and changyong=1" rs.open sql,conn,1,1 do while not rs.eof %> <% i=i+1 if i mod 4=0 then%> <% end if rs.movenext loop rs.close %>
 
 
<% sql="select top 8 * from shop_news where lb=2 order by newsid desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
· " target="_blank" class="use12"> <%if len(rs("newsname"))>18 then%> <%=left(rs("newsname"),17)%>... <%else%> <%=rs("newsname")%> <%end if%>
<% sql="select top 8 * from bbsxp_threads order by posttime desc" rs.open sql,conn1,1,1 do while not rs.eof %> <% rs.movenext loop rs.close conn1.close:set conn1=nothing %>
· " target="_blank" class="use12"> <%if len(rs("topic"))>18 then%> <%=left(rs("topic"),17)%>... <%else%> <%=rs("topic")%> <%end if%>
 
关于我们 - 栏目导航 - 诚聘英才 - 友情链接 - 法律声明 - 联系方式 - 留言反馈

emcn.com.cn Copyright(C)2006,All Rights Reserved
版权所有，未经书面授权，所有页面内容不得以任何形式进行复制 本网由北京中镜科仪技术有限公司建设中国电子显微镜学会提供信息
电话： 010-62559621/62557172 传真：010－62652902 值班电话： 15810848484 地址：北京市海淀区中关村北二条13号中科科仪院内5号楼212室 邮编：100190
中镜科仪网
新开传世私服 新开传奇世界私服 热血传奇私服 好私服 传奇sf 网通传奇私服 最新传奇私服 完美国际私服 连击私服 传奇外传私服 新开传奇私服 及时雨合击外挂 传奇登陆器 传世私服 传奇私服
穿越火线外挂外挂签名设计
  产 品 导 航
<% set rs=server.CreateObject("adodb.recordset") rs.open "select anclass,anclassid from shop_anclass order by anclassidorder",conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close %>
" class="red_14_blod"><%=trim(rs("anclass"))%>
 
由于网站刚开通，正在试运行，价格图片等不够齐全，敬请谅解！
<% sql="select top 16 * from shop_nclass where piccc like '%shoppic%' and changyong=1" rs.open sql,conn,1,1 do while not rs.eof %> <% i=i+1 if i mod 4=0 then%> <% end if rs.movenext loop rs.close %>
 
 
友情链接：英雄合击 传奇外传私服 英雄合击 英雄合击 露娜私服 露娜私服 热血江湖私服 家族战歌 英雄合击 家族视频 网通英雄合击 英雄合击外挂
新开传世私服 新开传奇世界私服 热血传奇私服 好私服 传奇sf 网通传奇私服 最新传奇私服 完美国际私服 连击私服 传奇外传私服 新开传奇私服 及时雨合击外挂 传奇登陆器 传世私服 传奇私服