ASP.NET VB.NET-如何将登录到当前用户名的Active Directory填充到文本框字段中
||
背景：我有一个webForm应用程序，该应用程序根据Web服务提供的信息在数据库中注册用户，自动生成随机密码和用户名，并通过电子邮件向用户发送链接以根据营销公司获取应用程序已选择。
题：
如何用当前登录的用户名填充MarketerName_TextBox字段（是否为User.Identity.Name，并在aspx.vb端或aspx端添加该行？）
这是前端的屏幕截图：
我已经关闭了Wrox的Windows身份验证教程中的代码，但是对于我想做的事情还不够彻底。
web.config文件：
web.config文件（仅显示相关代码）：
<authentication mode=\"Windows\"/>
<authorization>
<allow users=\"alg\\bmccarthy, alg\\phoward\" />
<allow roles=\"alg\\ACOMP_user_Admin\" />
<allow roles=\"alg\\ACOMP_user_AMG\" />
<allow roles=\"alg\\ACOMP_user_BIG\" />
<allow roles=\"alg\\ACOMP_user_NIS\" />
<allow roles=\"alg\\ACOMP_user_GLA\" />
<allow roles=\"alg\\ACOMP_user_PIP\" />
<allow roles=\"alg\\ACOMP_user_PSM\" />
<allow roles=\"alg\\ACOMP_user_PAM\" />
<allow roles=\"alg\\ACOMP_user_ANN\" />
<allow roles=\"alg\\ACOMP_user_AAM\" />
<allow roles=\"alg\\ACOMP_user_MWM\" />
<allow roles=\"alg\\ACOMP_user_GIM\" />
<deny users=\"*\" />
</authorization>
<bindings>
<basicHttpBinding>
<binding name=\"BasicHttpBinding_IAcompService\" closeTimeout=\"00:01:00\"
openTimeout=\"00:01:00\" receiveTimeout=\"00:10:00\" sendTimeout=\"00:01:00\"
allowCookies=\"false\" bypassProxyOnLocal=\"false\" hostNameComparisonMode=\"StrongWildcard\"
maxBufferSize=\"65536\" maxBufferPoolSize=\"524288\" maxReceivedMessageSize=\"65536\"
messageEncoding=\"Text\" textEncoding=\"utf-8\" transferMode=\"Buffered\"
useDefaultWebProxy=\"true\">
<readerQuotas maxDepth=\"32\" maxStringContentLength=\"8192\" maxArrayLength=\"16384\"
maxBytesPerRead=\"4096\" maxNameTableCharCount=\"16384\" />
<security mode=\"None\">
<transport clientCredentialType=\"None\" proxyCredentialType=\"None\"
realm=\"\" />
<message clientCredentialType=\"UserName\" algorithmSuite=\"Default\" />
</security>
</binding>
</basicHttpBinding>
</bindings>
<client>
<endpoint address=\"http://172.17.1.40/aCompService.svc\" binding=\"basicHttpBinding\"
bindingConfiguration=\"BasicHttpBinding_IAcompService\" contract=\"aComp_ServiceReference.IAcompService\"
name=\"BasicHttpBinding_IAcompService\" />
</client>
</system.serviceModel>
Private Sub GetCarriers()
Dim ac1 As Array
ac1 = proxy.GetCarrierNames(\"test\", \"test\")
For Each item In ac1
lbCarriers.Items.Add(String.Format(\"{0} | {1} | {2}\", item.CarrierID, item.CarrierNameLong, item.CarrierNameShort))
Next
End Sub
Private Sub txtMarketerName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMarketerName.TextChanged
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load, Me.Load, Me.Load
If Not lbCarriers.Items.Count > 0 Then
GetCarriers()
GetMarketingCompanies()
End If
End Sub
<table id=\"Table1\" border=\"0\" cellpadding=\"6\" cellspacing=\"0\" align=center>
<tr>
<td class=\"style1\">
My Name (auto-populated Current Logged In User\'s Name): </td>
<td bgcolor=\"#ffffff\" class=\"style6\">
<asp:TextBox ID=\"txtMarketerName\" runat=\"server\" Width=\"250px\">
</asp:TextBox>
</td>
<td bgcolor=\"#ffffff\" class=\"style2\">
<asp:RequiredFieldValidator ID=\"regValMarketerName\" runat=\"server\"
ControlToValidate=\"txtMarketerName\" ErrorMessage=\"Marketer Name is required\" Text=\"*\"
ValidationGroup=\"Valtxt\">
</asp:RequiredFieldValidator>
</td>
</tr>
没有找到相关结果
已邀请:
2 个回复
浩挎
或者，您可以像这样在标记中进行操作：窝头菊
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load, Me.Load, Me.Load If Not lbCarriers.Items.Count > 0 Then txtMarketerName.Text = WindowsIdentity.GetCurrent.Name GetCarriers() GetMarketingCompanies() End If End Sub