 名稱﹕
eightwing
|
| 頭銜﹕版主 |
| 暱稱﹕打雜的 |
| 積分﹕50403 點 |
| 發貼﹕608 篇 |
| 現金﹕36620000 元 |
| 存款﹕26943 元 |
| 財富﹕
富可敵國
|
| 性別﹕
女
|
| 來自﹕外太空 |
| 註冊﹕2005-4-1 |
|
狀態﹕離線
|
|
[轉帖][ASP]ASP.NET結合AD帳號表單認証
<%@ Page Language="VB" Debug="true" %>
<%@ Import namespace="System.Data"%>
<%@ Import namespace="System.Data.OleDb"%>
<html>
<head>
<script language="VB" runat="Server">
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myComputer As Object
Dim oIIS As Object
Dim member As Object
Dim ret As String
Dim arr(0) As Object
arr(0) = "user"
myComputer = GetObject("WinNT:")
If TextBox1.Text <> "" Then
On Error Resume Next
oIIS = myComputer.OpenDSObject("WinNT://AD網域", TextBox1.Text, TextBox2.Text, 0)
If Err.Number = 0 Then
Response.Write("歡迎登入" & TextBox1.Text & "<BR>身分驗證通過.")
Else
Response.Write("登入錯誤，請重新登入.<BR>")
End If
End If
If TextBox1.Text = "" Then
Response.Write("帳號欄位不可空白.<BR>")
End If
End Sub
</script>
<title>AD帳號認証</title>
</head>
<body>
<h3>請輸入帳號資料</h3>
<form runat="server">
帳號：<asp:TextBox id="TextBox1" Text="yuchean" width="100px" runat="Server" runat="Server"/><br>
密碼：<asp:TextBox id="TextBox2" TextMode="password" Text="kangta72" width="100px" runat="server" runat="Server"/><br>
<asp:Button id="Button1" Text="送出" runat="Server"/><br>
<asp:Label id="msg" width="200px" ForeColor="red" runat="Server"/>
</form>
</body>
</html>
轉自：
[url]http://blog.blueshop.com.tw/yowcheng/archive/2005/10/05/12153.aspx[/url]
| 
聽得到...
我的聲音嗎...
雖然我沒有能擁抱可愛的你們的雙臂，
但願這翅膀，
對治療你們的傷痕能有所益助，
啊，無論如果...
都希望能把我的祈禱傳達出去－－－...
截自：天使禁獵區 No.20 P.3 |
|
