ASP按字段中首字母输出所有数据代码
分类：程序开发 Tags： asp 评论：0 浏览：3602 最近更新时间：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
-
• 图片自动按宽高比例缩小的js代码
• ASP Access数据库连接关闭与.ldb文件锁定解决方法
• 解决asp日语网站access数据库含日文出现“内存溢出”问题
• JS显示当前年月日时间分秒代码（时间不断变动）
• asp多条件查询sql语句用法，可用于搜索、筛选模块
• 中国十大ASP CMS系统介绍
• 利用ASPJPEG为图片加水印及制作缩略图代码
• ASP过滤所有超链接代码
• 网页设计中DIV+CSS常用命名规则
• ASP随机读取数据库中几条数据代码
