日期:2014-05-17 浏览次数:21024 次
<%
text=request("text")
If IsObject(oConn) = False Then
Set oConn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
' Access数据库
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dwefb/iedifdfc.mdb")
If Err.Number > 0 Then
response.Write("出错了")
Response.End
End If
end if
sSql = "select * from tihuan where text1=abc"
response.Write(sSql)
oRs.Open sSql, oConn, 1, 1
If not(oRs.EOF or oRs.BOF) Then
retext=oRs("text2")
response.Write("找到了"&retext)
Else
retext="没有找到"
response.Write(retext)
End If
oRs.Close
%>