1号店是哪家公司:帮我看一段ASP小程序,为什么错误了?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 05:36:41
<%
i=request.form("t1")
if i="" then
Response.Write "无可查内容,请返回输入正确字符":
end if

if i<>"" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db1.mdb")

sql = "select * from 表1 where like hiragana '%i%' or kanakanji '%i%'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

Do While Not rs.Eof

Response.Write "<p>语法点:" & rs("hiragana") & "<br>汉字替换假名:" & rs("kanakanji") & "<br>" & "接续法:" & rs("jiexu") & "<br>注解:" & rs("zhujie") & "<br>" & "例句:" & "<br>" & rs("liju") & "<br>================================"

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
end if
%>

以上i为变量,hiragana,kanakanji是字段名
谢谢

sql = "select * from 表1 where like hiragana '%i%' or kanakanji '%i%'"

改成

sql = "select * from 表1 where hiragana like '%i%' or kanakanji like '%i%'"

like的位置错了...

rs.Open sql,conn,1,1

这句下面最好再加上

if rs.eof or rs.bof then

response.write "什么东西也没找到!"

else
.
.
.
.
.
.
end if