TextMode="Password" 不能赋值的解决方法

哎!今天遇到意见蛋疼的事,就是TextMode="Password"不能在后台向前台赋值,百度了很长时间都没有查到解决方案!最后终于百度到了,分享给大家!

大家务吐槽!

我是在写保存用户对象到本地后续访问就可以不用输入了!废话不多说!讲重点!

前台code:

<asp:TextBox ID="txtLoginPwd" runat="server" TextMode="Password"
CssClass="opt_input"></asp:TextBox>

后台的protected void Page_Load(object sender, EventArgs e){}事件内得到数据后赋值给前面的TextMode="Password",具体代码:

 

protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{

if (user != null)
{
txtLoginId.Text = user.LoginId;
txtLoginPwd.Attributes.Add("value", user.LoginPwd);//重点
}
}
}

可以通过添加“value”属性赋值,不信试试!

转载于:https://www.cnblogs.com/lf-DoBest/p/lf.html

Option Explicit ' >>> [1] 配置项 <<< Const SMTP_SERVER As String = "smtp.coremail.cn" Const SMTP_PORT As Integer = 465 Const USER_NAME As String = "your_account@domain.com" Const PASSWORD As String = "your_password" ' >>> [2] 数据源 <<< Const DATA_SHEET As String = "邮件数据" Const START_ROW As Integer = 2 ' 数据起始行 Const EMAIL_COL As Integer = 1 ' 邮箱地址列 Const NAME_COL As Integer = 2 ' 姓名列 Const SUBJECT_COL As Integer = 3 ' 主题列 ' >>> [3] 模板路径 <<< Const TEMPLATE_PATH As String = "D:\邮件模板.html" ' >>> [4] 附件处理 <<< Const ATTACH_DIR As String = "D:\邮件附件\" ' >>> [5] 发送控制 <<< Dim TEST_MODE As Boolean ' 改为变量声明(修复常量赋值错误) Const SEND_DELAY As Integer = 3 ' 发送间隔(秒) ' >>> [6] 日志记录 <<< Const LOG_PATH As String = "D:\邮件发送日志.txt" ' ============================================== ' 主过程:开始发送邮件 ' ============================================== Public Sub StartSending() ' [1] 初始化配置 Dim originalMode As Boolean originalMode = TEST_MODE ' 保存原始设置 ' 显示当前模式并询问用户 If MsgBox("当前模式:" & IIf(TEST_MODE, "预览", "真实发送") & vbCrLf & _ "点击【是】切换模式,【否】继续", vbQuestion + vbYesNo) = vbYes Then TEST_MODE = Not TEST_MODE ' 切换模式 End If ' [2] 加载模板 Dim mailTemplate As String mailTemplate = LoadTemplate(TEMPLATE_PATH) If mailTemplate = "" Then Exit Sub ' [3] 处理数据 Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(DATA_SHEET) Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, EMAIL_COL).End(xlUp).Row ' [4] 循环发送 Dim i As Long For i = START_ROW To lastRow Dim toEmail As String, toName As String, subject As String toEmail = ws.Cells(i, EMAIL_COL).Value toName = ws.Cells(i, NAME_COL).Value subject = ws.Cells(i, SUBJECT_COL).Value ' 跳过空行 If toEmail = "" Then GoTo ContinueLoop ' 个性化邮件内容 Dim mailBody As String mailBody = Replace(mailTemplate, "{姓名}", toName) mailBody = Replace(mailBody, "{日期}", Format(Now, "yyyy年mm月dd日")) ' 附件处理 Dim attachmentPath As String attachmentPath = ATTACH_DIR & toEmail & ".pdf" ' [5] 发送控制 If TEST_MODE Then ' 预览模式 PreviewMail toEmail, "", subject, mailBody, attachmentPath Else ' 真实发送模式 SendMailViaCoremail toEmail, "", subject, mailBody, attachmentPath Application.Wait (Now + TimeValue("0:00:" & SEND_DELAY)) End If ' 记录日志 LogActivity "邮件已处理: " & toEmail ContinueLoop: Next i ' 恢复原始模式(可选) TEST_MODE = originalMode MsgBox "处理完成! 模式已恢复为: " & IIf(TEST_MODE, "预览", "真实发送") End Sub ' ============================================== ' 辅助函数:加载邮件模板 ' ============================================== Private Function LoadTemplate(templatePath As String) As String On Error GoTo ErrorHandler Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(templatePath) Then MsgBox "模板文件不存在: " & templatePath, vbCritical Exit Function End If Set ts = fso.OpenTextFile(templatePath, 1) ' 1=ForReading LoadTemplate = ts.ReadAll ts.Close Exit Function ErrorHandler: MsgBox "加载模板错误: " & Err.Description, vbCritical LoadTemplate = "" End Function ' ============================================== ' 邮件预览功能 ' ============================================== Private Sub PreviewMail(toList As String, ccList As String, _ subject As String, body As String, attachment As String) Dim outlookApp As Object Set outlookApp = CreateObject("Outlook.Application") Dim mail As Object Set mail = outlookApp.CreateItem(0) ' 0=olMailItem With mail .To = toList .CC = ccList .Subject = "[PREVIEW] " & subject ' 添加预览标识 .HTMLBody = "<div style='border:2px solid red; padding:10px;'>" & _ "<strong>预览模式 - 邮件不会被发送</strong></div>" & body ' 添加附件(如果存在) If Dir(attachment) <> "" Then .Attachments.Add attachment End If .Display ' 预览而不发送 End With End Sub ' ============================================== ' 真实发送邮件(通过Coremail SMTP) ' ============================================== Private Sub SendMailViaCoremail(toList As String, ccList As String, _ subject As String, body As String, attachment As String) ' 此处为Coremail SMTP发送逻辑 ' 实现细节根据实际SMTP库调整 ' ... MsgBox "邮件已发送至: " & toList, vbInformation End Sub ' ============================================== ' 日志记录功能 ' ============================================== Private Sub LogActivity(message As String) Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set ts = fso.OpenTextFile(LOG_PATH, 8, True) ' 8=ForAppending ts.WriteLine Now & " - " & message ts.Close End Sub
最新发布
08-22
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值