ASP

jQuery透過ajax取得yahoo新聞Rss範例

topcat — Fri, 08 Aug 2008 13:39:00 GMT

這個範例是使用jQuery 的.ajax，從Yahoo新聞的Rss擷取後，產生超連結在自己的網頁中。測試的時候只需要一個html與jQuery.js即可。

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<Script Language="JavaScript" type="text/javascript" Src="jQuery.js"></Script>
<Script Language="JavaScript">
<!--
$(document).ready(function(){
    $('#button1').click(function(){
        var strURL='http://tw.news.yahoo.com/rss/tech_3c';
        $.ajax({
            type:'GET',
            dataType:'xml',
            url:strURL,
            success:function(xml){
                var myTitle;
                var myLink;
                $('item',xml).each(function(e){
                    myTitle=$('title',this).text();
                    myLink=$('link',this).text();
                    $('<a/>').attr('href',myLink).attr('target','_blank').text(myTitle).appendTo($('#div1'));
                    $('<br/>').appendTo($('#div1'));
                });
                alert($('#div1').html());
            }
        })
    })
})

//-->
</Script>
<TITLE></TITLE>
</HEAD>
<body onbeforeunload="RunOnBeforeUnload()">
<FORM action="" method=POST id=form1 name=form1>
<INPUT type="button" value="Button" id=button1 name=button1>
</FORM>
<div id="div1"></div>
</BODY>
</HTML>

轉貼_JavaScript的UrlEncode,UrlDecode

topcat — Fri, 25 Jul 2008 11:16:00 GMT

來源：http://www.wujianrong.com/archives/2006/11/javascripturlencodeurldecode.html

<script language="javascript">
//可參考資料 http://www.wujianrong.com/archives/2006/11/javascripturlencodeurldecode.html
/*這裡開始 UrlEncode、UrlDecode 函數*/ 
function UrlEncode(str){ 
  var ret=""; 
  var strSpecial="!\"#$%&'()*+,/:;<=>?[]^`{|}~%"; 
  var tt= "";

  for(var i=0;i<str.length;i++){ 
   var chr = str.charAt(i); 
    var c=str2asc(chr); 
    tt += chr+":"+c+"n"; 
    if(parseInt("0x"+c) > 0x7f){ 
      ret+="%"+c.slice(0,2)+"%"+c.slice(-2); 
    }else{ 
      if(chr==" ") 
        ret+="+"; 
      else if(strSpecial.indexOf(chr)!=-1) 
        ret+="%"+c.toString(16); 
      else 
        ret+=chr; 
    } 
  } 
  return ret; 
} 

function UrlDecode(str){ 
  var ret=""; 
  for(var i=0;i<str.length;i++){ 
   var chr = str.charAt(i); 
    if(chr == "+"){ 
      ret+=" "; 
    }else if(chr=="%"){ 
     var asc = str.substring(i+1,i+3); 
     if(parseInt("0x"+asc)>0x7f){ 
      ret+=asc2str(parseInt("0x"+asc+str.substring(i+4,i+6))); 
      i+=5; 
     }else{ 
      ret+=asc2str(parseInt("0x"+asc)); 
      i+=2; 
     } 
    }else{ 
      ret+= chr; 
    } 
  } 
  return ret; 
}
</script>

jQuery初體驗

topcat — Fri, 25 Jul 2008 10:16:00 GMT

緣起

小喵經常會在各個技術blog中閒逛，有次逛到黑暗執行緒大大的網站，看到了一篇【jQuery, I LOVE YOU~~~】文章，文章中說了他發給【ASP.NET AJAX Client Library】好人卡，並且移情別戀轉而跟【jQuery】在一起的經過。讓小喵留下了深刻的印象。不過，這時小喵還是不曉得jQuery是什麼。

