<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") if Session("mylogin")<>"1" then sqltext="update syswork set querycount=querycount+1 where code='101'" cn.execute(sqltext) rs.Open "webcount",cn,3,3 rs.AddNew rs("ipaddress")=Request.ServerVariables("Remote_HOST") rs("logindate")=now() rs.Update rs.Close mylogin=Session("mylogin") Session("mylogin")="1" else mylogin=Session("mylogin") end if username=Session("Use") typeuse=Session("typeUse") mymenu="default" %>
首页| 公司产品| 信息服务 | 在线留言 | 联系方式 tony@darjou.com
  <% for pi=1 to 3 sqltext="select * from product where nomflag='1' and state='1' order by updatetime desc" rs.Open sqltext,cn,1,1 pagesize=3 rs.PageSize=pagesize if rs.PageCount>0 then rs.AbsolutePage=pI pagecount=rs.PageCount i=1 %> <%next%>
<%do while not rs.EOF and i<=pagesize %> <%i=i+1 rs.movenext loop rs.close %>
<%if rs("picflag")="1" then%> " alt="a" width="70" height="70" border="0" align=center /> <% else %>   <%end if %> <%= rs("title") %>
Art no. <%if trim(rs("artno"))<>"" then%> <%=rs("artno")%> <%end if%>
&keyno=<%= rs("prono") %>">Details
友情链接

Copyright @ 2007~2008 Darjou Com. 版权所有 ICP NO:07032008