if Request.ServerVariables("SERVER_SOFTWARE"） = "Microsoft-IIS/5.0" then
	'IIS 5.0程式 
else
	'IIS 4.0程式
end if

<% 
  '侦测使用者是（True）否（False）仍然连线
  If Response.IsClientConnected = False Then 
    '若未连线则取得SessionID，并加予处理
     Shutdown(Session.SessionID） 
  End If
%>

<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style="
width:100%;height:350"></object> 
<script language=vbs> Sub Window_OnLoad()
	Dim categories(3), values(3) 
建立具有二个数列和四季的直条图，用於显示每季的营业额净利 
建立代表类别的字串阵列。
所有二个数列的类别都一样。
	categories(0) = "Q1"
	categories(1) = "Q2"
	categories(2) = "Q3"
	categories(3) = "Q4" 
清除图形工作空间中的内容。这将移除任何既存图形，并彻底清空图形工作空间。
随後再新增一个图表物件。
	ChartSpace1.Clear
	ChartSpace1.Charts.Add
	Set c = ChartSpace1.Constants 
向图形中新增二个数列。
	ChartSpace1.Charts(0).SeriesCollection.Add
	ChartSpace1.Charts(0).SeriesCollection.Add  
第一个数列中包含每季的净利资料。
设定数列的标题（图例中显示的文字）。
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "净利" 
设定第一个数列的类别（此集合最小为零） 
ChartSpace1.Charts(0).SeriesCollection(0).SetData 
c.chDimCategories,c.chDataLiteral, categories 
	values(0) = 120 ' Q1
	values(1) = 150 ' Q2
	values(2) = 190 ' Q3
	values(3) = 250 ' Q4 
	ChartSpace1.Charts(0).SeriesCollection(0).Caption = "净利"
	ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 
c.chDataLiteral, categories
	ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 
c.chDataLiteral, values 
	' 第二个数列中包含每季的营业额资料。
	' 更新值阵列，然後设定图形资料。
	values(0) = 420 ' Q1
	values(1) = 500 ' Q2
	values(2) = 630 ' Q3
	values(3) = 940 ' Q4 
	ChartSpace1.Charts(0).SeriesCollection(1).Caption = "营业额"
	ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, 
c.chDataLiteral, categories
	ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, 
c.chDataLiteral, values 
	' 使图表图例可见，将左数值座标轴的格式设定为百分比， 
	' 并指定数值格线的间隔为10%。
	ChartSpace1.Charts(0).HasLegend = True
	ChartSpace1.Charts(0).Type = 0
	ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "000"
	ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 100
End Sub 
Sub next1()
if ChartSpace1.Charts(0).Type = 45 then		
	ChartSpace1.Charts(0).Type = 0
else	
	ChartSpace1.Charts(0).Type = ChartSpace1.Charts(0).Type + 1
end if
form1.bu1.value = "Type = " & ChartSpace1.Charts(0).Type
End Sub
</script> 
<form name=form1>
<input name=bu1 type=button value="Type = 0" onclick=next1()>
</form>

categories = "Q1" & Chr(9) & "Q2" & Chr(9) & "Q3" & Chr(9) & "Q4"

<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 
style="width:100%;height:350"></object>
<object id=ADOConnection1 classid=CLSID:00000514-0000-0010-8000-00AA006D2EA4></object> 
<script language=vbs> Sub Window_OnLoad()
    Dim rs, categories, values
    categories = ""
    values = "" 
    ' 开启连接并执行查询。
    ADOConnection1.Open "DRIVER={Microsoft Access Driver 
(*.mdb)};DBQ=c:\iis5samp\samples.mdb"
    Set rs = ADOConnection1.Execute("SELECT CustID,SellQty FROM ORDER1")
    rs.MoveFirst
    While Not rs.EOF
        categories = categories & rs.Fields(0).Value & Chr(9)
        values = values & rs.Fields(1).Value & Chr(9)
        rs.MoveNext
    Wend
    rs.Close
    ADOConnection1.Close
    
    ' 删除字元串末尾的额外定位字元。
    categories = Left(categories, Len(categories) - 1)
    values = Left(values, Len(values) - 1)
    
    ' 建立只有一个销售数列的图形。
    ChartSpace1.Clear
    ChartSpace1.Charts.Add
    ChartSpace1.Charts(0).SeriesCollection.Add
    ChartSpace1.Charts(0).SeriesCollection(0).Caption = "销售" 
    '使用根据记录集建立的字串设定数列类别和值。
    Set c = ChartSpace1.Constants
    ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 
c.chDataLiteral, categories
    ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 
c.chDataLiteral, values
    
    ' 设定图表类型并将座标轴设定为圆形。
    ChartSpace1.Charts(0).Type = 18
    'ChartSpace1.Charts(0).Axes(c.chAxisPositionBottom).NumberFormat = "$#,##0"
End Sub
</script>

<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 
style="width:100%;height:350"></object> 
<object id=Spreadsheet1 classid=CLSID:0002E510-0000-0000-C000-000000000046 
style="width:49%;height:350"></object> 
<script language=vbs> Sub Window_OnLoad()
    ' 先将资料放入 [Spreadsheet1] 中。
    Spreadsheet1.ActiveSheet.Cells.Clear
    Spreadsheet1.ActiveSheet.Cells(2, 1).Value = "Q1"
    Spreadsheet1.ActiveSheet.Cells(3, 1).Value = "Q2"
    Spreadsheet1.ActiveSheet.Cells(4, 1).Value = "Q3"
    Spreadsheet1.ActiveSheet.Cells(5, 1).Value = "Q4"    
    Spreadsheet1.ActiveSheet.Cells(1, 2).Value = "净利"
    Spreadsheet1.ActiveSheet.Cells(2, 2).Value = 100
    Spreadsheet1.ActiveSheet.Cells(3, 2).Value = 120
    Spreadsheet1.ActiveSheet.Cells(4, 2).Value = 134
    Spreadsheet1.ActiveSheet.Cells(5, 2).Value = 150    
    Spreadsheet1.ActiveSheet.Cells(1, 3).Value = "营业额"
    Spreadsheet1.ActiveSheet.Cells(2, 3).Value = 540
    Spreadsheet1.ActiveSheet.Cells(3, 3).Value = 670
    Spreadsheet1.ActiveSheet.Cells(4, 3).Value = 777
    Spreadsheet1.ActiveSheet.Cells(5, 3).Value = 989 
' 清除图形工作空间中的内容。这将移除任何既存图形，并彻底清空图形工作空间。
' 随後再新增一个图表物件。

ChartSpace1.Clear
ChartSpace1.Charts.Add
Set c = ChartSpace1.Constants 
    ' 将图形的DataSource属性设定为试算表。
    ' 可指定多个值源，但本范例只用一个。
    ChartSpace1.DataSource = Spreadsheet1
     ' 向图形中新增叁个数列。
    ChartSpace1.Charts(0).SeriesCollection.Add
    ChartSpace1.Charts(0).SeriesCollection.Add 
    ' 第一个数列中包含每季的净利资料。
    ' 请将数列名称、类别名称和数值结合起来。
    ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimSeriesNames, 0, "B1"
    ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, 0, "A2:A5"
    ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, 0, "B2:B5"
        ' 第二个数列中包含每季的营业额资料。
    ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimSeriesNames, 0, "C1"
    ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, 0, "A2:A5"
    ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, 0, "C2:C5" 
ChartSpace1.Charts(0).HasLegend = True
ChartSpace1.Charts(0).Type = 0
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "000"
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 100
End Sub 
Sub next1()
if ChartSpace1.Charts(0).Type = 45 then
	ChartSpace1.Charts(0).Type = 0
else
	ChartSpace1.Charts(0).Type = ChartSpace1.Charts(0).Type + 1
end if
form1.bu1.value = "Type = " & ChartSpace1.Charts(0).Type
End Sub
</script>
<form name=form1>
<input name=bu1 type=button value="Type = 0" onclick=next1()>
</form>

Set mail1 = Server.CreateObject("CDONTS.NewMail")
mail1.To = "收件者E-Mail位址"
mail1.From = "寄件者E-Mail位址"         
mail1.Subject = "主旨"
mail1.Body = "E-Mail内文"              
mail1.Send

<FORM Name=Form1 METHOD=GET ACTION="mail.asp">        
	收件人: <Input Type=Text VALUE="james@abc.net.tw" Name=to><br> 
寄件人: <Input Type=Text VALUE="jack@abc.net.tw" Name=from><br>
	主旨: <Input Type=Text VALUE="Say Hello!" Name=sub><br>
	内文: <TEXTAREA NAME=TEXT1>How are you?</TEXTAREA>
   	<INPUT Type=Submit Value="传送">                
</FORM> 
<%
if Request("Action") = "传送" then
	Set mail1 = Server.CreateObject("CDONTS.NewMail")
         
	mail1.To = Request("to")
	mail1.From = Request("from")          
	mail1.Subject = Request("sub")
	mail1.Body = Request("txt")
    	mail1.Send 
	Response.Write("e-mail已经传送.<br>")
end if 
%>

How are you?
Company: abc
Name: Tom
Addresss: 台北市
Tel: 1234-2545

<FONT COLOR="#FF8080">■ </FONT> <FONT COLOR="BLUE">传送资料库所有E-Mail</FONT><p>     
<form action="mail.asp" method="post">     
收件者: Customer资料库EMail栏位<BR>     
寄件者: <INPUT TYPE=TEXT NAME=FROM1 VALUE="jack@abc.net.tw" SIZE=30><BR>     
主旨: <INPUT TYPE=TEXT NAME=SUB1 VALUE="Say Hello!" SIZE=30><BR>     
内文: <TEXTAREA NAME=TEXT1 rows="1" cols="20">How are you?</TEXTAREA><BR>     
<INPUT TYPE=submit VALUE="Send All EMail" name= "Action">     
</form>     
<%     
IF Request("Action") = "Send All EMail" then     
  Set Conn = Server.CreateObject("ADODB.Connection")     
  Conn.Open "DBQ="& Server.MapPath("mail.mdb") &";Driver={Microsoft Access 
Driver (*.mdb)};FIL=MS Access;"      
  SQL = "SELECT * FROM Customer"     
  Set RS = Conn.Execute(SQL)        
  IF RS.EOF THEN      
  '找不到 !     
    response.Write "找不到资料库EMail栏位的收件者 !"     
  ELSE          
   Do While Not RS.EOF      
	Set mail1 = Server.CreateObject("CDONTS.NewMail")  
	mail1.To = RS("EMail")     
	mail1.From = Request("FROM1")               
	mail1.Subject = Request("SUB1")     
	Body = Request("TEXT1") & chr(10)     
    	Body = Body & "Company: " & RS("Company") & chr(10)     
    	Body = Body & "Name: " & RS("Name") & chr(10)     
    	Body = Body & "Addresss: " & RS("Address") & chr(10)     
    	Body = Body & "Tel: " & RS("Tel")     
	mail1.Body = Body                     
	mail1.Send     
	Set mail1 = nothing
    	response.Write "<BR>传送收件者 " &  RS("Name") & " " &  RS("EMail")         
   RS.MoveNext     
   Loop    	     
  END IF      
  RS.Close     
  Conn.Close      
	Response.Write("<p>已经传送资料库所有E-Mail.<br>")     
