mailpwd.aspx

来自「用VB实现」· ASPX 代码 · 共 73 行

ASPX
73 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<script runat ="server">
    Dim objDataSet as New System.Data.DataSet()
    Sub btnSend_Click(sender As Object, e As System.EventArgs )
	    GetDS()
		''Response.write(objDataSet.Tables(0).Rows(0).Item(0))
		If objDataSet.Tables(0).Rows.Count > 0 Then 
			Dim objMailMessage As New System.Web.Mail.MailMessage()		
			
			objMailMessage.To =txtMail.Text
			objMailMessage.From = "Dreamweaver MX & ASP.NET 论坛(service@nantay.com.tw)"
			objMailMessage.Subject = "Dreamweaver MX & ASP.NET 论坛会员密码"
			objMailMessage.Body = _
			    objDataSet.Tables(0).Rows(0).Item(0) &  _
			    "您好：" & vbcrlf & "以下是您登录的密码"　& vbcrlf & 　_
				objDataSet.Tables(0).Rows(0).Item(2)
			
			System.Web.Mail.SmtpMail.SmtpServer ="127.0.0.1"
			System.Web.Mail.SmtpMail.Send(objMailMessage)			
		End If 
        
    End Sub
	Sub GetDS()
	  
	   Dim strConn as String = _
	        System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") 
       Dim strSQL as String  = _ 
	       "Select * From Member WHERE eMail = '" & txtMail.Text & "'" 
     　Dim objDataAdapter as  New _ 
       　　System.Data.Oledb.oledbDataAdapter(strSQL,strConn) 
       ObjDataAdapter.Fill(objDataSet)	
	
	End Sub 
	
</script>



<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>寄送密码</title>
<style type="text/css">
<!--
.style1 {
	font-size: large;
	font-weight: bold;
}
-->
</style>
</head>
<body>

<p>&nbsp;</p>
<table width="552" border="0">
  <tr>
    <td><span class="style1">请输入注册的电子邮件：
    </span>      <hr></td>
  </tr>
  <tr>
    <td><form runat="server">
      <asp:TextBox ID="txtMail" runat="server" />    
      <asp:Button ID="btnSend" Text="寄送密码" runat="server" OnClick = "btnSend_Click"/>      
        </form></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>

mailpwd.aspx - 源码说明

本页面展示了「用VB实现」中的 mailpwd.aspx 源码文件，采用 ASPX 编程语言编写，共 73 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?