www.ourdict.cn
采用flash+asp技术,运行速度快,符合rich internet理念!

请大家多提宝贵建议!以便改进!
提供下载
有需要源代码的请发贴告诉email地址!
另外寻找合作伙伴!

[此贴子已经被作者于2005-4-25 7:56:28编辑过]

向你学习!

有需要源代码的请找我要

实用性不怎么样了，就好比flash的计算器，还不如操作系统自带的好
1.网上直接用搜索引擎搜可以搜
2.本地用金山词霸
不过粉不错的！呵呵……

楼主是高人啊，佩服地说

楼主真棒，佩服！请给我源代码，让我好好学习。先谢了。

需要源泉码的朋友,请留下自己的email

我要，
wwftr1682002@yahoo.com.cn
研究一下。

dqy_circle@163.com
谢谢

应该加分！
xtszlsp123@yahoo.com.cm

我也要源代码
shzhyikoutian@163.com

不错啊，能发我一份吗？
smalldream1984@126.com
只发给我AS代码就行了，谢谢！

真的太牛了，那么多的单词，输入也输入死了，是不是结合了数据库的导入，不是很懂。
fbi00177@sohu.com

没什么难度,而且设计的目的是什么?练习吗.

引用:

代码将陆续公布,有需要的请留下email
以下是拼音索引代码:

