Chuỗi kết nối Asp Classic 500 - Lỗi máy chủ nội bộ

MICROSOFT.JET.OLEDB.4.0 là nhà cung cấp OLEDB cho MS Access. Bạn sẽ cần một chuỗi kết nối ODBC hoặc OLEDB cho Oracle. Xem trang này để biết các tùy chọn

http://www.connectionstrings.com/oracle/

Sau đó, bạn cần một đối tượng tập ghi như kloarubeek đề xuất ở trên. Một cách rất đơn giản để làm điều này sẽ như sau.

    DIM objDB, rs, rssql
    Set objDB = Server.CreateObject("ADODB.Connection")
    objDB.Open "[your connection string goes here]"
    rssql = "SELECT email_addr,medacist_password FROM medacist_user WHERE email_addr = '" & strEmail & "'"
    Set rs = objDB.Execute(rsSQL) 

Ngoài ra, tôi nhận thấy bạn đang sử dụng CDONTS để gửi email. Nó không được dùng nữa và bạn sẽ không tìm thấy nó trên các phiên bản IIS hiện tại theo mặc định. Nhìn vào CDOSYS thay vào đó

http://www.w3schools.com/asp/asp_send_email.asp

Cuối cùng, tôi giới thiệu trang này cho bất kỳ ai đang học ASP Cổ điển. Nó giải thích cách nhận thông báo lỗi hữu ích hơn trang lỗi 500 máy chủ nội bộ cơ bản.

http://www.chestysoft.com/asp-error-messages.asp

Chỉnh sửa

Ví dụ về tập lệnh truy xuất mật khẩu sử dụng CDOSYS và tập bản ghi.

NB Cấu hình CDO sẽ phụ thuộc vào máy chủ smtp của bạn. Ứng dụng ("conn") có nghĩa là chuỗi kết nối thực của tôi nằm trong tệp có tên global.asa. Trang này thực sự kết nối với db SQL Server, nhưng mã phải hoạt động với Oracle

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<% 
If InStr(request.form("username"),"@") > 0 Then
Set objMail = Server.CreateObject("CDO.Message")
Set iConfg = Server.CreateObject("CDO.Configuration")
Set Flds = iConfg.Fields
With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youremailusername"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "youremailpasword"
    .Update
End With
objMail.Configuration = iConfg
objMail.To = CStr(request.form("username"))
objMail.From = "[email protected]"
objMail.Subject = "Your login details"
objMail.TextBody = "Your login details are as follows " & vbcrlf & vbcrlf
set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("conn")

sql = "select ContactEmailAddress, ContactAffiliateUsername, ContactAffiliatePassword from Contacts where ContactEmailAddress ='" & request.form("username") & "'"



set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,1

If rs.bof And rs.eof Then
response.redirect("invalidemailpage.asp?invalidemail=2")

Else 

objMail.To = RS("ContactEmailAddress")
objMail.TextBody = objMail.TextBody & "Username = " & RS("ContactAffiliateUsername") & ", Password = " & RS("ContactAffiliatePassword") & vbcrlf


End If 

objMail.Send
Set objMail = Nothing

rs.close
set rs = nothing
conn.close
set conn = nothing 
response.redirect("login.asp?sentpassword=1")
Else
response.redirect("invalidemailpage.asp?invalidemail=1")
End If

%>