web 服务其实就是我们说的web service，用户通用模块，或是是通用数据的。
在项目里面添加一个web服务，然后在和写模块一样的，如果是要给别人调用的模块最好是可以返回参数的function，然后别人在引用这个服务，根据返回参数来判断程序的执行情况。
实例：
Imports System.Web.Services
<System.Web.Services.WebService(Namespace := "http://tempuri.org/SMS/WebSignServiceClass")> _
Public Class WebSignServiceClass
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
' Web 服务示例
' HelloWorld() 示例服务返回字符串 Hello World。
' 若要生成项目，请取消注释以下行，然后保存并生成项目。
' 若要测试此 Web 服务，请确保 .asmx 文件是起始页
' 并按 F5 键。
'
'<WebMethod()> _
'Public Function HelloWorld() As String
' Return "Hello World"
'End Function
End Class
这是添加一个服务时的情况，在里面加一些给别人调用的模块。
调用时：
先在项目引用web服务，比如引用登陆服务：
Dim wr As WebReference.EipUserServices = New WebReference.EipUserServices
Dim errmess As String = wr.EipUserLogonCheck(Me.TextBox1.Text, Me.TextBox2.Text, "SIGN-1")
If errmess = "OK" Then
。。。。。
Else
Page.RegisterStartupScript("111", "<script>alert('" + errmess.Trim + "');</script>")
sjs()
Exit Sub
End If
Response.Redirect("JM/Main.htm", True)
Response.End()
可能表达不是很清楚，有问题请留言，谢谢
posted on 2005-10-25 15:48
萌芽的叶子 阅读(245)
评论(0) 编辑 收藏 引用 所属分类:
共享程序片断 、
私人程序片断