on (press) {
for (i=1; i<=27; i++) {
setProperty("_root.pin"+i+"_mc", _visible, 0);
}
switch (sheng) {
case "a" :
s = 5;
pin_array = new Array("a", "ai", "an", "ang", "ao");
break;
case "b" :
s = 16;
pin_array = new Array("ba", "bai", "ban", "bang", "bao", "bei", "ben", "beng", "bi", "bian", "biao", "bie", "bin", "bing", "bo", "bu");
break;
case "c" :
s = 16;
pin_array = new Array("ca", "cai", "can", "cang", "cao", "ce", "cen", "ceng", "ci", "cong", "cou", "cu", "cuan", "cui", "cun", "cuo");
break;
case "d" :
s = 23;
pin_array = new Array("da", "dai", "dan", "dang", "dao", "de", "dei", "den", "deng", "di", "dia", "dian", "diao", "die", "ding", "diu", "dong", "dou", "du", "duan", "dui", "dun", "duo");
break;
case "e" :
s = 6;
pin_array = new Array("e", "ê", "ei", "en", "eng", "er");
break;
case "f" :
s = 9;
pin_array = new Array("fa", "fan", "fang", "fei", "fen", "feng", "fo", "fou", "fu");
break;
case "g" :
s = 19;
pin_array = new Array("ga", "gai", "gan", "gang", "gao", "ge", "gei", "gen", "geng", "gong", "gou", "gu", "gua", "guai", "guan", "guang", "gui", "gun", "guo");
break;
case "h" :
s = 21;
pin_array = new Array("ha", "hai", "han", "hang", "hao", "he", "hei", "hen", "heng", "hm", "hng", "hong", "hou", "hu", "hua", "huai", "huan", "huang", "hui", "hun", "huo");
break;
case "j" :
s = 14;
pin_array = new Array("ji", "jia", "jian", "jiang", "jiao", "jie", "jin", "jing", "jiong", "jiu", "ju", "juan", "jue", "jun");
break;
case "k" :
s = 19;
pin_array = new Array("ka", "kai", "kan", "kang", "kao", "ke", "kei", "ken", "keng", "kong", "kou", "ku", "kua", "kuai", "kuan", "kuang", "kui", "kun", "kuo");
break;
case "l" :
s = 26;
pin_array = new Array("la", "lai", "lan", "lang", "lao", "le", "lei", "leng", "li", "lia", "lian", "liang", "liao", "lie", "lin", "ling", "liu", "lo", "long", "lou", "lu", "lü", "luan", "lüe", "lun", "luo");
break;
case "m" :
s = 20;
pin_array = new Array("m", "ma", "mai", "man", "mang", "mao", "me", "mei", "men", "meng", "mi", "mian", "miao", "mie", "min", "ming", "miu", "mo", "mou", "mu");
break;
case "n" :
s = 27;
pin_array = new Array("n", "na", "nai", "nan", "nang", "nao", "ne", "nei", "nen", "neng", "ng", "ni", "nia", "nian", "niang", "niao", "nie", "nin", "ning", "niu", "nong", "nou", "nu", "nü", "nuan", "nüe", "nuo");
break;
case "o" :
s = 2;
pin_array = new Array("o", "ou");
break;
case "p" :
s = 17;
pin_array = new Array("pa", "pai", "pan", "pang", "pao", "pei", "pen", "peng", "pi", "pian", "piao", "pie", "pin", "ping", "po", "pou", "pu");
break;
case "q" :
s = 14;
pin_array = new Array("qi", "qia", "qian", "qiang", "qiao", "qie", "qin", "qing", "qiong", "qiu", "qu", "quan", "que", "qun");
break;
case "r" :
s = 14;
pin_array = new Array("ran", "rang", "rao", "re", "ren", "reng", "ri", "rong", "rou", "ru", "ruan", "rui", "run", "ruo");
break;
case "s" :
s = 16;
pin_array = new Array("sa", "sai", "san", "sang", "sao", "se", "sen", "seng", "si", "song", "sou", "su", "suan", "sui", "sun", "suo");
break;
case "t" :
s = 19;
pin_array = new Array("ta", "tai", "tan", "tang", "tao", "te", "teng", "ti", "tian", "tiao", "tie", "ting", "tong", "tou", "tu", "tuan", "tui", "tun", "tuo");
break;
case "w" :
s = 9;
pin_array = new Array("wa", "wai", "wan", "wang", "wei", "wen", "weng", "wo", "wu");
break;
case "x" :
s = 14;
pin_array = new Array("xi", "xia", "xian", "xiang", "xiao", "xie", "xin", "xing", "xiong", "xiu", "xu", "xuan", "xue", "xun");
break;
case "y" :
s = 15;
pin_array = new Array("ya", "yan", "yang", "yao", "ye", "yi", "yin", "ying", "yo", "yong", "you", "yu", "yuan", "yue", "yun");
break;
case "z" :
s = 17;
pin_array = new Array("za", "zai", "zan", "zang", "zao", "ze", "zei", "zen", "zeng", "zi", "zong", "zou", "zu", "zuan", "zui", "zun", "zuo");
break;
case "ch" :
s = 19;
pin_array = new Array("cha", "chai", "chan", "chang", "chao", "che", "chen", "cheng", "chi", "chong", "chou", "chu", "chua", "chuai", "chuan", "chui", "chun", "chuo", "chuang");
break;
case "sh" :
s = 19;
pin_array = new Array("sha", "shai", "shan", "shang", "shao", "she", "shei", "shen", "sheng", "shi", "shou", "shu", "shua", "shuai", "shuan", "shui", "shun", "shuo", "shuang");
break;
case "zh" :
s = 20;
pin_array = new Array("zha", "zhai", "zhan", "zhang", "zhao", "zhe", "zhei", "zhen", "zheng", "zhi", "zhong", "zhou", "zhu", "zhua", "zhuai", "zhuan", "zhui", "zhun", "zhuo", "zhuang");
break;
default :
s = 0;
}
if (s>0) {
for (i=1; i<=s; i++) {
setProperty("_root.pin"+i+"_mc", _visible, 1);
_root["pin"+i+"_mc"].pin = pin_array[i-1];
}
}
}

能发我一份吗？
linsb3031@163.com

我想学习一下,能发给我吗?
Email:raojiyun@21cn.com
谢谢!

引用:

后台数据库部分关键源代码
本词典制作的flash演示教程将在本月编完,需要者留下email

’’’..........字典...关于查找的字的相关信息都在这里例出........................
if cikuid=1 then
sql="select * from hzlib where name like ’"&zici&"’"
else
sql="select * from hzlib where id="&request("indexid")
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")
duoyin=rs("name")
response.write "&pyindex"&count&"="&rs("pyindex")
response.write "&fanti"&count&"="&rs("ft")
response.write "&bihua"&count&"="&rs("bh")
response.write "&bushou"&count&"="&rs("bs")
response.write "&pinyin"&count&"="&rs("py")
response.write "&jieshi"&count&"="&rs("sy")
response.write "&jiegou"&count&"="&rs("jg")
response.write "&zaozifa"&count&"="&rs("qb")
response.write "&wubi"&count&"="&rs("wb")
rs.movenext
loop
’如果是按拼音索引查,再打开数据库,查本字的多音字问题
if cikuid=11 then
sql="select * from hzlib where id<>"&request("indexid") & "and name like ’"&duoyin&"’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")
response.write "&pyindex"&count&"="&rs("pyindex")
response.write "&fanti"&count&"="&rs("ft")
response.write "&bihua"&count&"="&rs("bh")
response.write "&bushou"&count&"="&rs("bs")
response.write "&pinyin"&count&"="&rs("py")
response.write "&jieshi"&count&"="&rs("sy")
response.write "&jiegou"&count&"="&rs("jg")
response.write "&zaozifa"&count&"="&rs("qb")
response.write "&wubi"&count&"="&rs("wb")
rs.movenext
loop
end if

end if
if cikuid=2 then
’’’..........词典索引.........................
sql="select * from clib where name like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")
response.write "&id"&count&"="&rs("id")
rs.movenext
loop
end if
if cikuid=3 then
’’’’’.........成语索引.....
sql="select * from cylib where name like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")
response.write "&id"&count&"="&rs("id")
rs.movenext
loop
end if
if cikuid=4 then
’’’’’’’’’’’’’’反义词’’’’’’’’’’’’’’’’’’’’’’
sql="select * from fyclib where name like ’%"&zici&"%’ or fname like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")&"--------"&rs("fname")
rs.movenext
loop
end if
if cikuid=6 then
’’’’’’’’’’’’’谜语............................
sql="select * from miyulib where miyu like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"=【"&rs("types")&"】 "&rs("miyu")&" （猜:"&rs("mimu")&"）"
’response.write "&midi"&count&"=&rs("midi")&"
response.write "&midi"&count&"="&"谜底： <font color=’#FF0000’>"&rs("midi")&"</font>"
rs.movenext
loop
end if
if cikuid=5 then
’’’’’’’’’’’’’近义词............................
sql="select * from tylib where name like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")
rs.movenext
loop
end if
if cikuid=7 then
’’’’’’’’’’’’’歇后语............................
sql="select * from xhylib where name like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
response.write "&name"&count&"="&rs("name")
rs.movenext
loop
end if
if cikuid=8 then
’’’’’’’’’’’’’名言............................
sql="select * from mylib where name like ’%"&zici&"%’ or zz like ’%"&zici&"%’"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do Until (rs.eof)
count = count + 1
if rs("zz")<>"" then
response.write "&name"&count&"="&rs("zz")&"： "&rs("name")
else
response.write "&name"&count&"="&rs("name")
end if
rs.movenext
loop
end if
response.write "&count="&count
response.write "&end"
rs.Close
conn.Close
set rs=Nothing
set conn=Nothing
%>

我给了EMAIL了,给我发一份吧

sgm19086486@163.com
也给我一份学习学习

ca_sryg@sina.com
研究一下！

daoshen05@yahoo.com.cn
感兴趣，先谢过了！^_^

jxph040365@163.com

lidax999@163.com
我也想要一份

强人，用了后台吗？我要一份。致谢。yytcfly@163.com

giant105@126.com
谢谢楼主

做得真好,我想要源码,konn@zj.com,多谢了．

做的真的真的很好,我也想要代码,我的邮箱是fanflash@msn.com,如果这个发不了,就发到ymmhm7@yahoo.com.cn给你提个意见,搜索框输入完按一下回车就可以搜索就好了

我要
hemaoliang@126.com

谢谢楼主分享,好东西!
能给我发一份吗?我的E-MAIL: xiaoyimail@sohu.com
非常感谢!