用ASP、NET开发下载系统(二)
2003-07-07 09:47
549 查看
用ASP、NET开发下载系统(二)
中间层[/b]Web Service[/b]总体概括
中间层主要是数据库与前台界面的交互桥梁,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.ConfigurationImports 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[/b]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开发下载系统(三)
- 用ASP、NET开发下载系统(一)
- 用ASP、NET开发下载系统(二)
- [导入]用ASP、NET开发下载系统(三)
- [导入]用ASP、NET开发下载系统(二)
- [导入]用ASP、NET开发下载系统(四)
- [导入]用ASP、NET开发下载系统(一)
- 用ASP、NET开发下载系统(三)
- 用ASP、NET开发下载系统
- 用ASP、NET开发下载系统
- Asp.net 2.0 自定义控件开发[创建自定义右键PopupMenu控件][示例代码下载]
- Asp.net 2.0 自定义控件开发[开发一个图表(WebChart)控件(柱状图示例)](示例代码下载)
- 回答网友的问题,有C# ASP.NET 通用权权限系统源码下载收费
- Asp.net 2.0 自定义控件开发[创建自定义浮动菜单FloadMenu控件][示例代码下载]
- Asp.net 2.0 自定义控件开发[创建自定义HeaderRow的GridView控件][示例代码下载]
- asp.net mvc+jquery easyui开发实战教程之网站后台管理系统开发1-准备工作
- Asp.net 2.0 自定义控件开发[创建自定义HeaderRow的GridView控件][示例代码下载]
- 基于UML和ASP.NET实现三层B/S结构系统开发
- ASP.NET动态网站开发培训-21.论文管理系统(一、前期准备)