程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> ASP.NET >> ASP.NET基礎 >> 蛇年多屏圖片切換(可添加圖片鏈接以及編輯標題)

蛇年多屏圖片切換(可添加圖片鏈接以及編輯標題)

編輯:ASP.NET基礎
朋友要求,做一個多屏圖片切換效果,以作為網站廣告宣傳,剛開始聽到此要求時,心想一定很簡單照抄就行了。但是朋友還有進一步要求,是要在網站管理後統一管理,添加圖片,鏈接以及標題。還能編輯這些信息。前台不必在每次更新時,去修改前台代碼。

即然朋友有此要求,Insus.NET照做就是了。首先看看效果(今年是蛇年,剛好Windows 8 Themes也有幾張蛇圖片,因此拿它來做例子了。)

 
在數據庫創建一個表,來存儲相關信息,如圖片名稱,鏈接以及標題等:
復制代碼 代碼如下:
[dbo].[SwitchFocusNews]
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: Insus.NET
-- Create date: 2013-01-12
-- Description: 創建圖片切換信息表
-- =============================================
CREATE TABLE [dbo].[SwitchFocusNews]
(
[Nbr] TINYINT IDENTITY(1,1) PRIMARY KEY NOT NULL,
[ImageName] NVARCHAR(128) NOT NULL,
[Url] NVARCHAR(200) NOT NULL,
[Title] NVARCHAR(200) NOT NULL
)
GO

創建一個存儲過程,獲取所有記錄:
復制代碼 代碼如下:
[dbo].[usp_SwitchFocusNews_GetAll]
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: Insus.NET
-- Create date: 2013-01-12
-- Description: 獲取所有記錄
-- =============================================
CREATE PROCEDURE [dbo].[usp_SwitchFocusNews_GetAll]
AS
SELECT [Nbr],[ImageName],[Url],[Title] FROM [dbo].[SwitchFocusNews]
GO

網站後台上傳圖片,以及編輯功能,Insus.NET在此省略。

接下來,創建一個類別,此類別只有獲取數據庫表的信息,其它添加,編輯和刪除方法略。
復制代碼 代碼如下:
SwitchFocusNews
Imports System.Data
Imports Microsoft.VisualBasic
Namespace Insus.NET
Public Class SwitchFocusNews
Dim objBusinessBase As New BusinessBase()
Public Function GetAll() As DataTable
Return objBusinessBase.GetDataToDataSet("usp_SwitchFocusNews_GetAll").Tables(0)
End Function
End Class
End Namespace

為了以後維護方便,以及最小功能化的開發理念,Insus.NET把它寫成一個用戶控件ASCX,以下HTML代碼,重點是在<script>之間放了一個asp:Literal控件。還一點,就是css與js也是在此引用。
復制代碼 代碼如下:
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="FlashAnimation.ascx.vb" Inherits="AscxControls_FlashAnimation" %>
<link href='<%= ResolveUrl("~/FlashAnimation/css/lrtk.css")%>' rel="stylesheet" />
<script src='<%= ResolveUrl("~/FlashAnimation/js/pptBox.js")%>' ></script>
<div id="insus" >
<script>
<asp:Literal ID="LiteralSwitchImage" runat="server"></asp:Literal>
</script>
</div>

用戶控件cs代碼
復制代碼 代碼如下:
Imports System.Data
Imports Insus.NET
Partial Class AscxControls_FlashAnimation
Inherits System.Web.UI.UserControl
'實例化類別
Dim objSwitchFocusNews As New SwitchFocusNews()
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim objDataTable As DataTable = objSwitchFocusNews.GetAll()
'看看數據庫是否有記錄
If objDataTable.Rows.Count > 0 Then
Dim width As Integer = 500 '寬度
Dim height As Integer = 300 '高度
Dim autoPlayer As Integer = 3 '自動播放間隔時間
Dim si As New StringBuilder()
si.AppendFormat("var box = new PPTBox();")
si.AppendFormat("box.width = {0};", width)
si.AppendFormat("box.height = {0};", height)
si.AppendFormat("box.autoplayer = {0};", autoPlayer)
'循環數據表,把每一條記錄循環顯示以下面語法中。 圖片路徑正確是後台上傳或是編輯時存儲的路徑。當然你也可把存儲於數據的圖片顯示出來。
For Each dr As DataRow In objDataTable.Rows
si.AppendFormat("box.add({{ ""url"": ""{0}"", ""href"": ""{1}"", ""title"": ""{2}""}});", ResolveUrl("~/FlashAnimation/images/" & dr("ImageName").ToString() & ""), dr("Url").ToString(), dr("Title").ToString())
Next
si.Append("box.show();")
Me.LiteralSwitchImage.Text = si.ToString()
End If
End Sub
End Class
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved