ASP问题,帮帮忙

来源:百度知道 编辑:UC知道 时间:2024/05/26 14:38:50
<html>

<%
Dim sngFeet,sngInches,sngCentermenter
sngFeet=Csng(Request("Feet"))
sngInches=Csng(Request("Inches"))
sngCentermeter=Csng(Request("Centermeter"))
call MyConvert(sngFeet,sngInches)
%>
<Script Language="VBScript" Runat="Server">
Sub call MyConvert(Dim sngF as short,Dim sngI As short)
Dim sngCm
sngCm=(sngF*12+sngI)*2
Response.Write(Cstr(sngF)&"英尺"Cstr(sngI)&"英寸")

Response.Write(Cstr(sngCm))
end Sub
</script>
</html>
错误类型:
Microsoft VBScript 编译器错误 (0x800A03F2)
缺少标识符
/myweb/ex08.asp, line 11, column 4
Sub call MyConvert(Dim sngF as short,Dim sngI As short)
---^

不是sub call 是上面调用子程序的地方用call就可以了
sub ***是字程序的代码,不用修改。

<html>

<%
Dim sngFeet,sngInches,sngCentermenter
sngFeet=Csng(Request("Feet"))
sngInches=Csng(Request("Inches"))
sngCentermeter=Csng(Request("Centermeter"))
call MyConvert(sngFeet,sngInches)
%>
<Script Language="VBScript" Runat="Server">
Sub MyConvert(Dim sngF as short,Dim sngI As short)
Dim sngCm
sngCm=(sngF*12+sngI)*2
Response.Write(Cstr(sngF)&"英尺"Cstr(sngI)&"英寸")

Response.Write(Cstr(sngCm))
end Sub
</script>
</html>