END IF     
%>

net start cisvc

set Q = Server.CreateObject("ixsso.Query")

set RS = Q.CreateRecordSet("nonsequential")

<%
if Request("Action") = "搜寻" then
    set Q = Server.CreateObject("ixsso.Query") 
    Q.Query = Request("SearchString")
    Q.SortBy = "rank[d]"
    Q.Columns = "DocTitle, vpath, filename, size, write, characterization, rank"
    Q.MaxRecords = 50 
    set RS = Q.CreateRecordSet("nonsequential") 
Response.Write "总计 " & RS.RecordCount & " 项<p>" 
%>
<% Do While Not RS.EOF %>
<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%> 
<a href="<%=RS("vpath")%>"><%= Server.HTMLEncode( RS("filename") )%>
</a> (<%= rs("rank") %>)
<%else%> <a href="<%=RS("vpath")%>"><%= Server.HTMLEncode(RS("DocTitle"))%></a> (<%= rs("rank") %>)
<%end if%>
<BR> 
<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%> 
摘要:<%= Server.HTMLEncode(RS("characterization"))%><br>
<%end if%> 
http://<%=Request("server_name")%><%=RS("vpath")%><br>
<%if not RS("size") = "" then%> size <%=RS("size")%> bytes - <%=RS("write")%> GMT
<%end if%>
<P>
<%
      RS.MoveNext
      Loop 
