<%
dim id,rs,exec,ssfl,rstt,exectt,tt,tt2
id = request.querystring("id")
If id="" Then
server_v40=Request.ServerVariables("QUERY_STRING")
id=Int(replace(replace(server_v40,"/",""),".html",""))
End If
if id = "" or not isnumeric(id) then
response.write ""
response.end
end if
exec="select * from shop where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof then
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write ""
response.end
end if
ssfl = rs("ssfl")
%>
<%
sql = "UPDATE shop SET hits = hits + 1 WHERE id ="&id
conn.execute(sql)
%>
<%
set rstt=server.createobject("adodb.recordset")
exectt="select * from shop_fl where id="&ssfl
rstt.open exectt,conn,1,1
tt = rstt("id")
tt2 = rstt("sid")
%>
<%=config("title")%>
" />
" />
锘?/head>
<%
set rs100=server.createobject("adodb.recordset")
exec="select * from [shop] where ssfl="&session("zghid")&" or sid="&session("zghid")&" order by px_id asc,id desc"
rs100.open exec,conn,1,1
if rs100.eof then
response.Write " 姝ゅ垎绫昏繕娌℃湁娣诲姞浜у搧!"
else
rs100.PageSize =20 '姣忛〉璁板綍鏉℃暟
iCount=rs100.RecordCount '璁板綍鎬绘暟
iPageSize=rs100.PageSize
maxpage=rs100.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs100.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%For i=1 To x%>