後來有次小喵剛好要買幾本書，在逛【書店】的時候的時候(小喵目前已經很少跑真正的書店，逛得只是書店的網站)，還差一點就可免運費，所以順便找找看是否有什麼新書可以買。剛好看到jQuery有本新的中文書出版。於是小喵就把它放入購物車。從此開始與jQuery結緣。本來買了書後，打算先翻翻看看這個東西到底是什麼，能讓黑暗執行緒大大隊ASP.NET AJAX Client Library發出好人卡。沒想到這個迷死人不償命的小寶貝，竟然開始勾引小喵。

jQuery是什麼??

jQuery是一組JavaScript的library，而且是免費的library。使用的時候也只需要指定<Script src="jQuery.js"></Script>就可以開始引用了。因此無論是用什麼樣的網頁開發程式(ASP,ASP.NET,JSP,PHP,CGI,....)，甚至只需要HTML就可以使用。因此要測試jQuery，甚至不必上網，只需要記事本撰寫html就可以測試使用了。

下載

先說明要準備使用jQuery之前，需要些什麼：

首先需要把jQuery帶回家。有個繁體中文的網址【jQuery: 寫得少, 做得多, JavaScript 程式庫】不過也僅止於這麼少少的幾頁，可以把最新版本的jQuery下載回來。下載的部分他分為三種：

GZip的版本(Minified)：js經過GZip壓縮過，檔案最小，適合放在正式環境中，1.26版大約16kb
未壓縮版本(Uncompressed)：適用於測試開發學習。1.26版大約97kb
包裝版(Packed)：給沒有辦法解GZip瀏覽器用的版本1.26版大約30kb

其實就算是使用Uncompressed的版本，大小也只有97kb，檔案非常的小(可能網頁中隨便一張圖就比這個大了)。而小喵自己則是取中庸的Packed版本使用。

測試

接下來開始重頭戲，我們初體驗的實際運作範例。也開始體驗一下為何這個小東西會勾引小喵的原因。首先來個範例，小喵產生一個html檔案在畫面上安排了個兩個按鈕(<input type="button")以及一個img並且指向一個jpg。

現在假設要設定，一開始要把img1圖形隱藏，按下按鈕後，希望可以把他顯示出來，再按一次按鈕，又可以把他隱藏。這個對於已經熟悉JavaScript的人，應該不難。小喵寫個簡單的

<html>
<head>

<script Language="JavaScript">
<!--

function window_onload(){
	var img1=window.document.getElementById('img1');
	img1.style.display='none';
}

function btn1_click(){
	var img1=window.document.getElementById('img1');
	if(img1.style.display=='none')
	{
		img1.style.display='';
	}
	else
	{
		img1.style.display='none';
	}
}

//-->
</script>
</head>
<body onload="window_onload()">
	<input type="button" id="btn1" name="btn1" value="JavaScript按鈕" onclick="btn1_click()" />
	<br />
	<img id="img1" src="topcat.jpg" />
</body>
</html>

而以上的動作，如果希望由jQuery來處理的話，那又如何呢

<html>
<head>
<Script Language="JavaScript" src="jQuery.js"></Script>
<script Language="JavaScript">
<!--
$(document).ready(function(){
	$('#img1').hide();
	$('#btn2').click(function(){
		$('#img1').toggle();
	})
})

//-->
</script>
</head>
<body>
	<input type="button" id="btn2" name="btn2" value="jQuery按鈕" />
	<br />
	<img id="img1" src="topcat.jpg" />
</body>
</html>

一樣的動作，發現了嗎??程式碼精簡到不行。真是太神奇了!!

再來另外一個範例

假設我的畫面中有一個<table>希望，<table>裡面的資料在顯示的時候，可以用不同底色交錯顯示，這樣方便在瀏覽的時候可以方便看。我們用固定的<table>當作示範，我們希望讓偶數行能夠加上class，這樣的要用Javascript有多麻煩各位可以想像一下。但是在jQuery來說確是很簡單的

我們有Style設定

<style>
.TrEven1{background-color:pink;}
.TrEven2{background-color:blue;color:white;}
</style>