end if
%> 
<hr> 
<FORM ACTION="query1.asp" METHOD=POST> 搜寻字串:
<INPUT TYPE="TEXT" NAME="SearchString" SIZE="30" MAXLENGTH="100" VALUE="<%=Request("SearchString")%>"></TD>
<INPUT TYPE="SUBMIT" NAME="Action" 
VALUE="搜寻">
</FORM>

<%
FormformScopeope = "/"
PageSize = 10
SiteLocale = "EN-US" 
%>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
<%
NewQuery = FALSE
UseSavedQuery = FALSE
SearchString = "" 
QueryForm = Request.ServerVariables("PATH_INFO") 
'查询
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
        SearchString = Request("SearchString")
        FreeText = Request("FreeText") 
        if Request("Action") = "查询" then
            NewQuery = TRUE
            RankBase=1000
        end if
end if 
    '上下一页
if Request.ServerVariables("REQUEST_METHOD") = "GET" then
            SearchString = Request("searchString")
            FreeText = Request("FreeText")
            FormformScopeope = Request("formScope")
            RankBase = Request("RankBase")
        if Request("page") <> "" then
            NextPageNumber = Request("page")
            NewQuery = FALSE
            UseSavedQuery = TRUE
        else
            NewQuery = SearchString <> ""
        end if
