以下是使用 VB.NET 2005 所寫的 Web Sevices範例程式
- Service端程式
Imports System.WebImports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.io
Public Function GetPic(ByVal str As String) As Byte()
Dim filename As String = Me.Server.MapPath(".") & "\\" & str & "." & "Jpg"
Dim fs As FileStream = New FileStream(filename, FileMode.Open)
Dim br As BinaryReader = New BinaryReader(fs)
Dim pic As Byte() = br.ReadBytes(fs.Length)
br.Close()
fs.Close()
Return pic
End Function
-Client端程式
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As New WebReference2.Service
Dim STR As String = "123"
Dim path As String = Server.MapPath(".")
Dim msImage As MemoryStream = New MemoryStream(s.GetPic("2"))
Dim imgFile As Image = Image.FromStream(msImage)
ImgFile.Save(path + "\" + STR + ".jpg", ImageFormat.Jpeg)
Me.Image1.ImageUrl = "~/" & STR & ".jpg" '在Web上放入一個Image控制項來顯示所取回的圖片
imgFile.Dispose()
End Sub
上面的例子顛倒過來寫就是向服務端請求提供圖片的服務. 有空在繼續放.
要存檔處的資料夾 權限記得要打開給ASP.NET和本機使用儲存.
蔚華科擬配發股利2.8元 現金減資4成
一個具有鋼琴天份及過人智力的天才兒童，然而在他的內心卻渴望一種自由。從小就有獨立的個性與想法，時常利用爸爸發明的貓耳偷聽父母之間的對話，並且具叛逆的個性，讓他和同年齡的孩子們相處不來，聰明的腦袋也讓學校的老師們不願意指導他，儘管心中充滿萬般對於現實的無奈，爺爺卻一直扮演他好朋友的角色。 
總統大選 馬蕭配 開票可能結果：
權杖騎士（正位）
從牌的觀點來看，似乎是馬蕭的勝算稍高，但是雙方開票差距應該不大。主要是因為審判牌逆位，代表的是一種行動和內心不互相呼應的結果，經歷過太陽牌以後，好像看見曙光到來了，就在即將面對結果審判之際，卻必須要開始為之前的行為做出負責，這在暗示甚麼不太清楚，不過之前談話上確實常常反覆，也許謝的心中真的是想要和解共生，但是基於選情不得不另有所圖。
權杖騎士是一個充滿活力熱情，並且不斷去挑戰的牌，全神貫注去追求的態度，並且朝目標不斷邁進，同時也是處於一種勞碌奔波的狀態，看見最近馬英九因為感冒還要趕場的情景，就直覺到這張牌，就算再累也要繼續努力下去，騎士騎者白馬似乎表示暗示者，尚未登基積極努力學習朝向王位邁進的王子。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＊以上僅供參考，對於政治，真的看看就好不要太認真，不然很容易歇斯底里。
此錯誤為
１.先檢查Command所下的SQL指令中是否每個參數前方都有加入冒號，如：Insert into member(member_id)values(:member_id)
2.接下來檢查是否每個Parameter所載入的位置都正確。不僅僅是順序，不能夠有多一個參數或是少一個參數，否則都會造成錯誤，例如下：
# VB.NET Code
Dim cmdQuery As String
cmdQuery = "INSERT INTO
EXAM_QUESTION
(EXAM_QUESTION_NO,EXAM_QUESTION_CONTEXT,SELECTION_1,SELECTION_2,
SELECTION_3,SELECTION_4,EXAM_ANS,EXAM_SCOPE_ID,TEACHER_ID)
VALUES('B0000001',:A,:B,:C,:D,:E,:F,:G,:H)"
Dim cmd As OracleCommand = New OracleCommand
cmd.Connection = con
cmd.CommandText = cmdQuery
Dim p2 As OracleParameter = New OracleParameter("A", OracleDbType.Varchar2, 500)
p2.Direction = Data.ParameterDirection.Input
p2.Value = EQ.ExamQuestionContext
cmd.Parameters.Add(p2)
Dim p3 As OracleParameter = New OracleParameter("B", OracleDbType.Varchar2, 100)
p3.Direction = Data.ParameterDirection.Input
p3.Value = EQ.Selection1
cmd.Parameters.Add(p3)
Dim p4 As OracleParameter = New OracleParameter("C", OracleDbType.Varchar2, 100)
p4.Direction = Data.ParameterDirection.Input
p4.Value = EQ.Selection2
cmd.Parameters.Add(p4)
Dim p5 As OracleParameter = New OracleParameter("D", OracleDbType.Varchar2, 100)
p5.Direction = Data.ParameterDirection.Input
p5.Value = EQ.Selection3
cmd.Parameters.Add(p5)
Dim p6 As OracleParameter = New OracleParameter("E", OracleDbType.Varchar2, 100)
p6.Direction = Data.ParameterDirection.Input
p6.Value = EQ.Selection4
cmd.Parameters.Add(p6)
Dim p7 As OracleParameter = New OracleParameter("F", OracleDbType.Varchar2, 5)
p7.Direction = Data.ParameterDirection.Input
p7.Value = EQ.ExamAns.ToString
cmd.Parameters.Add(p7)
Dim p8 As OracleParameter = New OracleParameter("G", OracleDbType.Varchar2, 10)
p8.Direction = Data.ParameterDirection.Input
p8.Value = ES.ExamScopeID
cmd.Parameters.Add(p8)
Dim p9 As OracleParameter = New OracleParameter("H", OracleDbType.Varchar2, 10)
p9.Direction = Data.ParameterDirection.Input
p9.Value = T.TeacherID
cmd.Parameters.Add(p9)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
丑角的天空 Copyright © 2007-2009 Green Scrapbook Diary Designed by SimplyWP | Made free by Scrapbooking Software | Bloggerized by Ipiet Notez
