<%
dim objRs,strSql
Set objRs=Server.CreateObject("ADODB.RecordSet")
strSql="select * from chengyu where chengyu like '%"&sqlchk(request("chengyu"),0)&"%' "
objRs.Open strSql,strConn,1,3
if objRs.Eof then
response.write " 没有此数据"
else
%>
| 你查询的成语是：<%=request("chengyu")%> （拼音：
<% =objrs("pingyin") %>） |
| |
| 出处：
<% =objrs("chuchu") %>
|
| |
| 典故：
<% =objrs("diangu") %>
|
| |
| 例子：
<% =objrs("lizi") %>
|
<%
end if
objRs.close
set objRs=Nothing
%>
|
