成都网站建设
|
域名注册
|
虚拟主机
|
网站制作
|
网站案例
|
网站优化
|
网站推广
|
企业邮局
|
服务器租用
|
广告设计
首页
服务器租用
企业邮箱
虚拟主机
网站程序
营销推广
网站建设
域名注册
前端开发
网站备案
网站建设
网站方案
网站改版
网页设计
网站维护
网站策划
网站制作
服务器租用
web服务器
FTP服务器
服务器托管
服务器租用
vps主机服务器
云主机服务器
网站解决方案
服务器机房
企业邮箱
企业邮箱设置
企业邮箱优势
邮箱其他问题
邮箱功能讲解
邮箱收发问题
虚拟主机
主机管理
主机购买
数据库
主机续费升级
FTP上传
网站程序
java教程
asp程序
asp.net程序
vb编程
php程序
C#程序
营销推广
seo优化
网站推广
搜索引擎
免费资源
域名注册
域名转入\转出
英文域名
通用网址
中文域名
域名解析
无线网址
域名知识及服务
前端开发
html
jQuery
JavaScript教程
css
div+css
json教程
bootstrap教程
XML教程
ajax教程
网站备案
备案资料下载
备案流程指南
各省备案要求
备案常见问题
移动互联网
app应用开发
wap手机网站
微网站
当前位置:
创新互联
>>
常见问题
>>
网站建设
>>
网站制作
>>
介绍一个制作下拉菜单完全不同的办法
介绍一个制作下拉菜单完全不同的办法
作者:创新互联 文章来源:网站建设部 点击数:
更新时间:2010-03-24
说道这个下拉菜单,小编是头一回知道这个方法,以前从没听用过,以前如果我从
数据库
里读出内容来制作下拉菜单的话都是用循环来做的,现在,让我们来看一下老外的办法。
利用RecordSet.GetString来
制作网站
动态下拉菜单。
adodb.recordset的getstring方法有一些BUG,但是你使用得小心一点的话它可以为您工作的很好。
先介绍一下GETSTRING的用法……如下:
stringValue = rsObject.GetString( format, numRows, columnDelimiter, rowDelimiter, ifNull )
只要建立了RS对象,并且执行了相应操作,不管那是返回一条或者多条记录,甚至是空记录,getstring照样工作,但是如果不加注意的话,这个结果可能就不大好玩了,:P(这个老外也够幽默的)
FORMAT参数只有一个合法值,而且是可选的,让我们略过不管它,如果您想返回全部记录的话,那么那个numrows参数也可以不管它了(可选),IFNULL……照我的理解就象TSQL里的isnull函数差不多,如果是NULL,则随便搞个值替换它,所以也不管它。
剩下两个参数了。。。。不多说废话了,先看他们的例子
<TABLE Border=1>
<TR><TD>
<% = Response.Write rs.GetString( , , "</TD><TD>", "</TD></TR><TR>", ) %>
</TABLE>
这样写的HTML结果如下:
<TABLE Border=1>
<TR>
<TD>row1, field1 value</TD>
<TD>row1, field2 value</TD>
</TR>
<TR>
<TD>row2, field1 value</TD>
<TD>row2, field2 value</TD>
</TR>
<TR>
</TABLE>
这个也是老外口中说的那个BUG了,让我们看一下具体怎么做的
<%
Set RS = conn.Execute("SELECT theValue,theText FROM selectOptionsTable ORDER BY theText")
optSuffix = "</OPTION>" & vbNewLine
valPrefix = "<OPTION Value='"
valSuffix = "'>"
opts = RS.GetString( , , valSuffix, optSuffix & valPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(valPrefix) )
Response.Write "<SELECT ...>" & vbNewLine
Response.Write valPrefix & opts
Response.Write "</SELECT>"
%>
你用过这种方法么,实话,我可从没见过,也没听有人说起,附带一下,您如果想建立一个正确的表格的话,也就是我头上说的那个BUG,只要这样做就可以了:
<%
Set RS = conn.Execute("SELECT * FROM table")
tdSuffix = "</TD>" & vbNewLine & "<TD>
trPrefix = "<TR>" & vbNewLine & "<TD>"
trSuffix = "</TD>" & vbNewLine & "</TR>" & vbNewLine & "<TR>" & vbNewLine
opts = RS.GetString( , , tdSuffix, trSuffix & trPrefix, "--error--" )
' Next line is the key to it!
opts = Left( opts, Len(opts)-Len(trPrefix) )
Response.Write "<TABLE Border=1 CellPadding=5>" & vbNewLine
Response.Write trPrefix & opts
Response.Write "</TABLE>" & vbNewLine
%>
------------------------------------------------------------------------
再介绍一个完全不同的办法……
<%
SQL = "SELECT '<OPTION Value=''',value,'''>',text,'</OPTION>' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
%>
你用过吗。。。
看到了吗?可以直接从查询中返回结果。
再进一步,您可以这样做(
ACCESS
下我试过)
<%
SQL = "SELECT '<OPTION Value=''' & value & '''>' & text & '</OPTION>' FROM table ORDER BY text"
Set RS = conn.Execute(SQL)
Response.Write "<SELECT>" & vbNewLine & RS.GetString(,,"",vbNewLine) & "</SELECT>"
%>
制作图片上的滚动效果
:上一篇
什么网站算好站?
:下一篇
网站制作相关文章
制作图片上的滚动效果
网页图像切图与压缩
网站设计:网站设计中动画如何分类
建立清楚的视觉层次
未设置对象变量或 With block 变量错误
网站建设更新内容时需要注意的事
在经营地方网站时的方式方法 -创新互联
高质量网站建设必须打好这些基础
做网站建设时候重点考虑的四个方面
中国将借鉴成功做法探索实名上网办法
创新互联专业网站策划、设计、制作、维护、推广一条龙服务!
7
8
9
10
常见问题
2
3
4
5
6
|
热门搜索
服务电话:028-86922220 13518219792 公司地址:成都市太升南路288号锦天国际A幢10楼2号
企业邮箱:
service@cdxwcx.com
版权所有:成都创新互联科技有限公司 蜀ICP备13010860号
成都网站建设