<%
dim id,rs,exec,title
id = Server.Htmlencode(request.querystring("id"))
if id <> "" then
if 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
else
title = rs("title")
end if
else
title = ""
end if
%>
亚洲AV无码国产精品色,精品无码一区在线观看
" />
" />