经典的ASP连接字符串500 - 内部服务器错误 [英] Asp Classic Connection String 500 - Internal server error
问题描述
您好，我试图连接到Oracle数据源，好像当我试code它给我一个错误。另外，我认为这可能是我的数据源路径是错误的。有没有办法来检查在Oracle或数据源路径中的任何一种方式？谢谢
＆LT;！ - 包含文件= reset_password.asp - ＆GT;\r
\r
＆LT;％\r
DIM strEmail\r
strEmail =的Request.Form（电子邮件）\r
\r
IF strEmail＆LT;＆GT; 然后\r
％GT;\r
＆LT;！ - ＃INCLUDE VIRTUAL =/包括/ connection.asp - ＆GT;\r
＆LT;！ - ************ SQL连接将这里********** - ＆GT;\r
＆所述;！ - *******\r
设置objDB =的Server.CreateObject（ADODB.Connection）\r
objDB.openPROVIDER = MICROSOFT.JET.OLEDB.4.0;数据来源= C：\\了MyDatabase.mdb\r
**** - ＆GT;\r
\r
康涅狄格州。\r
＆LT;％\r
\r
DIM objDB\r
objDB =SELECT EMAIL_ADDR，medacist_password FROM medacist_user WHERE EMAIL_ADDR ='＆放大器; strEmail＆安培; '\r
设置objDB =的Server.CreateObject（ADODB.Connection）\r
objDB.OpenPROVIDER = MICROSOFT.JET.OLEDB.4.0;数据来源= MMSG;坚持安全信息= TRUE;用户ID = MMSG;密码=兰加;\r
\r
IF objDB.EOF THEN\r
RESPONSE.WRITE该电子邮件地址并不在我们的数据库中找到，请单击后退您的浏览器，输入您注册的邮件地址。\r
其他\r
DIM strPassword\r
strPassword = objDB（medacist_password）\r
\r
DIM邮件，objMail\r
设置objMail =的Server.CreateObject（CDONTS.NewMail）\r
objMail.From =example@yahoo.com\r
objMail.Subject =您的密码\r
objMail.To = strEmail\r
objMail.Body =这里就是你的登陆密码：＆放大器; strEmail\r
objMail.Send\r
\r
'设置为objMail无关destory邮件对象\r
设置objMail =什么\r
\r
RESPONSE.WRITE您的密码已发送到您的电子邮件地址。\r
万一\r
\r
其他\r
RESPONSE.WRITE请单击后退您的浏览器，输入您注册的邮件地址。\r
END IF \r
MICROSOFT.JET.OLEDB.4.0是MS访问OLEDB提供商。您将需要一个ODBC或用于Oracle的OLEDB连接字符串。看到这个页面的选项
http://www.connectionstrings.com/oracle/
在你需要一个记录集对象kloarubeek上述建议。一个非常简单的方法来做到这将是如下：
DIM objDB，RS，RSSQL
设置objDB =的Server.CreateObject（ADODB.Connection）
objDB.Open[您的连接字符串到这里]
RSSQL =SELECT EMAIL_ADDR，medacist_password FROM medacist_user WHERE EMAIL_ADDR ='＆放大器; strEmail＆安培; '
集RS = objDB.Execute（RSSQL）
此外，我注意到你正在使用CDONTS发送电子邮件。这是pcated德$ P $，你不会发现它在默认情况下当前版本的IIS。看看CDOSYS而不是
http://www.w3schools.com/asp/asp_send_email.asp
最后，我建议这个页面的人学习经典ASP。它说明了如何让它们比基本500内部服务器错误页的更多有用的错误信息。
http://www.chestysoft.com/asp-error-messages.asp
修改
使用CDOSYS和记录密码检索脚本的一个例子。
NB的CDO配置将取决于您的SMTP服务器上。应用程序（参数conn），意味着我的实际的连接字符串是在一个名为Global.asa中。此页面实际连接到SQL Server数据库，但code应与Oracle合作
＆LT;％@ LANGUAGE =VBSCRIPTcodePAGE =65001％＆GT;＆LT;％
如果INSTR（的Request.Form（用户名），@）＆GT; 0，则
设置objMail =的Server.CreateObject（CDO.Message）
设置iConfg =的Server.CreateObject（CDO.Configuration）
设置FLDS = iConfg.Fields
随着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
结束与
objMail.Configuration = iConfg
objMail.To = CStr的（的Request.Form（用户名））
objMail.From =you@yourdomain.com
objMail.Subject =您的登录信息
objMail.TextBody =您的登录详细信息如下与＆amp; vbcrlf＆安培; vbcrlf
康涅狄格州设置=的Server.CreateObject（ADODB.Connection）
conn.open应用程序（参数conn）SQL =＆AMP从联系人那里ContactEmailAddress ='选择ContactEmailAddress，ContactAffiliateUsername，ContactAffiliatePassword的request.form（用户名）及'设置RS =的Server.CreateObject（ADODB.Recordset）
rs.open SQL，康涅狄格州，3,1如果rs.bof而RS.EOF然后
的Response.Redirect（invalidemailpage.asp？invalidemail = 2）其他objMail.To = RS（ContactEmailAddress）
objMail.TextBody = objMail.TextBody＆安培; 用户名=＆放大器; RS（ContactAffiliateUsername）及，密码=与＆amp; RS（ContactAffiliatePassword）及vbcrlf
万一objMail.Send
设置objMail =什么rs.close
集RS =什么
conn.close
康涅狄格州设置什么=
的Response.Redirect（的login.asp？sentpassword = 1）
其他
的Response.Redirect（invalidemailpage.asp？invalidemail = 1）
万一％GT;
Hello I'm trying to connect to the oracle data source and seems like when i test the code its giving me an error. Also, I believe it might be my data source path is wrong. Is there way to check the data source path in oracle or any kind of way? Thanks
<!--INCLUDED FILE = reset_password.asp -->
<%
DIM strEmail
strEmail = Request.Form("email")
IF strEmail <> "" THEN
%>
<!--#INCLUDE VIRTUAL="/includes/connection.asp"-->
<!-- ************SQL CONNECTION INSERT HERE*********************-->
<!-- *******
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\mydatabase.mdb"
**** -->
conn.
<%
DIM objDB
objDB = "SELECT email_addr,medacist_password FROM medacist_user WHERE email_addr = '" & strEmail & "'"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE= mmsg; Persist Security Info=True; User ID=mmsg; Password=langa;"
IF objDB.EOF THEN
Response.Write "That email address was not found in our database. Please click Back on your browser and enter the email address you registered with."
ELSE
DIM strPassword
strPassword = objDB("medacist_password")
DIM mail, objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "example@yahoo.com"
objMail.Subject = "Your Password"
objMail.To = strEmail
objMail.Body = "Here is your login password: " & strEmail
objMail.Send
'Set objMail to nothing to destory the mail object'
Set objMail = nothing
Response.Write "Your password has been sent to your email address."
END IF
ELSE
Response.Write "Please click Back on your browser and enter the email address you registered with."
END IF
MICROSOFT.JET.OLEDB.4.0 is the OLEDB provider for MS Access. You'll need either an ODBC or an OLEDB connection string for Oracle. See this page for options
http://www.connectionstrings.com/oracle/
After that you need a recordset object as kloarubeek suggests above. A very simple way to do this would be as follows.
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)
Also I notice you are using CDONTS to send emails. It's deprecated and you won't find it on current versions of IIS by default. Look at CDOSYS instead
http://www.w3schools.com/asp/asp_send_email.asp
Finally, I recommend this page for anyone learning Classic ASP. It explains how to get error messages which are more useful than the basic 500 internal server error page.
http://www.chestysoft.com/asp-error-messages.asp
Edit
An example of a password retrieval script using CDOSYS and a recordset.
NB The CDO configuration will depend on your smtp server. Application("conn") means that my actual connection string is in a file called global.asa. This page actually connects to a SQL Server db, but the code should work with 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 = "you@yourdomain.com"
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
%>
这篇关于经典的ASP连接字符串500 - 内部服务器错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