end if
%> 
</HEAD><BODY> 
<% 
  if NewQuery then
    set Session("Query") = nothing
    set Session("Recordset") = nothing
    NextRecordNumber = 1 
    '移除查询字串前後的" 
        SrchStrLen = len(SearchString) 
        if left(SearchString, 1) = chr(34) then
                SrchStrLen = SrchStrLen-1
                SearchString = right(SearchString, SrchStrLen)
        end if 
        if right(SearchString, 1) = chr(34) then
                SrchStrLen = SrchStrLen-1
                SearchString = left(SearchString, SrchStrLen)
        end if 
    if FreeText = "on" then
      SearchString = "$contents " & chr(34) & SearchString & chr(34)
    end if 
    set Q = Server.CreateObject("ixsso.Query")
    set util = Server.CreateObject("ixsso.Util") 
    Q.Query = SearchString
    Q.SortBy = "rank[d]"
    Q.Columns = "DocTitle, vpath, filename, size, write, characterization, rank"
    Q.MaxRecords = 200 
    set RS = Q.CreateRecordSet("nonsequential") 
    RS.PageSize = PageSize
    ActiveQuery = TRUE 
  elseif UseSavedQuery then 
    if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then
      set Q = Session("Query")
      set RS = Session("RecordSet") 
      if RS.RecordCount <> -1 and NextPageNumber <> -1 then
        RS.AbsolutePage = NextPageNumber
        NextRecordNumber = RS.AbsolutePosition
      end if 
      ActiveQuery = TRUE
    else
      Response.Write "ERROR - No saved query"
    end if
  end if 
  if ActiveQuery then
    if not RS.EOF then
 %> 
<HR> 
<%
     LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
     CurrentPage = RS.AbsolutePage
     if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
           LastRecordOnPage = RS.RecordCount
     end if 
        if RS.RecordCount <> -1 then
            Response.Write "总计 " & RS.RecordCount & " 项" 
        end if 
        Response.Write " 符合查核字串 " & chr(34) & "<I>"
        Response.Write SearchString & "</I>" & chr(34) & ".<br>"
        Response.Write "第 " & NextRecordNumber & " 项到 " & LastRecordOnPage & " 项" 
 %> 
<% if Not RS.EOF and NextRecordNumber <= LastRecordOnPage then %>
<table border=0>
<% end if %> 
<% Do While Not RS.EOF and NextRecordNumber <= LastRecordOnPage %> <tr>
		<td valign=top align=right>
			<%= NextRecordNumber%>.
		</td>
		<td valign=top bgcolor="#DDFFFF"> 
	<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%>
		<a href="<%=RS("vpath")%>"><%= Server.HTMLEncode( RS("filename") )%>
< /a> (<%= rs("rank") %>)
	<%else%>
		<a href="<%=RS("vpath")%>"><%= Server.HTMLEncode(RS("DocTitle"))%>
</a> (<%= rs("rank") %>)
	<%end if%>
	</td>
	</tr> 
	<tr><td></TD>
		<td valign=top align=left>
	<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "
	" then%><Font color=blue>摘要:  </Font>
