WebService的问题 BC30205: 需要语句结束。

ron_xin 2008-04-13 09:06:53

服务脚本

<%@ WebService Language="VB" Class="X801" %>

Imports System

Imports System.Web.Services



Public Class X801: Inherits WebService

   <WebMethod()> Public Function Divide(A As System.Single,B As System.Single) As System.Single

       If B = 0

          Return -1

       End If

       Return Convert.ToSingle(A / B)

   End Function

End Class

页面脚本

<%@ Import Namespace="X801" %>

<!--第六步：引入名称空间X801。在下面一行的横线处填写适当的字句。-->

<HTML>

	<script language="VB" runat="server">

  Dim Op1 As Single = 0

  Dim Op2 As Single = 0



  Public Sub Submit_Click(Sender As Object, E As EventArgs)

      Try

        Op1 = Single.Parse(Operand1.Text)

        Op2 = Single.Parse(Operand2.Text)

      Catch Exp As Exception

          ' Ignored

      End Try



      Dim Service As X8-01.X801 = New X8-01.X801()

    

      Result.Text = "<b>结果</b> = " & Service.Divide(Op1,Op2).ToString()

  End Sub

	</script>

	<body style="FONT: 10.5pt 宋体">

		<h4>第八单元 第一题

		</h4>

		<form runat="server" ID="Form1">

			<div style="BORDER-RIGHT:black 1px solid;PADDING-RIGHT:15px;BORDER-TOP:black 1px solid;PADDING-LEFT:15px;PADDING-BOTTOM:15px;BORDER-LEFT:black 1px solid;WIDTH:300px;PADDING-TOP:15px;BORDER-BOTTOM:black 1px solid;BACKGROUND-COLOR:beige">

				被除数：<br>

				<asp:TextBox id="Operand1" Text="15" runat="server" /><br>

				除  数：<br>

				<asp:TextBox id="Operand2" Text="5" runat="server" /><p>

					<input type="submit" id="除" value="除" OnServerClick="Submit_Click" runat="server" NAME="除">

				<p>

					<asp:Label id="Result" runat="server" /></p>

			</div>

		</form>

	</body>

</HTML>

“/WebApplication1”应用程序中的服务器错误。
--------------------------------------------------------------------------------

编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30205: 需要语句结束。

源错误:

行 14： End Try
行 15：
行 16： Dim Service As X8-01.X801 = New X8-01.X801()
行 17：
行 18： Result.Text = "<b>结果</b> = " & Service.Divide(Op1,Op2).ToString()

源文件: http://localhost/WebApplication1/WebForm1.aspx 行: 16

...全文

312 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

w252422991 2009-12-20

打赏
举报

呵呵

<script runat="server">
行 3: private void Page_Load(object sender,System.EventArgs e)
行 4: {Response.Status = "301 Moved Permanently";
行 5: Response.AddHeader("Location""http://www.yiqiweb.com");

ron_xin 2008-04-22

打赏
举报

问题已经解决,来人UP一下,送分!

ron_xin 2008-04-14

打赏
举报

自已搞定了,要在引用里加入x801.dll,但为何开头不是已经<%@ Import Namespace="X801" %>了吗,不是很明白,请大侠请点一下
<%@ Import Namespace="X801" %>

<HTML>

	<script language="VB" runat="server">

  Dim Op1 As Single = 0

  Dim Op2 As Single = 0



  Public Sub Submit_Click(Sender As Object, E As EventArgs)

      Try

        Op1 = Single.Parse(Operand1.Text)

        Op2 = Single.Parse(Operand2.Text)

      Catch Exp As Exception

          ' Ignored

      End Try



      Dim Service As x801.x801 = New x801.x801()

    

      Result.Text = "<b>结果</b> = " & Service.Divide(Op1,Op2).ToString()

  End Sub

	</script>

	<body style="FONT: 10.5pt 宋体">

		<h4>第八单元 第一题

		</h4>

		<form runat="server" ID="Form1">

			<div style="BORDER-RIGHT:black 1px solid;PADDING-RIGHT:15px;BORDER-TOP:black 1px solid;PADDING-LEFT:15px;PADDING-BOTTOM:15px;BORDER-LEFT:black 1px solid;WIDTH:300px;PADDING-TOP:15px;BORDER-BOTTOM:black 1px solid;BACKGROUND-COLOR:beige">

				被除数：<br>

				<asp:TextBox id="Operand1" Text="15" runat="server" /><br>

				除  数：<br>

				<asp:TextBox id="Operand2" Text="5" runat="server" /><p>

					<input type="submit" id="除" value="除" OnServerClick="Submit_Click" runat="server" NAME="除">

				<p>

					<asp:Label id="Result" runat="server" /></p>

			</div>

		</form>

	</body>

</HTML>

ron_xin 2008-04-14

打赏
举报

显示详细的编译器输出:

C:\WINDOWS\system32> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\webapplication1\8dd84b00\b065eec7\assembly\dl2\5c1eb452\0001a5e4_cb9dc801\x801.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\webapplication1\8dd84b00\b065eec7\assembly\dl2\41d9892c\00d8b462_cb9dc801\webservice1.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\webapplication1\8dd84b00\b065eec7\assembly\dl2\a646d895\00a27ccf_cc9dc801\webapplication1.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\webapplication1\8dd84b00\b065eec7\f7iv4bqn.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\webapplication1\8dd84b00\b065eec7\ci4zmrrl.dll" /D:DEBUG=1 /debug+ /win32resource:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\webapplication1\8dd84b00\b065eec7\ci4zmrrl.res" "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\webapplication1\8dd84b00\b065eec7\ci4zmrrl.0.vb"

Microsoft (R) Visual Basic .NET 编译器版本 7.10.3052.4
用于 Microsoft (R) .NET Framework 版本 1.1.4322.573
版权所有 (C) Microsoft Corporation 1987-2000。保留所有权利。

http://localhost/WebApplication1/WebForm1.aspx(16) : error BC30205: 需要语句结束。

Dim Service As X8-01.X801 = New X8-01.X801()
~~~~~~~~~~~~~~~~~~~~~~~~~~~
http://localhost/WebApplication1/WebForm1.aspx(18) : error BC30451: 名称“Service”未声明。

Result.Text = "<b>结果</b> = " & Service.Divide(Op1,Op2).ToString()
~~~~~~~

ron_xin 2008-04-13