如何在读取Excel文件时创建列表的下拉菜单?
程序员文章站
2023-01-25 17:36:44
< select name="xlsheet" >< %voptions = "< op...
< 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 >
< %
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 >
上一篇: 如何编写一个加法器?
下一篇: 如何把一长串数字分位显示?