分享使用微軟開發工具及工作上會遇到的疑難雜症
<%@ WebService Language="VB" Class="MenuPhotoWebService" %>
Imports System
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Linq
Imports AjaxControlToolkit
_
_
_
_
Public Class MenuPhotoWebService
Inherits System.Web.Services.WebService
_
Public Function GetSlides(ByVal contextKey As String) As AjaxControlToolkit.Slide()
Dim db As New vb.StarryNightDataClassesDataContext()
Dim mp = (From p In db.Menus_Photo _
Where p.mp_sm_Id = CType(contextKey, Integer) _
Select p).ToList()
If mp IsNot Nothing Then
Dim result As AjaxControlToolkit.Slide() = New AjaxControlToolkit.Slide() {}
Array.Resize(result, mp.Count)
Dim i As Integer = 0
For Each m In mp
result(i) = New AjaxControlToolkit.Slide("images/Menus/S" + m.mp_img_Name, "", "")
i += 1
Next
Return result
End If
Return Nothing
End Function
End Class
〈asp:Repeater ID="rpt_menu_detail" runat="server" DataSourceID="ods_menu_details"〉
〈ItemTemplate〉
〈asp:Image ID="imgLeft" ImageAlign="AbsMiddle" runat="server" CssClass="img-l" /〉
〈ajaxToolkit:SlideShowExtender ID="SlideShowExtenderLeft" runat="server" TargetControlID="imgLeft" SlideShowServiceMethod="GetSlides"
UseContextKey="true" ContextKey='〈%#Eval("sm_Id")%〉' SlideShowServicePath="~/MenuPhotoWebService.asmx" AutoPlay="true"
Loop="true" /〉
〈/ItemTemplate〉
〈/asp:Repeater〉
UseContextKey ContextKey 看出來了嗎^^...
Read more.
