2006-5-20 ASP ACCESS 按汉字拼音查找与排序, 大结 —— By Stabx

原创 2006年05月20日 13:11:00
标题: 2006-5-20 ASP ACCESS 按汉字拼音查找与排序, 大结 —— By Stabx

正文:

QUOTE:

作用说明:
本代码实现了数据按汉字拼音查找与排序的功能, 同时解决了上一小结不见"芽文"的小臭虫.

URL 地址栏例子:
*.asp?sortby=letterfirst&order=25

可选择汉字在前,或者英文在前显示, 导航栏如下:

first sort: by letter, by hanzi

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

283

shawl.qiu
13:04 2006-5-20

CODE:

 

CITE:

啊,八
八,擦
擦,搭
搭,鹅
鹅,发

发,嘎
嘎,哈
哈,机
机,咖
咖,拉

拉,呣
呣,嗯
嗯,哦
哦,怕
怕,七

七,然
然,撒
撒,他
他,挖
挖,西

西,呀
呀,匝
匝,做

IUV

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/conn.asp" -->
<!--#include virtual="include/globalabbr.asp"-->
<!--#include virtual="func/func-glossary.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<title>Untitled Document</title>
</head>

<body><br>
<%'拼音2
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' subject : ASP ACCESS 按汉字拼音查找与排序, 大结 —— By Stabx
'
' writer : Stabx<shawl.qiu@gmail.com>
'
' blog : http://blog.csdn.net/btbtd / http://btbtd.exblog.jp/
'
' blog/site : Phoenix.GI - P.GI / / 绿色学院 - Green Institute
'
' date : 2006-5-20
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim py,py1,py2
redim py(25),py1(25),py2(25)
py(0)="啊"
py(1)="八"
py(2)="擦"
py(3)="搭"
py(4)="鹅"
py(5)="发"
py(6)="嘎"
py(7)="哈"
py(8)="I"
py(9)="机"
py(10)="咖"
py(11)="拉"
py(12)="呣"
py(13)="嗯"
py(14)="哦"
py(15)="怕"
py(16)="七"
py(17)="然"
py(18)="撒"
py(19)="他"
py(20)="U"
py(21)="V"
py(22)="挖"
py(23)="西"
py(24)="呀"
py(25)="匝"

py1(0)="八"
py1(1)="擦"
py1(2)="搭"
py1(3)="鹅"
py1(4)="发"
py1(5)="嘎"
py1(6)="哈"
py1(7)="机"
py1(8)="I"
py1(9)="咖"
py1(10)="拉"
py1(11)="呣"
py1(12)="嗯"
py1(13)="哦"
py1(14)="怕"
py1(15)="七"
py1(16)="然"
py1(17)="撒"
py1(18)="他"
py1(19)="挖"
py1(20)="U"
py1(21)="V"
py1(22)="西"
py1(23)="呀"
py1(24)="匝"
py1(25)="做"

py2(0)="A"
py2(1)="B"
py2(2)="C"
py2(3)="D"
py2(4)="E"
py2(5)="F"
py2(6)="G"
py2(7)="H"
py2(8)="I"
py2(9)="J"
py2(10)="K"
py2(11)="L"
py2(12)="M"
py2(13)="N"
py2(14)="O"
py2(15)="P"
py2(16)="Q"
py2(17)="R"
py2(18)="S"
py2(19)="T"
py2(20)="U"
py2(21)="V"
py2(22)="W"
py2(23)="X"
py2(24)="Y"
py2(25)="Z"
%>
<p/>
<%
order_=request("order")
sortby_=request("sortby")

if sortby_<>"" then
if sortby_="letterfirst" then
orderby_="asc"
else
orderby_="desc"
end if
else
sortby_="letterfirst"
orderby_="asc"
end if

if order_<>"" then
if order_<=0 then
order_=0
elseif order_>=25 then
order_=25
end if
else
order_=0
end if

response.write "first sort: <a href=?sortby=letterfirst&order="&order_&">by letter</a>, <a href=?sortby=hanzifirst&order="&order_&">by hanzi</a><p/>"

letters="A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
j=0
for each letter in split(letters)
response.write "<a href=?sortby="&sortby_&"&order="&j&">"&letter&"</a> "
j=j+1
next
%>
<p/>
<% '连接数据库
set rs=server.CreateObject("adodb.recordset") '创建 rs 数据查询
rs.open "select * from ctarticle where title between '"&py(order_)&"' and '"&py1(order_)&"' or title like '"&py2(order_)&"%' order by title "&orderby_,MM_conn_string,1
response.write rs.recordcount&"<p/>"
do while not rs.eof
response.write py2(order_)&" "&rs("title")&"<p/>"
rs.movenext
loop
rs.close '关闭 rs 连接
set rs=nothing
%>
</body>
</html>

ASP ACCESS 按汉字拼音查找与排序, 最终修正版 By Stabx

  • btbtd
  • btbtd
  • 2006年05月28日 13:58
  • 2843

2006-5-20 ASP ACCESS 按汉字拼音查找与排序, 大结 —— By Stabx

  • btbtd
  • btbtd
  • 2006年05月20日 13:11
  • 1948

所有汉字的拼音数据库

  • 2008年09月13日 15:53
  • 716KB
  • 下载

ASP ACCESS 按汉字拼音查找与排序 By Stabx, 第三版

/*
  • btbtd
  • btbtd
  • 2006年06月04日 22:01
  • 2416

2006-5-20 ASP ACCESS 数据检索, 按拼音查找变态法 By Stabx

  • btbtd
  • btbtd
  • 2006年05月20日 00:51
  • 1284

iOS汉语转拼音以及按照拼音排序

在iOS中汉语转拼音可以使用系统提供的方法,也可以使用第三方库来实现,但是网上说使用系统方法实现的话性能会比较差,此处只是提供方法,至于选择使用哪种方法,自己看情况而定。 1、系统方法 主要使用到了方...
  • u012894479
  • u012894479
  • 2017年04月24日 14:40
  • 705

如何开启Excel按拼音排序功能

英文版Excel按拼音排序功能对于英文版操作系统,在安装office后,语言选项默认是系统语言,在Excel中按拼音和笔画排序功能没有开启,无论是在界面Ribbon上还是VBA中操作都无法实现拼音排序...
  • Florarine
  • Florarine
  • 2017年10月16日 15:17
  • 372

sql语句按照汉字拼音首字母排序

oracle : 在oracle9i中新增了按照拼音、部首、笔画排序功能。设置NLS_SORT值 SCHINESE_RADICAL_M 按照部首(第一顺序)、笔划(第二顺序)排序 SCHINES...
  • fygkchina
  • fygkchina
  • 2015年11月18日 16:17
  • 1169

python中文按拼音排序

bash中要对中文排序,只需: LC_COLLATE="zh_CN.UTF8" sort /tmp/a就可以。 同样的,python中只需: import locale locale.setlocal...
  • jollyjumper
  • jollyjumper
  • 2013年11月27日 15:33
  • 6203

数据库性能优化--超详细

性能调节的目的是通过将网络流通、磁盘 I/O 和 CPU 时间减到最小,使每个查询的响应时间最短并最大限度地提高整个数据库服务器的吞吐量。为达到此目的,需要了解应用程序的需求和数据的逻辑和物理结构,并...
  • he90227
  • he90227
  • 2014年07月23日 13:25
  • 1358
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:2006-5-20 ASP ACCESS 按汉字拼音查找与排序, 大结 —— By Stabx
举报原因:
原因补充:

(最多只允许输入30个字)