ASP按字段中首字母输出所有数据代码
分类:程序开发 Tags: asp 评论:0 浏览:4108 最近更新时间:2008/5/22 23:54:23
dim x,sql,rs
'定义变量
for x = 65 to 90
'开始循环A-Z,因为不能自动循环字母,所以采用ASII码
Response.Write "<br>"&chr(x) & "<br>"
'然后逐个输出字母
SQL = "SELECT * FROM I_Service where left(title,1)='"&chr(x)&"' and type=1 ORDER BY title,id DESC"
'数据库中Title是标题或者要输出的字段,Type是分类,现在是输出大类为一的,并用Left取出Title值中左起第一个字母进行检查
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,1
If Not (Rs.EOF And Rs.BOF) Then
Do While Not Rs.EOF
Response.Write Rs("title") &" "
Rs.movenext
Loop
End If
Rs.Close:Set Rs = Nothing
next
'定义变量
for x = 65 to 90
'开始循环A-Z,因为不能自动循环字母,所以采用ASII码
Response.Write "<br>"&chr(x) & "<br>"
'然后逐个输出字母
SQL = "SELECT * FROM I_Service where left(title,1)='"&chr(x)&"' and type=1 ORDER BY title,id DESC"
'数据库中Title是标题或者要输出的字段,Type是分类,现在是输出大类为一的,并用Left取出Title值中左起第一个字母进行检查
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,1
If Not (Rs.EOF And Rs.BOF) Then
Do While Not Rs.EOF
Response.Write Rs("title") &" "
Rs.movenext
Loop
End If
Rs.Close:Set Rs = Nothing
next
本文地址:/343/
-
• asp中判断一个字符是不是汉字
• 一个空间/虚拟主机放置多个网站的转向代码(多个域名绑定一个空间)
• 解决IE6下float浮动margin出现双倍距离问题
• ASP检测网站是否能打开代码
• ASP判断身份证号码输入是否正确函数代码
• ASP保存远程图片文件到本地代码
• ASP按字段中首字母输出所有数据代码
• opencart 3.0 PayPal Payments Standard支付没有传递收货地址解决办法
• 去除新版宝塔面板首页的强制手机登录窗口教程
• 支付宝即时到账POST按钮代码