如何在读取Excel文件时创建列表的下拉菜单？

< select name="xlsheet" >
< %
voptions = "< option >< /option >"
do while not oschemars.eof
  if oschemars("table_type") = "system table" then
      voptions = voptions & "< option >" & _
            server.htmlencode(oschemars("table_name")) & _
      "< /option >   
  end if
  oschemars.movenext
loop   
response.write voptions
% >
< /select >