XiaoLian

AJAX會去抓取ASP response.write出來的訊息. 以血型為例：選擇任一血型,會秀出該血型特徵 JavaScript : <script type="text/javascript"> function showBlood(str) { var xmlhttp;    if (str=="")   {   document.getElementById("txtHint").innerHTML="";   return;   } if (window.XMLHttpRequest)   { // code for IE7+, Firefox, Chrome, Opera, Safari   xmlhttp=new XMLHttpRequest();   } else   { // code for IE6, IE5   xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");   } xmlhttp.onreadystatechange=function()   {   if (xmlhttp.readyState==4 && xmlhttp.status==200)     {     document.getElementById("txtHint").innerHTML=xmlhttp. responseText;     }   } xmlhttp.open("GET","getboold.asp?q="+str,true); xmlhttp.send(); } </script> 部分HTML : <form action=""> 血型 : <select name="BloodType" onchange=" showBlood(this.value) "> <option value="">請選擇</option> <option value="A"...

利用簡單的方式輕鬆讀取文字檔內容，不過會忽略換行符號，也就是說在文字檔內，按下Enter換行會被忽略之。不過可以下HTML語法來做些變化，Ex: 換行<BR/> ; 字型粗體<b>等等。 文字檔內容 : JavaScript : <script type="text/javascript"> function loadXMLDoc() { var xmlhttp; if (window.XMLHttpRequest)   { // code for IE7+, Firefox, Chrome, Opera, Safari   xmlhttp=new XMLHttpRequest();   } else   { // code for IE6, IE5   xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");   } xmlhttp.onreadystatechange=function()   {   if (xmlhttp.readyState==4 && xmlhttp.status==200)     {     document.getElementById("myDiv").innerHTML= xmlhttp. responseText ;     }   } xmlhttp.open("GET","ajax_info.txt",true); xmlhttp.send(); } </script> 部分HTML ： <div id="myDiv"><h2>Let AJAX change this text</h2></div> <button type="button" onclick=" loadXMLDoc() ">Change Content</button> 執行畫面 : 

<script type="text/javascript"> var xmlhttp; function loadXMLDoc() {    //判斷瀏覽器   if (window.XMLHttpRequest)   {  // code for IE7+, Firefox, Chrome, Opera, Safari      xmlhttp=new XMLHttpRequest();   }   else   {  // code for IE6, IE5      xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");   }   //等待   document.getElementById("myDiv").innerHTML="讀取中...";     //載入   xmlhttp.open("GET","cd.xml",true);   //處理   xmlhttp.onreadystatechange=function(){ handleStateChange() ; };   //設定表頭   xmlhttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded;charset=utf-8")   //傳送   xmlhttp.send(); } function handleStateChange()  //處理動作--讀取XML {    // readyState: 4 代表 request finished and response is ready    // status: 200 代表 Ok  if (xmlhttp.readyState==4 && xmlhttp.status==200)  {    ...

將資料庫內容匯出存成XML <%      session("dsn")="dsn=workflow;uid=sa;pwd=SQLsys"    set rs=server.CreateObject ("adodb.recordset")    sqlstr="select ref,category,title,artist from dbo.Albums"    rs.Open sqlstr,session("dsn"),3,1,1    if not rs.EOF then        Set xml= server.CreateObject("Microsoft.XMLDOM")               xml. load ( server.MapPath ("albums.xml"))          'root node 根節點           Set Element=xml. createelement ("Albums")            do while not rs.EOF           'child nodes 子節點--(專輯)           Set e2=xml. createElement ("Album")                 ...

<%      Set fs = CreateObject ("Scripting.FileSystemObject")        file_name="member.txt"    '讀檔    Set f = fs.OpenTextFile( server.MapPath (file_name),1, true )          '方式一     'do while f. AtEndOfLine <>true          '方式二     do while not f. AtEndOfStream        response.Write f.ReadLine        Response.Write("<br />")     loop    f.close    set f=Nothing    set fs=Nothing  %>  PS: server.MapPath 一定要加入,否則會出現錯誤訊息        Microsoft VBScript 執行階段錯誤 錯誤 '800a0046'         沒有使用權限         方式一及方式二 擇一即可    參考資料：    http://www.w3schools.com/asp/asp_ref_textstream.asp    屬性及方法 ...

將資料庫的內容匯出到文字檔內 <%     session("dsn")="dsn=workflow;uid=sa;pwd=SQLsys"    set rs=server.CreateObject ("adodb.recordset")    sqlstr="select id,nickname,firstname from dbo.USERS"    rs.Open sqlstr,session("dsn"),3,1,1      dim id,nickname,firstname      Set fs = CreateObject ("Scripting.FileSystemObject")        file_name="member.txt"    '寫檔 方式一     Set ts = fs.CreateTextFile( Server.MapPath (file_name),True )            '寫檔 方式二    'Set ts=fs.OpenTextFile( Server.MapPath (file_name),8,true)    if not rs.EOF then        '寫入欄位名稱        ts.WriteLine (rs.Fields("id").Name & "   " & rs.Fields("Nickname").Name & "  " & rs.Fields("firstname").Name )        ts.WriteLine ("------------...

XML內容 <?xml version="1.0" encoding="utf-8" ?> < People >    <person id="1" dep="行政">        <name>Jason</name>        <mobile>0911222333</mobile>    </person>    <person id="2" dep="財務">        <name>Amy</name>        <mobile>0922456333</mobile>    </person>    <person id="3" dep="資訊">        <name>Alex</name>        <mobile>0945886333</mobile>    </person> </ People > 程式碼 <script type ="text/javascript"> function loadXML(xmlFilePath)   //載入XML {              if(window.ActiveXObject) // code for IE      {     ...

XML內容 ： <xml masterProduct="12345"> < Form vConnectStr="DSN=forms;UID=sa;PWD=SQLxml;" vTableName="BOM"  vFormName="bom.htm" vIndex="id=812">BOM 資料連線</ Form > < product1 mainProduct="yes" >    <color>Red</color>    <price>23.99</price>    <pname>LED燈泡</pname> </ product1 > <product2 productID="P0002"></product2> <product3 productID="P0003"></product3> </xml> 程式碼： <%     dim strPath     set xmlobj= server.createobject("Microsoft.XMLDOM ")     'xml路徑檔名     strPath = "xml.xml"     xmlobj.load Server.MapPath(strPath)  '載入XML       set root=xmlobj. documentElement     set forms=root. selectNodes (" //xml/Form ")  'multi node      'set forms=root.selectNodes("//Form")  省略XML也OK       ...

用最簡單的方式, 將Table內容匯出到Excel中, 以下範例參考之 ! <% Response.Clear() Response.ContentType= "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;FileName= people.xls " result="<html>" result=result & "<body>" result=result & "<table border='1'  width='300'>" result=result & "<tr><td width='25%'>編號</td><td width='25%'>姓名</td><td width='50%'>出生地</td></tr>" result=result & "<tr><td width='25%'>A01</td><td width='25%'>Amy</td><td width='50%'>台北市</td></tr>" result=result & "<tr><td width='25%'>A02</td><td width='25%'>Bob</td><td width='50%'>台中市</td></tr>" result=result & "<tr><td width='25%'...

<script language="JavaScript"> function saveToExcel(str) {    try {       var xls = new ActiveXObject("Excel.Application");       xls.Visible = true;    }    catch(e) {       alert("開啟失敗，請確定你的電腦已經安裝excel，且瀏覽器必須允許ActiveX控件執行");       return;    }    var objTable = document.getElementById(str);    var xlBook = xls.Workbooks.Add;    var xlsheet = xlBook.Worksheets(1);    for (var i=0;i<objTable.rows.length;i++)       for (var j=0;j<objTable.rows[i].cells.length;j++)          xlsheet.Cells(i+1,j+1).value = objTable.rows[i].cells[j].innerHTML; } </script> 部分HTML（參考） <table border="1" cellpadding="0" cellspacing="0"  width="350" id=" table1 ">   <tr>     <td width="25%">學號</td>  ...

有時候因為需求上的關係，需要固定的日期長度， 而ASP內建的FormatDateTime函數，無法滿足其需求，於是做了些改變 以今天日期為範例(2012/3/16)，使用 NOW函數 【 也可以使用其他日期格式的變數取代之 】 <% date1= trim(cstr(year( now() ))) & "/" & right("0" & trim(cstr(month( now() ))),2) & "/" & right("0" & trim(cstr(day( now() ))),2) date2=FormatDateTime(now(),2)    response.write "今天日期(yyyy/MM/dd) : " & date1 response.write "<BR/>" response.write "今天日期(yyyy/M/d) : " & date2 %>    執行結果： 今天日期(yyyy/MM/dd) : 2012/03/16 今天日期(yyyy/M/d) : 2012/3/16

觀念 : 利用程式化方式，將冗長SQL字串做有效率的處理，易於管理維護及彈性重覆使用 作法 : 找出共同規則及相似語法，搭配迴圈及變數，並使用 print 方式輸出變數於畫面上，            以方便Debug，最後拼出完整SQL字串，用 Execute 執行產生結果 範例 : 列出該年度內公司同仁特休統計分析            粉紅色框框是說明兩者相同之處            Print 說明SQL字串最後呈現與一般傳統寫法相同            Execute 兩者執行結果相同 程式化寫法 : 一般傳統寫法 : 執行結果 :

語法: Case when 欄位=值1 then 文字1 when 欄位=值2 then 文字2 else null End Ex: SELECT T0.[U_EmpID], T0.[firstName], Case when T0.Sex='F' then '女' when T0.Sex='M' then '男' else null End as N'性別', Case when  T0.martStatus='S' then '未婚' when T0.martStatus='M' then '已婚' else null End as N'婚姻狀態' , Case when   T0.dept=-2 then '管理部' when T0.dept = 4 then '業務一部'  when T0.dept=5 then '業務二部'            when T0.dept=6 then '資材部' when T0.dept=7 then '研發部' when T0.dept=8 then '工程部'            when T0.dept=9 then 'FAE' when T0.dept=11 then '中國業務部' else null End as N'部門',  Case when   T0.Status=1 then '外調' when T0.Status=2 then '在職' when T0.Status=3 then '離職'             when T0.Status=4 then '考核' else null End as N'就職狀態' FROM OHEM T0 WHERE T0.citizenshp = 'CN'  and T0.Stat...

觀念一:在SQL語法內加入一筆空白Item  SqlStr="select  0 as 縣市代號,'請選擇' as 縣市名稱 from dbo.縣市 " & _              " UNION " & _               "select 縣市代號,縣市名稱 from dbo.縣市 " & _              "order by  縣市代號,  縣市名稱 desc" 說明：第一句"select" 代表新增空白列              利用 UNION 方式將兩個Table合在一起             "order by"視情況而定不一定要加；為了要讓空白列放在第一筆 觀念二:在控制項內加入一筆空白Item If IsPostBack = False Then             With DropDownList1                 .DataSource = SqlDataSource1   '資料來源可以 DataTable, DataView 格式            ...

1.首先要引入 Imports OWC11 Imports MSComctlLib 2.接著 放一個 PictureBox 在頁面上 3. 傳入DataTable格式 本範例-- 統計1~12月消費總計 欄位有 月份及總計 dt： 月份 總計 1 77 2 153 3 100 4 95  以下省略 4.呼叫 GetGDPChartLong(dt, "支出", "金額") 表格內容--> dt 圖標題  --> "支出" Y軸標題 --> "金額" 長條圖---副程式： #Region "長條圖"     Sub GetGDPChartLong(ByVal TempDt As Data.DataTable, ByVal DepName As String, ByVal angeName As String)         Dim strXdata As String = [String].Empty         Dim strYdata As String = [String].Empty         'Dim strZdata As String = [String].Empty         'Dim strWdata As String = [String].Empty         'X軸月份           For i As Integer = 0 To TempDt.Rows.Count - 1             If i = TempDt.Rows.Count - 1 Then     ...

首先要引入 Imports System.Security.Cryptography Imports System.Text 編碼函式：     Public Function Encrypt (ByRef Data As String) As String         Dim sha As New SHA1Managed         Convert.ToBase64String(sha.ComputeHash(Encoding.UTF8.GetBytes(Data)))         Dim encData() As Byte = ASCIIEncoding.UTF8.GetBytes(Data)         Dim encStr As String = Convert.ToBase64String(encData)         Encrypt = encStr     End Function 解碼函式：      Public Function Decrypt (ByRef Data As String) As String         Dim decData() As Byte = Convert.FromBase64String(Data)         Dim decStr As String = ASCIIEncoding.UTF8.GetString(decData)         Decrypt = decStr     End Function 執行測...

連接 SQL Server 方式一: .NET Framework Data Provider for SQL Server Type: .NET Framework Class Library Usage: System.Data.SqlClient.SqlConnection Manufacturer: Microsoft Ex1: Data Source=192.168.0.1;Initial Catalog=testDB;User Id=sa;Password=12345; Ex2: Server=192.168.0.1;Database=testDB;User ID=sa;Password=12345;Trusted_Connection=False; 方式二(SQL Server 2008 Express): SQL Server Native Client 10.0 OLE DB Provider Type: OLE DB Provider Usage: Provider=SQLNCLI10 Manufacturer: Microsoft Ex: Provider=SQLNCLI10;Server=192.168.0.1;Database=testDB;Uid=sa; Pwd=12345; ------------------------------------------------------------------------------------------------ 連接 Access 方式一(*.accdb): ACE OLEDB 12.0 Type: OLE DB Provider Usage: Provider=Microsoft.ACE.OLEDB.12.0 Manufacturer: Microsoft Ex: Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\db\myAccess.accdb;Persist Security Info=False; 方式二(*.mdb, *.accdb): Microsoft Access accdb ODBC Driver Type: ODBC Driver Usage: Driver={Microsoft Access Driver (*...