IT博客-飘着的叶子，什么时候才落地-随笔分类-私人程序片断

upload file

萌芽的叶子 — Mon, 04 Sep 2006 09:45:00 GMT

Dim filepath As String = String.Empty
        Dim filename As String = String.Empty
        Dim filetype As String = String.Empty
        If File1.PostedFile.FileName <> "" Then
            filepath = File1.PostedFile.FileName
            filetype = filepath.Substring(filepath.LastIndexOf(".") + 1)
            filename = filepath.Substring(filepath.LastIndexOf("\") + 1)
            If ("xls" <> filetype) Then
                Me.lb_msg.Text = "只能選擇excel文件！！"
                Exit Sub
            Else
                Try
                    Dim path As String = Server.MapPath("../xml")
                    File1.PostedFile.SaveAs(path + "\" + filename)
                    Me.lb_msg.Text = "上傳成功！！"
                Catch ex As Exception
                    Me.lb_msg.Text = "上傳失敗！！" + ex.Message
                End Try
            End If

End If

萌芽的叶子 2006-09-04 17:45 发表评论

项目执行步骤

萌芽的叶子 — Thu, 09 Feb 2006 06:35:00 GMT

项目执行步骤

l 成立小组用户担当Leader

l 排定时程表

l 讨论 AS IS（现有情况）

l 讨论 TO BE（将来）

l 收集资料

l 编程/设定

l CRP（模拟上线）

l 调整

l 培训

l GO LIVE（上线）由用户宣布（公告）

l POST GO LIVE SUPPORT （上线后的支持）

萌芽的叶子 2006-02-09 14:35 发表评论

web服务

萌芽的叶子 — Tue, 25 Oct 2005 07:48:00 GMT

web 服务其实就是我们说的web service，用户通用模块，或是是通用数据的。

在项目里面添加一个web服务，然后在和写模块一样的，如果是要给别人调用的模块最好是可以返回参数的function，然后别人在引用这个服务，根据返回参数来判断程序的执行情况。

实例：
Imports System.Web.Services

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 服务设计器修改此过程。
    '不要使用代码编辑器修改它。
    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 键。
    '
    ' _
    '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", "")
            sjs()
            Exit Sub
        End If
        Response.Redirect("JM/Main.htm", True)
        Response.End()
可能表达不是很清楚，有问题请留言，谢谢

萌芽的叶子 2005-10-25 15:48 发表评论