Question

ASP如何实现淘宝的拼音检索效果,从数据库读取

需要从数据库读取，数据库中的分类比如：汽车，飞机，我都已增加了标识列：q,f等首个字母拼音，我现在想弄成淘宝那种拼音检索分类效果。网上找了很多都是静态的，没有从数据库读取，因此回答请不要复制粘贴过来，我需要一个比较完整解决思路，如能给代码更好，最好能跟淘宝那种效果是差不多的，我现在手里分不多，我一定努力挣分给你加上！跪谢！
SARURI的回答感觉不错，我还没试，关键是怎么出现淘宝那种层的效果呢，要把这两个结合起来，感觉不好弄

Answer 1

<!--ajax 索引我没做过 但是你可以用-->
<%
Dim i
For i=Asc("a") To Asc("z")
alink="xxxx.asp?suoyin="&Chr(i)
Response.Write (alink)

Next
%>

<!--循环出26个字母 然后
设置一个div 默认显示a字母的东西 里面接收变量alink 根据alink的值来读取数据库

-->
<div>
<%a_re=request.QueryString("suoyin")
if a_re="" then
a_re=Chr(Asc("a"))'或者直接写a_re="a"应该也是可以的 但是我没具体测试过
sql="select XXXXXXX WHERE 你的字母索引字段='"&a_re&"'"
'剩下的无非就是循环列出了
%>

</div>

层的效果你循环出的层全部style="dispaly:none;"接收了哪个字母的哪个字母所在的div style="display:block;" 写个if判断你应该可以的吧?

Answer 2

<form name="py" method="post" action="test2.asp">
<input type="text" name="chrPY" value="">
<input type="submit">
</form>
<%
chrPY=Ucase(Left(Trim(Request("chrPY")),1))
if chrPY="" then
response.write "请输入查询条件"
response.end
end if
select case chrPY
case "A" strSQL="@>=-20319 and @<=-20284"
case "B" strSQL="@>=-20283 and @<=-19776"
case "C" strSQL="@>=-19775 and @<=-19776"
case "D" strSQL="@>=-19218 and @<=-18711"
case "E" strSQL="@>=-18710 and @<=-18527"
case "F" strSQL="@>=-18526 and @<=-18240"
case "G" strSQL="@>=-18239 and @<=-17923"
case "H" strSQL="@>=-17938 and @<=-17418"
case "J" strSQL="@>=-17417 and @<=-16475"
case "K" strSQL="@>=-16474 and @<=-16213"
case "L" strSQL="@>=-16212 and @<=-15641"
case "M" strSQL="@>=-15640 and @<=-15166"
case "N" strSQL="@>=-15165 and @<=-14923"
case "O" strSQL="@>=-14922 and @<=-14915"
case "P" strSQL="@>=-14914 and @<=-14631"
case "Q" strSQL="@>=-14630 and @<=-14150"
case "R" strSQL="@>=-14149 and @<=-14091"
case "S" strSQL="@>=-14090 and @<=-13319"
case "T" strSQL="@>=-13318 and @<=-12839"
case "W" strSQL="@>=-12838 and @<=-12557"
case "X" strSQL="@>=-12556 and @<=-11848"
case "Y" strSQL="@>=-11847 and @<=-11056"
case "Z" strSQL="@>=-11055 and @<=-10243"
case else strSQL="1=2" '不是拼音则不查询
end select
%>

<%
strSQL=replace(strSQL,"@","asc(left(Name,1))")//Name为数据表的关键字
%>

说明:
sql="select * from 你的表 where "&strSQL
rs.open sql,conn,1,1

Answer 3

这个问题，希望你花钱解决。