如何在读取Excel文件时创建列表的下拉菜单？
更新时间：2006年11月16日 00:00:00 作者：
< 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 >
相关文章
如何让用户也能修改密码？...2006-11-11
如何编写翻页函数？...2006-11-11
如何让用户再次访问我的网站时不需再提交相关信息？...2006-11-11
如何限制上传文件的大小？...2006-11-11
如何用ASP输出HTML文件？...2006-11-11
如何根据用户银行帐户余额的多少进行显式的提交或终止？...2006-11-11
统计在线人数是实时的吗？...2006-11-11
如何显示数据库的结构？...2006-11-11
如何控制弹出一个NTLM验证窗口？...2006-11-11
如何动态添加Form项？...2006-11-11
最新评论