800a0bb9 클래식 ASP에서 연결 오류

오류 ADODB.Connection 오류 '800a0bb9'줄 16 IF objRS.EOF 내 코드에 문제가 있습니까? 내 모든 사용자 이름과 암호 및 데이터 소스를 알고 있습니다. 내 다른 연결로 그것을 테스트하고 잘 작동합니다. 이 코드 만. 레코드 집합이 비어있는 경우800a0bb9 클래식 ASP에서 연결 오류

<% 
 
    DIM strUsername 
 
    strUsername = Request.Form("Username") 
 
    IF strUsername <> "" THEN 
 
    %> 
 

 
    <!--#inlcude file="confirm_test.asp"--> 
 

 
    <% 
 
    DIM mySQL, objRS, rs 
 
    Set objRS = Server.CreateObject("ADODB.Connection") 
 
    objRS.Open "Provider=MSDASQL.1;Password=lafgfngas;Persist Security Info=True;User ID=mmdsg;Data Source=mmsdsg_web" 
 
    mySQL = "SELECT username, email_addr FROM medacist_user WHERE username = '" & strUsername & " ' " 
 
    Set rs = objRS.Execute(mySQL) 
 

 
    IF objRS.EOF THEN 
 
    Response.Write "<div align='center'>Sorry, that username does not exist. Please click back on your browser and enter a different username.</div>" 
 

 
    ELSE 
 
    %> 
 

 
    <form name="UpdatePassword" method="post" action="reset_form.asp"> 
 
    <table> 
 
    <tr><td>Username:</td><td> 
 
    <input type="text" name="Username" size="50" value='<%=objRS("Username")%>'> 
 
    </td></tr> 
 
    <tr><td>Password:</td><td> 
 
    <input type="text" name="Password" size="50" value='<%=objRS("Password")%>'> 
 
    </td></tr> 
 
    </table> 
 
    <input type="submit" name="Submit" value="Reset"> 
 
    </form> 
 

 
    <% 
 
    END IF 
 

 
    objRS.Close 
 
    Set objRS = Nothing 
 
    %> 
 

 
    <% 
 
    ELSE 
 
    Response.Write "Please click back on your browser and enter your username." 
 
    END IF 
 
    %>

출처

2015-01-08 Random

하지 연결 개체

출처

2015-01-08 16:03:01 John

덕분에, 당신이보고 테스트하고

IF rs.EOF THEN

을보십시오! 그것은 효과가 있었다. 이제 나는 또 다른 문제가있다. – Random

800a0bb9 클래식 ASP에서 연결 오류

답변

관련 문제