日期:2014-05-17 浏览次数:21026 次
<%
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
    %>