hdt记牌器 青龙圣者:帮我看一段ASP小程序,为什么错误了?
来源:百度文库 编辑:中科新闻网 时间:2024/10/06 01:20:35
<%
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是字段名
谢谢
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