<%
dim strSQL,objRS,email,password,objconn
dim username,username2
set objconn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft access driver(*.mdb)};"&_
"OBQ="&Server.MapPath("product.mdb")
objConn.Open
set objRS=server.createobject("Adodb.recordset")
objrs.open "club",cnn,adopenkeyset,adlockoptimistic,adcmdtable
email=objrs.fields("email")
password=objrs.fields("password")
username=objrs.fields("username")
username2=request("Username")
strSQL="Select * from club Where username='"& username & "'"
if (username=username2) Then
strSQL="Select * From club Where email='"& email& "'"
set objMail=Server.CreateObject("CDONTS.NewMail")
objMail.from="hlb1118@sina.com"
objMail.to="'"& email &"'"
objMail.Subject="'"& password &"'"
objMail.Body="your password is:" & objRS.fields("password")
objMail.Send
Response.Write"your password already sent to your mail!"
else
Response.Write" your username is wrong!"
End if    

%>
实现根据用户输入的用户名来发一封带用户密码的邮件给用户，（即用来实现忘记密码的功能）

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/showpass.asp，行281