<%
Function GetPic(fPic)
Dim fStrTemp
on error resume next
fStrTemp = fPic
fStrTemp = mid(fStrTemp,instr(fStrTemp,"showpic.asp?id=")+1)
fStrTemp = mid(fStrTemp,instr(fStrTemp,"=")+1)
fStrTemp = left(fStrTemp,instr(fStrTemp,">") - 1)
fStrTemp = left(fStrTemp,instr(fStrTemp,"""") - 1)
fStrTemp = left(fStrTemp,instr(fStrTemp," ") - 1)
GetPic = fStrTemp
end function
Dim rs
req_id = request("id")
if req_id = "" then
req_id = "0"
end if
if not isnumeric(req_id) then
req_id = "0"
end if
req_strSql = "select * from product where id = " + req_id
testobj.getmdb req_strSql,rs
if not rs.eof then
%>
">