|
|
|
Your current position : Home > ProductsPRODUCTS |
<%page=request.querystring("page")
if page="" then page=1 end if
page=cint(page)
set rser=server.createobject("adodb.recordset")
if request.QueryString("search")=1 then
if request.Form("field_name")<>"" and request.Form("keyword")<>"" then
sql="select * from product where "&request.Form("field_name")&"='"&request.Form("keyword")&"'"
else
response.write ""
conn.close
set rser=nothing
response.end
end if
else
sql="select * from product where d_id= "&trim(request.querystring("d_id"))
end if
rser.open sql,conn,1,3
if rser.eof then
response.write ""
conn.close
set rser=nothing
response.end
end if
if not rser.bof then
rser("hotclick")=rser("hotclick")+1
rser.update
%>
<%if rser("b_img")><"" then response.write "" else response.write"No picture!" end if%>
|
|
<%else%>
No records!
<%end if%>
|
<%
if request.querystring("d_id") then
set rs=server.createobject("adodb.recordset")
rs.Open "select * From product where d_id="&Request.QueryString("d_id"),conn,1,3
if not(rs.eof and rs.bof) then
cname=rs("cname")
rs("hotclick")=rs("hotclick")+1
rs.update
end if
rs.close
end if
%>
<%
rs.Open "select top 1 * From product where vip=0 and d_id < "&cint(Request.QueryString("d_id"))&" order by d_id desc",conn,1,1
if not rs.eof then
%>
|
Next : "><%=rs("ename")%> |
<% else %>
Next : NO |
<%end if
rs.close
%>
<%
rs.Open "select top 1 * From product where vip=0 and d_id> "&cint(Request.QueryString("d_id"))&" order by d_id",conn,1,1
if not rs.eof then
%>
Previous : "><%=rs("ename")%> |
<% else %>
Previous : NO |
<%end if
rs.close
%>
|
|
|
|