<% dim rs,sql,protype,wheresql Set rs = Server.CreateObject("adodb.recordset") if request.QueryString("pid")="" then response.write "" end if wheresql=request.QueryString("pid") sql = "select pstype.type,products.pname,products.ptype,products.images,products.image,products.jianj from products,pstype where products.ptype=pstype.id and products.id="& wheresql rs.open sql, Conn,1,1 if rs.eof then response.write "" end if %>