<%
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>