在畫面中有兩個Table小喵用asp的方式表式：

table1
<table id="tbl1" border="1">
<%For y = 1 to 10%>
	<tr>
		<td><%=y%></td>
		<td>aa</td>
		<td>bb</td>
		<td>cc</td>
		<td>dd</td>
		<td>ee</td>
		<td>ff</td>
	</tr>
<%Next%>
</table>
table2
<table id="tbl2" border="1">
<%For y2 = 1 to 10%>
	<tr>
		<td><%=y2%></td>
		<td>aa</td>
		<td>bb</td>
		<td>cc</td>
		<td>dd</td>
		<td>ee</td>
		<td>ff</td>
	</tr>
<%Next%>
</table>

接著，先想像一下如果要用JavaScript要怎麼寫??然後再來看看用jQuery怎麼做

$(document).ready(function(){
	$('#tbl1 tr:even').addClass('TrEven1');
	$('#tbl2 tr:even').addClass('TrEven2');
})

看到了他的魔力了嗎??短短的一行【$('#tbl1 tr:even').addClass('TrEven1');】就可以處理了耶!!有沒有那種被【黯然消魂掌】擊中的感覺。

初體驗就到此先告一段落，有機會在跟網友們分享jQuery的語法與使用方式。在此先介紹個不錯的網站，可以把他當作是jQuery使用時的一個操作說明【http://jquery.org.cn/visual/cn/index.xml】

跨網站單一登入(Single Sign On)的作法概念

topcat — Thu, 03 Apr 2008 08:13:00 GMT

當我們開發了許多的Web應用系統後，如果使用者同時擁有多個Web應用程式的使用權限，而每個Web應用程式都有自己的登入帳號密碼，那麼對於使用者來說，有點麻煩，尤其是剛好設定的密碼又不同。

為了方便使用者的使用，因此會有【單一登入】的需求出現，只要登入一個應用程式後，要跳到別的Web應用程式，不需要再次輸入帳號密碼，可以直接就進行登入。但是為了考量安全性，還是要考量一下怎麼設計才能夠兼顧安全與便利。

小喵的方式是透過SQL來當作媒介，假設小喵要從WebA跳到WebB。
首先要準備一個兩個應用程式都能夠存取的資料庫。然後設計一個資料表來處理。這個資料表有以下幾個欄位

GUID:由NewId()產生出來類似【504B1790-E93A-4445-B262-E73A113BF336】這樣格式的資料
UserId:WebB的帳號，當然WebA與WebB可以用相通的帳號，或者是透過員工代號取得WebB的帳號
TimeOut:過期時間，產生該筆資料的時間+2分種。也就是從WebA到WebB的過程，小喵估計不會超過2分鐘，時間過期後該筆資料就沒用了。

接著就是運作的方式

步驟如下

WebA點選轉入WebB
寫入1筆過程資料，例如：5ED095B8-350D-42C3-953B-9C53DED54AFD,topcat,20080402165823
WebA Submit GUID給 WebB
WebB承接到GUID取回資料，並判斷現在時間沒有大於20080402165823
如果4.找不到，顯示錯誤並拒絕登入
如果4找到，進行登入程序
刪除該GUID資料

這過程中的時間，過期時間拉得越長越不安全。太短又容易失敗，所以大家自己斟酌。

由於GUID發生碰撞的機會很低，並且在加上過期時間的保護，小喵覺得應該還算安全，大家覺得怎麼樣再請大家給小喵一些建議

^_^

如何讓IE7中關閉瀏覽器不出現詢問

topcat — Mon, 31 Mar 2008 13:12:00 GMT

在IE7以前，要關閉瀏覽器不出現詢問的對話，用的是以下

window.opener=null;
window.close();

但是這個在IE7卻無效了，要改成用以下的方式

window.open('','_self','');
window.close();

解決ASP使用者無法安裝ActiveX元件問題(Object Tag的CodeBase屬性)

