Mail2000 for Googlebar的按鈕產生器

2007-02-13

用mail2000五、六年了，之前有個openbar的服務蠻好用的，可惜後來openfind做調整，把那項服務拿掉了(?)，幸好現在Googlebar可以自訂按鈕，因此寫了這個Mail2000按鈕
for Googlebar的產生器，分享給大家^^

Mail2000按鈕由此去!<<

ps:特別感謝前前室友魚缸，改掉我80%的code Orz，讓這個產生器可以順利產出(不愧是高應大資管所的研究”僧”啊!)

展開全文 >>

asp與Active Directory Server的互動

2006-12-29

工作上需要解AD Account被鎖住的Web介面，使用MS提供的ADSI元件可以很方便的存取AD Server，以下為程式

function logintest()
‘登入測試
if sUser “” then
set oADSI = GetObject(“WinNT:”)
on error resume next
set oIIS = oADSI.OpenDSObject(“WinNT://AD server名稱” , sUser, sPassword,0)
if err.number = 0 then
Response.Write “Logon OK.
“
else
Response.Write “Logon failed.
“
end if
end if
end function

function ChgPWD()
Dim obj
set oADSI = GetObject(“WinNT:”)
set obj = oADSI.OpenDSObject(“WinNT://AD server名稱/“&sAccount , sUser, sPassword,0)
‘原密碼,新密碼
obj.ChangePassword “原來的密碼”, “新的密碼”

response.write “密碼已更新”
end function

function listmem()
‘列出ad所有帳號
Dim obj
set oADSI = GetObject(“WinNT:”)
set obj = oADSI.OpenDSObject(“WinNT://AD server名稱”, sUser, sPassword,0)
for each aaa in obj
response.write aaa.name&”
“
next
end function

function SetPWD()
‘reset密碼
Dim obj
set oADSI = GetObject(“WinNT:”)
set obj = oADSI.OpenDSObject(“WinNT://AD server名稱/“&sAccount , sUser, sPassword,0)
obj.SetPassword “Kaubarcd0410”
end function

function setAccountDisable()
‘關掉該帳號
Dim obj
set oADSI = GetObject(“WinNT:”)
set obj = oADSI.OpenDSObject(“WinNT://AD server名稱/“&sAccount , sUser, sPassword,0)
obj.AccountDisabled = true
obj.SetInfo
response.write “ok”
end function

function unlock()
‘解除鎖定的帳號
Dim obj
set oADSI = GetObject(“WinNT:”)
set obj = oADSI.OpenDSObject(“WinNT://AD server名稱/“&sAccount , sUser, sPassword,0)
obj.IsAccountLocked = False
obj.SetInfo
response.write “ok”
end function

sUser=”AD server名稱/帳號名稱”
sPassword=”你的密碼”
‘要被作用的帳號=====
sAccount=”joe_huang”
‘===================

‘call listmem
call logintest
‘call SetPWD
‘call ChgPWD
‘call unlock

展開全文 >>

.net 2.0連結Mysql

2006-10-27

最近在GOdaddy租了.net的虛擬主機，規格不錯價格也划算
我租的是沒有MSsql的版本，只能用mysql或access
godaddy提供了OleDB和ODBC的方法供.net連結mysql，不過我都試不出來orz…
到google搜尋了一下，發現多數人都用mysql專為.net寫的driver來連mysql db
方法如下
1.在專案中建立/bin資料夾
2.將MySql.Data.dll放置/bin資料夾
3.在程式中引用MySql.Data.dll(vb寫法:)
以下是code

檔案:http://joehwang.myweb.hinet.net/xuite/DonetAndMysql.zip

<%@Page Language="VB" CodePage="65001" %>  
<%@Import Namespace = "MySql.Data.MySqlClient" %>  
<script runat="server">  
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)  
 Dim myConn As MySqlConnection  
 Dim myDataAdapter As MySqlDataAdapter  
 Dim myDataSet As Data.DataSet  
 Dim strSQL As String  
 '建立連接  
 myConn = New MySqlConnection("server=mysql213.secureserver.net; user id=joehwang; password=b0410; database=joehwang;CHARSET=big5")  
 myConn.Open()   
 Dim mycmd As MySqlCommand  
 mycmd = New MySqlCommand("Update member Set name = '一' where id = 1", myConn)  
 mycmd.ExecuteNonQuery()   

 strSQL = "Select * FROM member;"  
 myDataAdapter = New MySqlDataAdapter(strSQL, myConn)  
 myDataSet = New Data.DataSet  

 myDataAdapter.Fill(myDataSet, "mytable")  
 GridView1.DataSource = myDataSet.Tables("mytable").DefaultView  
 GridView1.DataBind()  
 myConn.Close()  

 End Sub  
</script>  

<html xmlns="http://www.w3.org/1999/xhtml" >  
<head runat="server" lang="zh-tw">  
 <title>未命名頁面</title>   
</head>  
<body>  
 <form id="form1" runat="server">  
 <div>  
 <asp:GridView ID="GridView1" runat="server" CellPadding="4" ForeColor="#333333" GridLines="None">  
 <FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />  
 <RowStyle BackColor="#E3EAEB" />  
 <EditRowStyle BackColor="#7C6F57" />  
 <SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />  
 <PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" />  
 <HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />  
 <AlternatingRowStyle BackColor="White" />  
 </asp:GridView>  
 <br />  
 測試   
 </div>  
 </form>  
</body>  
</html>

展開全文 >>

Flash跨網域讀取資料

2006-10-26

跨網域讀取資料
AS:

System.security.loadPolicyFile(“http://cn.english.tw/include/forfestival/crossdomain.xml“);
//跨網域原則檔案
//此swf網域為tw.english21.us要跨網域讀取cn.english21.us，因此在cn.english.tw/include/forfestival裡要放crossdomain.xml
//crossdomain.xml上記載允許讀取的domain

crossdomain.xml:
//星號代表該網域全部允許

展開全文 >>

偽．flash播放器

2006-10-13

想來想去還是這標題最貼切
工作上要用flash播放wma，不過flash不支援，所以就用ExternalInterface呼叫mediaplayer物件，利用mediaplayer本身提供的方法控制囉，也因為mediaplayer物件的關係所以不能支援firefox。

DEMO
Source

展開全文 >>

最近在學寫ASP.net，感覺不錯! 不過既然datagrid有支援分頁怎麼datalist不順便支援? ...

2006-10-02

最近在學寫ASP.net，感覺不錯!
不過既然datagrid有支援分頁怎麼datalist不順便支援?
流程是Sqldatasource控制項→PagedDataSource控制項→DataList控制項
參考”廖瑞奇站長的文章-用Repeater分頁”撰寫以下程式

範例:http://vip.blueshop.com.tw/joehwang/flower/default.aspx
下載:http://joehwang.myweb.hinet.net/xuite/page_datalist.zip

default.aspx

<%@ Page Language="VB" %>  

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  

<script runat="server">  

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)  
 Dim db1 As New SqlDataSource  
 db1.ProviderName = "System.Data.OleDb"  
 db1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|flower.mdb;"  
 db1.SelectCommand = "select * from [flowers_plants]"  
 Dim dv As Data.DataView = db1.Select(New DataSourceSelectArguments)  


 Dim Pgds As PagedDataSource = New PagedDataSource '//宣告PagedDataSource分頁物件  
 Pgds.DataSource = dv '//將DataView寫入PagedDataSource  
 Pgds.AllowPaging = True '//是否分頁屬性  
 Pgds.PageSize = 8 '//一頁顯示幾筆紀錄  
 Label1.Text = Pgds.PageCount.ToString() '//總頁數  

 '//如果Request("page")沒有頁數等於第一頁  
 Dim CurrentPage As Integer  
 If Not Request.QueryString("Page") Is Nothing Then  
 CurrentPage = Convert.ToInt32(Request.QueryString("Page"))  
 Else  
 CurrentPage = 1  
 End If  

 Pgds.CurrentPageIndex = CurrentPage - 1  
 Label1.Text = CurrentPage.ToString() '//目前的頁數  

 '//若有上一頁  
 If Not Pgds.IsFirstPage Then  
 lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurrentPage - 1)  
 End If  

 '//若有下一頁  
 If Not Pgds.IsLastPage Then  
 lnkNext.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurrentPage + 1)  
 End If  


 Me.DataList1.DataSource = Pgds '把分頁物件的資料丟給datalist1顯示  
 DataList1.RepeatColumns = 4'設定行數  
 DataList1.RepeatDirection = RepeatDirection.Horizontal  
 'Horizontal 清單的項目會由左而右，然後由上而下，以水平成列顯示，直到所有項目皆呈現。   
 ' GridView1.AutoGenerateColumns = True  
 Me.DataList1.DataBind()  

 Dim i As Integer  
 Dim oItem As New ListItem()  


 For i = 1 To (Pgds.PageCount)  
 oItem.Text = "第" & i & "頁"  
 oItem.Value = "default.aspx?page=" & i  
 ddlist1.Items.Insert(i, New ListItem(oItem.Text, oItem.Value))  

 Next i  
 End Sub  


 Protected Sub ddlist1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)  
 Label1.Text = ddlist1.SelectedItem.Value  
 Response.Redirect(ddlist1.SelectedItem.Value)  
 End Sub  
</script>  

<html xmlns="http://www.w3.org/1999/xhtml" >  
<head runat="server">  
 <title>未命名頁面</title>  
</head>  
<body>  
 <form id="form1" runat="server">  
 <div align=center>  
 &nbsp;<asp:DropDownList ID="ddlist1" runat="server" OnSelectedIndexChanged="ddlist1_SelectedIndexChanged" AutoPostBack="True">  
 <asp:ListItem Value="新增">請選擇</asp:ListItem>  

 </asp:DropDownList>  
 <asp:DataList ID="DataList1" runat="server" CellPadding="3" Width="152px" BackColor="#DEBA84" BorderColor="#DEBA84" BorderStyle="None" BorderWidth="1px" CellSpacing="2" GridLines="Both">  
 <ItemTemplate>  

 <a href="detail.aspx?id=<%# DataBinder.Eval(Container.DataItem, "fp_id") %>"><img src=small/<%# DataBinder.Eval(Container.DataItem, "s_file") %> /></a>   
</ItemTemplate>   
 <FooterStyle BackColor="#F7DFB5" ForeColor="#8C4510" />  
 <SelectedItemStyle BackColor="#738A9C" Font-Bold="True" ForeColor="White" />  
 <ItemStyle BackColor="#FFF7E7" ForeColor="#8C4510" />  
 <HeaderStyle BackColor="#A55129" Font-Bold="True" ForeColor="White" />  
 </asp:DataList></div>  
 <div align=center> 目前是第<asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>頁</div>  
 <div align=center>  
 <asp:HyperLink ID="lnkPrev" runat="server">上一頁</asp:HyperLink>  
 <asp:HyperLink ID="lnkNext" runat="server">下一頁</asp:HyperLink>  
 </div>  
 </form>  
</body>  
</html>

detail.aspx

<%@ Page Language="VB" %>  

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  

<script runat="server">  

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)  
 Dim id As Integer  
 id = Request.QueryString("id")  

 Dim db1 As New SqlDataSource  
 db1.ProviderName = "System.Data.OleDb"  
 db1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|flower.mdb;"  
 db1.SelectCommand = "select * from [flowers_plants] where fp_id= ? "  
 db1.SelectParameters.Add("fp_id", id)  
 Dim dv As Data.DataView = db1.Select(New DataSourceSelectArguments)  
 Me.FormView1.DataSource = dv  

 Me.FormView1.DataBind()  
 End Sub  


</script>  

<html xmlns="http://www.w3.org/1999/xhtml" >  
<head runat="server">  
 <title>未命名頁面</title>  
</head>  
<body>  
 <form id="form1" runat="server">  
 <div align=center>  
 <asp:FormView ID="FormView1" runat="server" BackColor="White" BorderColor="#DEDFDE" BorderStyle="None" BorderWidth="1px" CellPadding="4" ForeColor="Black" GridLines="Vertical">  
 <ItemTemplate>  

 <img src=small/<%# DataBinder.Eval(Container.DataItem, "s_file") %> /><br />  
 ID:  
 <asp:Label ID="fp_idLabel" runat="server" Text='<%# Bind("fp_id") %>'></asp:Label><br />  
 名稱：  
 <asp:Label ID="c_nameLabel" runat="server" Text='<%# Bind("c_name") %>'></asp:Label><br />  
 學名：  
 <asp:Label ID="e_nameLabel" runat="server" Text='<%# Bind("e_name") %>'></asp:Label><br />  
 家族：  
 <asp:Label ID="familyLabel" runat="server" Text='<%# Bind("family") %>'></asp:Label><br />  
 別名：  
 <asp:Label ID="aliasLabel" runat="server" Text='<%# Bind("alias") %>'></asp:Label><br />  
 科名：  
 <asp:Label ID="scientific_nameLabel" runat="server" Text='<%# Bind("scientific_name") %>'>  
 </asp:Label><br />  
 類別  
 <asp:Label ID="classLabel" runat="server" Text='<%# Bind("class") %>'></asp:Label><br />  

 </ItemTemplate>  
 <FooterStyle BackColor="#CCCC99" />  
 <EditRowStyle BackColor="#CE5D5A" Font-Bold="True" ForeColor="White" />  
 <RowStyle BackColor="#F7F7DE" />  
 <PagerStyle BackColor="#F7F7DE" ForeColor="Black" HorizontalAlign="Right" />  
 <HeaderStyle BackColor="#6B696B" Font-Bold="True" ForeColor="White" />  


 </asp:FormView>  

 </div>  
 </form>  
</body>  
</html>

展開全文 >>

用Javascript呼叫ActiveX(IE only)

2006-08-01

在MMUG上看到的，雖然會有安全性警告，不過還是可用!

原文:http://mmug.com.tw/forum/viewtopic.php?t=9142&sid=63b4762325a9e8c077bdd20fc4ab86f3

展開全文 >>

查詢時改變資料型態

2006-08-01

兩個資料表做join的時候，連接兩個資料表的欄位資料型態不同會發生錯誤，這時可用CONVERT(資料型態,要改變的欄位)來改變資料型態。

圖:

2008/6/5

也可以用CAST改變，效果相同

展開全文 >>

自訂停駐點位置

2006-07-19

有時按Tab鍵切換物件，希望自訂順序可用tabIndex指定，以下為範例

//creative三個文字框
this.createTextField(“a1”, this.getNextHighestDepth(), 10, 10, 130, 22);
a1.border = true;
a1.type = “input”;
a1.text=”我是a1，請點我開始”
this.createTextField(“a2”, this.getNextHighestDepth(), 10, 40, 130, 22);
a2.border = true;
a2.type = “input”;
a2.text=”我是a2”
this.createTextField(“a3”, this.getNextHighestDepth(), 10, 70, 130, 22);
a3.border = true;
a3.type = “input”;
a3.text=”我是a3”
//設定三個文字框focus順序
a1.tabIndex =1;
a2.tabIndex =3;
a3.tabIndex =2;

展開全文 >>

Flash取資料庫資料-以Loadvars及XML為例

2006-07-16

要以Flash顯示資料庫資料可用Loadvars或XML、Flash Remoting，在這以LoadVars、XML為例，LoadVars和XML運作原理大同小異，送參數觸發伺服器上的程式(ASP、PHP、JSP)連接資料庫。不同點僅在於傳回資料描述的方式不同，Loadvars用”變數=值&變數=值”…..變數中間以&符號連結
如:id=6&name1=Michael&address=**Coventry House Miner Rd.
**而XML當然以XML的方式描述，以下為範例:

Loadvars ASP-engine2.asp
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001”%>
‘隨機選題目並輸出為XML

<%
Response.Expires=-1500
Response.CacheControl=”no-cache”
‘禁止快取
id=request(“id”)
set rs=server.CreateObject(“ADODB.Recordset”)
if id=”” then’若沒帶參數過來便亂數取一筆record
sql=”select from Employees ORDER BY NEWID()”
else
‘取第三筆record
sql=”select from Employees where EmployeeID=”&id
end if
rs.Open sql , conn , 3 , 1
name=rs(“FirstName”)
response.write “id=”&rs(“EmployeeID”)&”&”
response.write “name1=”&rs(“FirstName”)&”&”
response.write “address=”&rs(“Address”)
rs.close
%>

Flash-a.swf

//準備一個按鈕並命名為star_btn三個動態輸入文字框變數設為id、name1、address  
//在第一個影格寫上  
star_btn.onPress=function(){   
 var loadasp:LoadVars=new LoadVars();  
 loadasp.onLoad=myfun;  
 loadasp.load("http://60.248.36.151/temp/joehwang/engine2.asp");  

 function myfun(){  
 trace("load ok");  
 trace(loadasp.name1);  
 id=loadasp.id;  
 name1=loadasp.name1;  
 address=loadasp.address;  
 }   
}

XML

asp-engine.asp

'與ajax連接資料庫範例相同  
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<%'隨機選題目並輸出為XML%>  
<!--#include file="connectDB.asp"-->  
<%  
Response.Expires=-1500  
Response.CacheControl="no-cache"  
'禁止快取  
id=request("id")  
set rs=server.CreateObject("ADODB.Recordset")  
if id="" then'若沒帶參數過來便亂數取一筆record  
 sql="select * from Employees ORDER BY NEWID()"  
else  
 '取第三筆record  
 sql="select * from Employees where EmployeeID="&id  
end if  
rs.Open sql , conn , 3 , 1  
Response.ContentType="text/xml"'將文件編碼指定為XML格式，asp產生xml格式時必加  
response.write "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"utf-8"&chr(34)&"?>"  
response.write "<areas>"  
response.write "<id>"&rs("EmployeeID")&"</id>"  
response.write "<name>"&rs("FirstName")&"</name>"  
response.write "<address>"&rs("Address")&"</address>"  
response.write "</areas>"  
rs.close  
%>

Flash-xmla.swf

//準備一個按鈕並命名為star_btn四個動態輸入文字框變數設為id、name1、address、loading  
//在第一個影格寫上  
star_btn.onPress=function(){  
 loading="loading.....";  
 var myxml:XML=new XML();  
 myxml.ignoreWhite=true;  
 myxml.onLoad=myfun;  
 myxml.load("http://60.248.36.151/temp/joehwang/engine.asp");   

 function myfun(){   
 id=myxml.firstChild.childNodes[0].childNodes[0];  
 name1=myxml.firstChild.childNodes[1].childNodes[0];  
 address=myxml.firstChild.childNodes[2].childNodes[0];  
 loading="";  
 }   
}

展開全文 >>