網頁輸入頁面Enter鍵處理元件(KeyDownProcess Version:1.1)

function KeyDownProcess() {
//-----------------------------------------------------------
//網頁親和性輸入控制元件
//元件功能：可以讓網頁資料的輸入更親切，功能如下：
//1.按下Enter鍵自動找到下一個可輸入輸入元件
//2.按下Enter鍵自動找尋submit按鍵，如果找到則模擬Click的功能
//版本：1.1(2009.03.27)
//作者：科碩資訊有限公司
//引用本元件，請保留作者和版本資訊
//聯絡mail:cursor@cursorinfo.com.tw
//------------------------------------------------------------
var kv = 0;
var rv = false;
var isTextarea = false;
var currentId = null; //目前元件
if (document.all && typeof (document.all) == "object") {
kv = event.keyCode;
isTextarea = (event.srcElement.tagName == "TEXTAREA");
currentId = event.srcElement.id;
}
else {
kv = evt.keyCode;
isTextarea = (evt.target == "TEXTAREA");
currentId = evt.id;
}
switch (kv) {
case 13:
if (currentId.length == 0)
return false;
if (isTextarea == true) {
rv = isTextarea;
}
else {
var cts = document.all && typeof (document.all) == "object" ? document.all : document.getElementsByTagName('input');
var cid = "";
var queryBu = null;
var beginNext = false; //開始比對是否為輸入元件
var nextInput = null; //下一個輸入元件
var specialSubmitId = "logonBU"; //指定特例的submit id
var exceptionSubmitId = "waitting"; //指定例外的submit Id
for (ii = 0; ii < cts.length; ii++) {
if (cts[ii].id == currentId) {
beginNext = true;
continue;
}
if (beginNext == true && (cts[ii].id.indexOf(specialSubmitId) > -1 || (cts[ii].type == "submit" && cts[ii].id.indexOf(exceptionSubmitId) == -1))) {
queryBu = cts[ii]; //找到submit元件
break;
}
else if (beginNext == true && (cts[ii].type == "text" || cts[ii].type == "textarea" || cts[ii].type == "password") && cts[ii].readOnly == false && cts[ii].style.display != "none") {
nextInput = cts[ii]; //找到下一個文字輸入元件
break;
}
}
if (null != queryBu) {
setTimeout("doClickId('" + queryBu.id + "');", 100);
rv = false;
}
else if (null != nextInput) {
try {
nextInput.focus();
} catch (Error) { return true; }
rv = false;
}
}
break;
default:
rv = true;
break;
}
return rv;
}

//實做模擬Click的功能
function doClickId(source) {
var o=document.getElementById(source);
if (document.all && typeof (document.all) == "object") //IE
o.click();
else {
var e = document.createEvent('mouseEvent');
e.initEvent('click', false, false);
o.dispatchEvent(e);
}
}

ADSI技術文章-使用WinNT Provider取得User的Groups

public Dictionary GetWinNtUserGroups(string userName, string uName, string pwd)
{
Dictionary rv = new Dictionary();
string adsPath = string.Format("WinNT://{0}/{1},user", Environment.MachineName, userName);
if (DirectoryEntry.Exists(adsPath) == true)
{
DirectoryEntry user = new DirectoryEntry(adsPath, uName, pwd);
IADsGroup ig;
//叫用 Group 的 Members
object groups = user.Invoke("Groups", null);
DirectoryEntry gEntry;
foreach (object go in (IEnumerable)groups)
{
gEntry = new DirectoryEntry(go);
if (gEntry.SchemaClassName.ToLower() == "group")
{
ig = (IADsGroup)gEntry.NativeObject;
rv.Add(ig.Name, ig.Description);
}
}
}
return rv;
}

ADSI技術文章-使用WinNT Provider取得User的Groups

問題說明：
如果我們想使用WinNT Provider，取得user的群組清單，應該如何做呢？
下面範例會傳回一組群組名稱和描述的Dictionary資料：

public Dictionary GetWinNtUserGroups(string userName, string uName, string pwd)
{
Dictionary rv = new Dictionary();
string adsPath = string.Format("WinNT://{0}/{1},user", Environment.MachineName, userName);
if (DirectoryEntry.Exists(adsPath) == true)
{
DirectoryEntry user = new DirectoryEntry(adsPath, uName, pwd);
IADsGroup ig;
//叫用 User 的 Groups
object groups = user.Invoke("Groups", null);
DirectoryEntry gEntry;
foreach (object go in (IEnumerable)groups)
{
gEntry = new DirectoryEntry(go);
if (gEntry.SchemaClassName.ToLower() == "group")
{
ig = (IADsGroup)gEntry.NativeObject;
rv.Add(ig.Name, ig.Description);
}
}
}
return rv;
}
＊使用IADsGroup的COM介面，可以輕鬆取得group的屬性。
＊使用IADsGroup的COM介面，須參考ActiveDs.dll。

如何利用Web 服務描述語言工具(Wsdl.exe)產生Web Service的類別？

