<% 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 %> 在线订购-<%=config("title")%> " /> " />