<%
function GetPorName(pid)
dim rs
set rs=conn.execute("select Products from Products where id="&pid)
if not rs.eof then
GetPorName=rs("Products")
else
GetPorName=""
end if
set rs=nothing
end function
function GetPorQuote(pid)
dim rs
set rs=conn.execute("select Quote,unit from Products where id="&pid)
if not rs.eof then
GetPorQuote=rs("quote")&" 元/"&rs("unit")
else
GetPorQuote=""
end if
set rs=nothing
end function
%>
