% Function ProTop(Keyword) Dim topRs,topSql Dim topCode topSql="Select top 4 * from TsdProduct where ProCom='"&Keyword&"'" Set topRs=Server.CreateObject("Adodb.RecordSet") topRs.open topSql,conn,1,1 if topRs.eof then topCode="
"&chr(13)
topCode=topCode&"
| "&chr(13)
topCode=topCode&"
| "&chr(13)
else
topCode=topCode&""&chr(13)
topCode=topCode&"
| "&chr(13)
topRs.movenext
end if
topCode=topCode&"
![]() |
|||||
![]() |
|
||||||||||||||||