<%
dim id
id = request.QueryString("id")
if id = "" then
response.Write "参数不足"
response.end
end if
dim show
show = get_pro(id, conn)
if not isArray(show) then
response.Write "此产品已不存在"
response.end
end if
%>
深圳江浩电子有限公司官方网站
<%
function get_pro(id, byRef conn)
dim sql,rs
sql = "select * from rs_pInfo where p_id = " & id
set rs = conn.execute(sql)
if rs.eof and rs.bof then
get_pro = empty
else
get_pro = rs.getrows()
end if
end function
%>
