%@ 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"
%>
<%
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
%>
<%do while not rs.EOF and i<=pagesize %>
<%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
<%i=i+1
rs.movenext
loop
rs.close
%>
<%next%>
友情链接
Copyright @ 2007~2008 Darjou Com.
版权所有 ICP NO:07032008