問題說明：
.NET Framework 提供了Web 服務描述語言工具Wsdl.exe，最主要的用途是： 從WSDL 合約檔案、XSD 結構描述 (Schema) 和 .discomap 探索文件產生 XML Web Service 和 XML Web Service 用戶端的程式碼。其中產生XML Web Service 用戶端的程式碼，就是只產生Web Service的用戶端類別，做為應用程式直接引用的來源。
使用 Wsdl.exe 建立 Proxy 類別時，請參閱Microsoft MSDN說明。
網址：Web 服務描述語言工具 (Wsdl.exe)

Wsdl.exe存放位址：C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin

建立Web Service Proxy類別，最直接的方法如下：
1.假設目前有一個Web Service的網址為：http://ws.interfax.net/admin.asmx
2.使用下列語法可以產生Web Service Proxy類別，檔名為admin.cs:
　wsdl /out:admin.cs http://ws.interfax.net/admin.asmx?wsdl
3.將該類別加入應用程式專案，就可以直接呼叫Web Service的Method 或Properties。應用程式不必另行加入Web參考。

另外，您可以使用 Web 服務探索工具 (Disco.exe) 來取得 XML Web Service 的探索文件。由這個工具所產生的 .discomap、.disco、.wsdl 和 .xsd 檔案可以用作 Wsdl.exe 的輸入。

ADSI相關雜記

＊Windows 2008 Server安裝Active Directory時，提供AdsiEdit.msc服務。使用該服務可以完整瀏覽與管理，AD的物件與物件屬性。

＊Windows 2003 server使用ADSI WinNT Provider 新增、異動物件時，須設定：
同步處理目錄服務之帳號(本機安全性設定-使用者權利指派-同步處理目錄服務的資料)

Web Application輸入頁面按下Enter鍵時，如何模擬Click功能？續2

問題說明：
攔截Enter鍵，模擬Click功能的Java Script 程式，經過統整後發展成：
在資料輸入頁面，可以自動偵測Enter鍵，處理到下筆資料區或送出資料的功能。

請參閱下面程式碼：

function KeyDownProcess() {
var kv = 0;
var rv = false;
var isTextarea = false;
var currentId=null;//目前元件
if (document.all && typeof (document.all) == "object") {
kv = event.keyCode;
isTextarea = (event.srcElement.tagName == "TEXTAREA");
currentId = event.srcElement.id;
}
else {
kv = evt.keyCode;
isTextarea = (evt.target == "TEXTAREA");
currentId=evt.id;
}
switch (kv) {
case 13:
if (currentId.length == 0)
return false;
if (isTextarea == true) {
rv = isTextarea;
}
else {
var cts = document.all && typeof (document.all) == "object" ? document.all.tags("input") : document.getElementsByTagName('input');
var cid = "";
var queryBu = null;
var beginNext = false; //開始比對是否為輸入元件
var nextInput = null; //下一個輸入元件
for (ii = 0; ii < cts.length; ii++) {
if (beginNext == true && (cts[ii].type == "text") && cts[ii].readOnly == false) {
nextInput = cts[ii]; //找到下一個文字輸入元件
break;
}
if (cts[ii].id == currentId) {
beginNext = true;
}

if (cts[ii].type == "submit" && beginNext == true) {
queryBu = cts[ii]; //找到submit元件
break;
}
}
if (null != queryBu) {
setTimeout("doClick('" + queryBu.id + "');", 100);
rv = false;
}
else if (null != nextInput) {
nextInput.focus();
rv = false;
}
}
break;
default:
rv = true;
break;
}
return rv;
}

//實做模擬Click的功能
function doClick(o) {
if (document.all && typeof (document.all) == "object") //IE
o.click();
else {
var e = document.createEvent('mouseEvent');
e.initEvent('click', false, false);
o.dispatchEvent(e);
}
}

＊以上程式碼，適用於使用Input Buttom Submit type的資料後送模式；如果使用Input Button Image type，則需要修改判斷的type 為image。

後記：
如有任何建議或改善意見，歡迎隨時來函指正或討論。Thanks.

ADSI技術文章-使用WinNT Provider取得Group的Users

問題說明：
如果我們想使用WinNT Provider，透過群組名稱取得所有的成員，應該如何做呢？
下面範例會傳回一組帳號和FullName的Dictionary資料：

public Dictionary GetWinNtGroupUsers(string groupName, string uName, string pwd)
{
Dictionary rv = new Dictionary();
string adsPath = string.Format("WinNT://{0}/{1},group", Environment.MachineName, groupName);
if (DirectoryEntry.Exists(adsPath) == true)
{
DirectoryEntry group = new DirectoryEntry(adsPath, uName, pwd);
IADsUser iu;
//叫用 Group 的 Members
object members = group.Invoke("Members", null);
DirectoryEntry mEntry;
foreach (object mb in (IEnumerable)members)
{
mEntry = new DirectoryEntry(mb);
if (mEntry.SchemaClassName.ToLower() == "user")
{
iu = (IADsUser)mEntry.NativeObject;
rv.Add(iu.Name, iu.FullName);
}
}
}
return rv;
}
＊使用IADsUser的COM介面，可以輕鬆取得User的屬性。
＊使用IADsUser的COM介面須加入ActiveDs.dll參考項。