<%= Server.HTMLEncode(RS("characterization"))%> <%end if%>
			<br>
	<Font size=-1><i><a href="<%=RS("vpath")%>">
	http://<%=Request("server_name")%><%=RS("vpath")%></a>
       	<br><%if RS("size") = "" then%> (size and time unknown) 
<%else%>size <%=RS("size")%> bytes - <%=RS("write")%> GMT 
<%end if%></i></font> </td>
	</tr>
	<tr><TD> <br></TD>
	</tr> 
<%
          RS.MoveNext
          NextRecordNumber = NextRecordNumber+1
      Loop
 %> 
</table> 
<P><BR> 
<%
  else   
      if NextRecordNumber = 1 then
          Response.Write "找不到符合的项目<P>"
      else
          Response.Write "没有其他符合的项目<P>"
      end if 
  end if 
if Q.OutOfDate then %> <P><I><B>The index is out of date.</B></I><BR>
<%
end if 
if Q.QueryIncomplete then %>
<P><I><B>The query is too expensive to complete.</B></I><BR> 
<% 
end if 
if Q.QueryTimedOut then %> <P><I><B>The query took too long to complete.</B></I><BR>
<% end if %> 
<hr> 
第 <%=CurrentPage%> 页
<% if RS.PageCount <> -1 then
     Response.Write " 总计 " & RS.PageCount & "页"
  end if %> 
<TABLE> 
<%SaveQuery = FALSE%>
<%if CurrentPage > 1 and RS.RecordCount <> -1 then %> <td align=left>
    <form action="<%=QueryForm%>" method="get">
    <INPUT TYPE="HIDDEN" NAME="searchString" VALUE= "<%=SearchString%>">
    <INPUT TYPE="HIDDEN" NAME="FreeText" VALUE= "<%=FreeText%>">
    <INPUT TYPE="HIDDEN" NAME="formScope" VALUE="<%= FormformScopeope%>">
    <INPUT TYPE="HIDDEN" name="page" VALUE="<%= CurrentPage-1%>" >
	  <INPUT TYPE="HIDDEN" NAME = "RankBase" VALUE="<%= RankBase%>">
    <input type="submit" value="上一页 (前<%=RS.PageSize%>项)">
    </form>
    </td>
        <%SaveQuery = TRUE%> 
<%end if%> 
<% if Not RS.EOF then %> 
    <td align=right>
    <form action="<%=QueryForm%>" method="get">
    <INPUT TYPE="HIDDEN" NAME="searchString" VALUE="<%=SearchString%>">
    <INPUT TYPE="HIDDEN" NAME="FreeText" VALUE= "<%=FreeText%>">
    <INPUT TYPE="HIDDEN" NAME="formScope" VALUE= "<%=FormformScopeope%>">
    <INPUT TYPE="HIDDEN" NAME = "RankBase" VALUE= "<%=RankBase%>">
	 <INPUT TYPE="HIDDEN" name="page" VALUE= "<%=CurrentPage+1%>"> 
<% 
     if RS.RecordCount <> -1 then
         NextSet = (RS.RecordCount - NextRecordNumber) + 1
         if NextSet > RS.PageSize then
                 NextSet = RS.PageSize
         end if
         NextString = "下一页 (後" & NextSet & "项)"
     else
         NextString = "下一页"
     end if
%>
<input type="submit" value="<%=NextString%>">
</form>
</td>
<%SaveQuery = TRUE%>
<%end if%> 
</TABLE> 
<%
    if SaveQuery then 
        set Session("Query") = Q
        set Session("RecordSet") = RS
else 
        RS.close
        Set RS = Nothing
        Set Q = Nothing
        set Session("Query") = Nothing
        set Session("RecordSet") = Nothing
    end if
%>
<hr>
<% end if %> 
<FORM ACTION="<%=QueryForm%>" METHOD=POST>
<TABLE>
<TR><TD>查询字串:</TD></TR>
<TR>
<TD><INPUT TYPE="TEXT" NAME="SearchString" SIZE="30" MAXLENGTH="100"
VALUE="<%=SearchString%>"></TD> <TD><INPUT TYPE="SUBMIT" NAME="Action"
VALUE="查询"></TD>
</TR><TR>
</TR>
<TR>
<TD><INPUT NAME="FreeText" TYPE=CHECKBOX
<% if FreeText = "on" then 
Response.Write(" CHECKED") end if %> 
使用句子 (Free-Text) 查询</a></TD></TR>
</TABLE>
</FORM>