用ASP、NET开发下载系统(二)

原创 2003年07月07日 09:47:00

ASPNET开发下载系统()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

中间层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>

 

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />CSDN_Dev_Image_2003-7-21653590.jpg

 

 

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/

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

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

 

ASP.NET文档管理系统(功能强大且实用)

ASP.NET文档管理系统(功能强大且实用),可以从中学习登录、操作日志,文档上传下载管理,审批流程及管理等等知识。...
  • yangyisen0713
  • yangyisen0713
  • 2016年09月29日 21:36
  • 8129

ASP.NET车辆管理系统

ASP.NET车辆管理系统
  • yangyisen0713
  • yangyisen0713
  • 2015年06月23日 15:27
  • 4693

ASP.NET在线考试系统+文档说明

ASP.NET在线考试系统文档说明
  • yangyisen0713
  • yangyisen0713
  • 2016年01月29日 09:19
  • 2701

ASP.NET系统开发(二):漫话级联删除“三剑客”

在数据库中我们所面对的绝大多数都是关联表,表与表之间通过外键相互关联成一个“联盟”,在我们对数据表中的数据进行删除操作时往往会因为外键的作用牵一发而动全身,使得操作失败。说到这我们首先简单的来了解一下...
  • a1314517love
  • a1314517love
  • 2012年07月23日 08:57
  • 4729

马军著精通ASP.NET 2.0网络应用系统开发 随书光盘完整下载

  • 2009年03月14日 15:52
  • 12.71MB
  • 下载

通用型全能后台系统 ASP.NET C# 源码下载

该资源说明: 通用型全能后台系统源码 系统简介: 本系统是强大构建系统,可建立多个系统同在一个管理器里,然后直接分配权限给人员,人员可以单点登入多个系统完成自己的作业,超方便实用。案例介绍...
  • gaolei191223
  • gaolei191223
  • 2016年06月07日 13:03
  • 963

多用户微信营销平台系统 ASP.NET 源码下载

该资源说明: 多用户微信营销平台系统 ASP.NET C# 源码下载 开发环境:VS2008 + SQL2008...
  • gaolei191223
  • gaolei191223
  • 2016年06月09日 13:15
  • 388

一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之用户管理(1)

应用程序的基本框架已经搭建好了,现在要做的是完成一个个的功能模块。先从简单做起,完成用户管理模块,该模块主要功能是使用一个Grid显示用户信息,并使用RowEditing进行用户的编辑、添加操作。Gr...
  • tianxiaode
  • tianxiaode
  • 2012年09月25日 16:39
  • 5994

一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之用户管理(3)

昨天还有一个错误,CheckColumn的样式和图片没复制过来,造成最后一列的Checkbox显示不正确。在Ext JS包的examples\ux\css目录下打开CheckHeader.css文件,...
  • tianxiaode
  • tianxiaode
  • 2012年09月27日 18:14
  • 4640

用asp.net开发的一个系统,如何给用户提供数据库备份和恢复的功能?

http://topic.csdn.net/t/20030526/20/1837137.html   很棘手的问题,不知道该如何实现? 其实我想直接让用户学习sql   server(后台...
  • chla
  • chla
  • 2012年02月09日 14:09
  • 432
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP、NET开发下载系统(二)
举报原因:
原因补充:

(最多只允许输入30个字)