<% '***************************************** ' 作者:guke ' QQ:6692103 '***************************************** Function NoCSSHack(Str) '过滤非法字符,防止 XSS 注入 Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Pattern = "<|>|(script)|on(mouseover|mouseon|mouseout|click|dblclick|blur|focus|change)|src|'|img|url|eval|\t" If regEx.Test(LCase(Str)) Then Response.Write "" Response.End End If Set regEx = Nothing NoCSSHack = Str End Function Function FormatHTML(fString) '过滤空格 If fString<>"" Then fString = trim(fString) fString = Replace(fString," "," ") fString = Replace(fString," "," ") FormatHTML = fString End If End Function %> 瑶英汉词典在线查询 - Mienh-English-Chinese Dictionary



<%=request("q")%>

<% str=NoCSSHack(request("q")) if str="" then response.write "" else for i=1 to len(str) if i<>len(str) then sql=sql&"mienh not like '%"&str&"%' and mienh like '%"&mid(str,i,2)&"%' or " else sql=sql&"chinese not like '%"&str&"%' and chinese like '%"&mid(str,i,2)&"%' or " end if next set rs=server.createobject("adodb.recordset") sql="select *,1 from dic where mienh like '%"&str&"%' union select *,2 from dic where english like '%"&str&"%' union select *,3 from dic where chinese like '%"&str&"%'" rs.open sql,conn,1,1 if rs.eof then Response.Write "

没有搜索到内容。瑶英汉词典正在逐步增加词条中,欢迎大家提交词条,反馈错漏。

" else Response.Write "
" rs.movenext Loop Response.Write "
瑶文英文中文读音
" do while not rs.eof Response.Write "
"&rs("mienh")&""&rs("english")&""&rs("chinese")&"
" end if rs.close end if %>

版权声明:本词典基于LearnMien.com、毛宗武著《汉瑶词典》等资料制作,并在此基础上进行第三语言的翻译并完善其他词条,部分瑶英词条及读音归原作者所有,如有侵犯您的权益,请联系我们neirong@yaozu.org。

© 2005-2016  yaozu.net  桂ICP备05001778号