.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用ASP、NET开发下载系统(二)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

ASPNET开发下载系统()

 

中间层Web Service

总体概括

中间层主要是数据库与前台界面的交互桥梁,DownWebService

主要提供以下方法;

    '----------------------------------------------------------------

    '得到下载的分类GetDownClass

    '得到下载的所有信息GetDownInfo

    'ID得到下载的信息,结果为一条记录GetDownFromID

    '更新下载次数UpdateTotalDown

    '----------------------------------------------------------------

我们建立了一个通用的类DataBase.vb 来进行通用的数据库操作,这些代码是我们通常都要用到的,所以我们封装到了一起。

数据库连接字符串存储在Web.config中:

   <appSettings>

       <add key="connString" value="Password=sa;User ID=sa;Initial Catalog=Northwind;Data Source=pmserver;Packet Size=4096"></add>

    </appSettings>

 

 

 

DataBase.vb

 

 

Imports System.Configuration

Imports System.Data

Imports System.Data.SqlClient

 

Public Class DataBase

    '----------------------------------------------------------------

    ' Sub  ExecuteReDS:

    '         Used for query operations

    ' Return:   result in a dataset

    ' Parameters:

    '   [in]  cmdText: Sql or Sp name.

    '----------------------------------------------------------------

    Public Shared Function ExecuteReDS(ByVal cmdText As String) As DataSet

        Dim connString As String = ConfigurationSettings.AppSettings("connString")

        Dim conn As New SqlConnection(connString)

        Dim adp As SqlDataAdapter = New SqlDataAdapter(cmdText, conn)

        Dim ds As DataSet = New DataSet("tb")

        Try

            adp.Fill(ds)

        Catch e As Exception

            Throw e

        Finally

            conn.Close()

        End Try

        Return ds

    End Function

 

    '----------------------------------------------------------------

    ' Sub  ExecuteReDV:

    ' Return:   result in a DataView

    ' Parameters:

    '   [in]  cmdText: Sql or Sp name.

    '----------------------------------------------------------------

    Public Shared Function ExecuteReDV(ByVal cmdText As String) As DataView

        Dim connString As String = ConfigurationSettings.AppSettings("connString")

        Dim conn As New SqlConnection(connString)

        Dim adp As SqlDataAdapter = New SqlDataAdapter(cmdText, conn)

        Dim dv As DataView

        Dim dt As DataTable

        Try

            adp.Fill(dt)

            dv = dt.DefaultView

        Catch e As Exception

            Throw e

        Finally

            conn.Close()

        End Try

        Return dv

    End Function

 

    '----------------------------------------------------------------

    ' Sub  ExecuteSQL:

    '         Execute SQL

    ' Return:   True or False

    ' Parameters:

    '   [in]  cmdText: Sql or Sp name.

    '----------------------------------------------------------------

    Public Shared Function ExecuteSQL(ByVal cmdText As String) As Boolean

        Dim connString As String = ConfigurationSettings.AppSettings("connString")

        Dim conn As New SqlConnection(connString)

        conn.Open()

        Dim cmd As New SqlCommand(cmdText, conn)

        Try

            cmd.ExecuteScalar()

        Catch e As Exception

            Return False

            Throw e

        Finally

            conn.Close()

        End Try

        Return True

    End Function

 

End Class

 

 

 

 

 

 

 

WebService

DownWebService.asmx.vb

 

Imports System.Web.Services

Imports System.Configuration

Imports System.Data

Imports System.Data.SqlClient

 

<WebService(Namespace:="http://tempuri.org/")> _

Public Class DownWebService

    Inherits System.Web.Services.WebService

 

#Region " Web 服务设计器生成的代码 "

 

    Public Sub New()

        MyBase.New()

 

        '该调用是 Web 服务设计器所必需的。

        InitializeComponent()

 

        ' InitializeComponent() 调用之后添加您自己的初始化代码

 

    End Sub

 

    'Web 服务设计器所必需的

    Private components As System.ComponentModel.IContainer

 

    '注意:以下过程是 Web 服务设计器所必需的

    '可以使用 Web 服务设计器修改此过程。

    '不要使用代码编辑器修改它。

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        components = New System.ComponentModel.Container()

    End Sub

 

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        'CODEGEN: 此过程是 Web 服务设计器所必需的

        '不要使用代码编辑器修改它。

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

 

#End Region

 

    Public SQL_DOWN_SELECT As String = "SELECT Down.ID,Down.title,Down.description,Down.filename,Down.uploadtime, Down.totaldown, DownClass.classname FROM dbo.Down INNER JOIN dbo.DownClass ON dbo.Down.classID = dbo.DownClass.id"

    Public SQL_DOWN_Update As String = "update down set totaldown=totaldown+1 "

    Public SQL_DOWN_CLASS As String = "SELECT * from downclass "

 

    '----------------------------------------------------------------

    '得到下载的分类

    '----------------------------------------------------------------

    <WebMethod()> Public Function GetDownClass() As DataSet

        Return DataBase.ExecuteReDS(SQL_DOWN_CLASS)

    End Function

 

    '----------------------------------------------------------------

    '得到下载的所有信息

    '----------------------------------------------------------------

    <WebMethod()> Public Function GetDownInfo() As DataSet

        Return DataBase.ExecuteReDS(SQL_DOWN_SELECT)

    End Function

 

    '----------------------------------------------------------------

    'ID得到下载的信息,结果为一条记录

    '----------------------------------------------------------------

    <WebMethod()> Public Function GetDownFromID(ByVal ID As Integer) As DataSet

        Return DataBase.ExecuteReDS(SQL_DOWN_SELECT & " where dbo.Down.id= " & ID)

    End Function

 

    '----------------------------------------------------------------

    '更新下载次数

    '----------------------------------------------------------------

    <WebMethod()> Public Function UpdateTotalDown(ByVal ID As Integer) As Boolean

        Return DataBase.ExecuteSQL(SQL_DOWN_Update & " where id= " & ID)

    End Function

 

End Class

 

--------------------------------------------------------------------------

Author : lihonggen0

个人专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/

如需引用,请指明出处!软件的目的在于应用,本文可自由转载!

--------------------------------------------------------------------------

 




相关文章

相关软件