topcat — Mon, 10 Mar 2008 13:59:00 GMT

小喵之前遇到一個問題，使用者一直無法安裝小喵ASP中有用到ActiveX元件。

這個問題的有兩個方向要處理

1.將網站設為信任網站：

請使用者將小喵的網站設定為信任的網站，這樣可以排除掉因為IE的安全性設定導致的問題

2.把需要下載的CAB檔案放在Server上，並且在<Object>裡面設定CodeBase屬性

例如：小喵用了MSChart來顯示圖表，那麼就在畫面注<Object>裡面設定CodeBase如下：

<OBJECT classid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D"   codeBase="MSChrt20.cab#Version=6,0,81,77"     
  height=371   id=Chart   name=Chart   style="HEIGHT:   371px;   LEFT:   0px;   TOP:   0px;   WIDTH:   100%"     
  width="100%"></OBJECT>

註冊ICSharpCode.SharpZipLib.dll到作業系統中讓ASP可以透過COM+可呼叫

topcat — Tue, 26 Feb 2008 11:25:00 GMT

在之前的一篇使用自訂的類別透過SharpZip執行Zip壓縮、解壓縮(VB.NET) 小喵用一個類別把SharpZip做了一個包裝，讓使用上能夠更直觀。小喵心想如果能夠再把他寫成COM+元件的話，那麼就能夠讓ASP或者VB呼叫使用，可用範圍更擴大。

轉成COM+的元件需要一些額外的設定，這與一般COM+元件的寫法是一樣的，有需要的請參考這篇：

N-Tiers開發方式(如何使用VB.NET撰寫COM+元件)
N-Tiers開發方式(COM+元件的註冊、修改)

但是小喵遇到一個狀況，當小喵寫好的元件註冊後，要呼叫使用的時候卻出現以下的錯誤訊息

無法載入檔案或組件 'ICSharpCode.SharpZipLib, Version=0.85.4.369, Culture=neutral, PublicKeyToken=1b03e6acf1164f73' 或其相依性的其中之一。系統找不到指定的檔案。

原因在於ICSharpCode.SharpZipLib.dll沒有註冊到系統中，因此當小喵寫的COM+要呼叫該dll的時候，就找不到了。

因此必須在OS中把這個dll註冊。由於該dll並非COM+的dll，所以要用以下的方式來註冊

首先開啟Visual Studio 2005的命令提示字元(VS2005的命令視窗，需安裝SDK才有)，接著將ICSharpCode.SharpZipLib.dll複製到某個存放dll的資料夾，然後輸入以下的兩個指令：

RegAsm /tlb ICSharpCode.SharpZipLib.dll
GACUTIL /i ICSharpCode.SharpZipLib.dll

這樣會將該dll產生tlb並且註冊到GAC中。COM+就能夠正確的呼叫該dll並執行壓縮/解壓縮了。

小喵之後測試，在ASP中可以透過該COM+正確的壓縮/解壓縮檔案。這樣可以透過COM+讓ASP/ASP.NET/VB/VB.NET這些所開發的系統都能有壓縮/解壓縮的能力了。

解決ASP呼叫VB.NET撰寫的COM+元件沒有停止的問題

topcat — Tue, 22 Jan 2008 14:18:00 GMT

在新舊系統交替的尷尬期，本來的系統是
ASP-----COM+(VB6)-------DB
會變成
ASP/ASP.NET-----COM+(VB6/VB.NET)-----DB
這樣新舊混用的階段(系統龐大，不太可能全部改寫成.NET再上線)

在這樣的尷尬期裡，上次小喵提到在ASP.NET呼叫VB6/VB.NET所撰寫的元件，他的使用釋放方式是不同的。這次來聊聊用ASP呼叫新的VB.NET撰寫的元件的問題

其實啟動新舊元件的寫法是一模一樣的，最大的問題在於，ASP呼叫VB6的元件，當元件執行完後，會自動的釋放掉，但是用ASP呼叫VB.NET開發的元件，卻會讓元件在執行完成時，沒有完全的回收釋放。如果元件是讀取資料那還沒關係，慘的是如果呼叫的元件是維護資料，由於元件並沒有運轉完成並回收。因此整個維護時的Transaction並沒有釋放掉。這會造成其他的程式讀取資料時，因為還被Lock而一直等待著。

因此如果VB.NET所撰寫的元件必須要讓ASP或者VB6的元件呼叫的時候，就必須捨棄AutoComplete，並額外加入手動的SetComplete與SetAbort的動作，並停用AutoComplete。相關的程式碼請參考以下

Public Function ChgData(Byval Fld1 as String,Byval Key1 as String) As String Dim ConnStr as String = "連接字串" Using Conn as New SqlConnection(ConnStr) Try Dim SqlTxt as String = "Update Table1 Set Fld1=@Fld1 Where Key1=@Key1 " Dim Cmmd as New SqlCommand(SqlTxt,Conn) Cmmd.Parameters.AddWithValue("@Fld1",Fld1) Cmmd.Parameters.AddWithValue("@Key1",Key1) Cmmd.ExecuteNonQuery() Return "Success" ContextUtil.SetComplete() '增加這個手動的SetComplete Catch ex as Exception Return "False" ConTextUtil.SetAbort() '增加這個手動的SetAbort Throw New Exception(ex.Message) End Try End Using End Function

RecordSet轉DataSet

topcat — Fri, 24 Aug 2007 09:55:00 GMT

上一篇從DataSet轉Recordset後，接著就是另一個方向，從RecordSet轉DataSet

這個部份就沒有像上一篇那樣辛苦，可以直接透過DataAdapter的Fill來處理

程式需要Imports三個NameSpace
Imports ADODB
Imports System.Data
Imports System.Data.OleDb

相關的程式如下

Private Function Rs2Ds(ByVal Rs As Recordset) As DataSet Dim Da As New OleDbDataAdapter Da.Fill(Ds, Rs, "Table1") Return Ds End Function

DataSet轉RecordSet的Function

topcat — Fri, 24 Aug 2007 08:41:00 GMT

小喵目前正值.NET與ASP的混用期

因此目前撰寫的元件，可能會被以前的ASP程式呼叫到，於是這衍生了一個問題
以前的ASP看不懂DataSet，以前的VB6元件也看不懂DataSet

因此小喵寫了個小小的Function來轉換，相關程式碼如下

Public Function ChgDs2Rs(ByVal Ds As DataSet) As Object '************************************************************************* '** 撰寫者：撰寫日期：2007/6/4 '** 用途： 1.DataSet 轉 RecordSet '** 做法： '** 1. '** 注意事項： '** 1. '** 2. '** 維護記錄： '** 維護者：姓名(員工代號) 維護日期：日期 '** 維護項目： '** 1. '** 2. '** 做法： 1. '** 2. '** 注意事項： '** 1. '************************************************************************* Try Dim rs As Object = CreateObject("ADODB.Recordset") If Ds.Tables(0).Rows.Count > 0 Then Dim x, y As Integer Dim ColName As String = "" For x = 0 To Ds.Tables(0).Columns.Count - 1 ColName = Ds.Tables(0).Columns(x).ColumnName rs.Fields.Append(ColName, 200, 255) Next rs.Open() For y = 0 To Ds.Tables(0).Rows.Count - 1 rs.AddNew() For x = 0 To Ds.Tables(0).Columns.Count - 1 If IsDBNull(Ds.Tables(0).Rows(y).Item(x)) Then rs.Fields(x).Value = "" Else rs.Fields(x).Value = Ds.Tables(0).Rows(y).Item(x) End If Next Next End If Return rs Catch ex As Exception Throw New Exception(ex.Message.ToString) Finally 'Ds.Dispose() End Try End Function