28,391
社区成员
发帖
与我相关
我的任务
分享asp调用SUB函数
ASP菜鸟，刚开始学ASP，为什么在IIS中浏览，不会提示输入框，直接弹出弹框，可我并没有传值啊，得出的数值是怎么得来的呢？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>调用FUNCTIO函数</title>
<script language="vbscript">
Sub ConvertTemp()
temp=InputBox("请输入华氏温度",1)
MsgBox "温度为" &Celsius(temp) & "摄氏度"
End Sub
Function Celsius(fDegrees)
Celsius=(fDegrees-32)*5/9
End Function
ConvertTemp
</script>
</head>
<body>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>调用FUNCTIO函数</title>
<script language="vbscript">
Sub ConvertTemp()
temp=InputBox("请输入华氏温度",1)
MsgBox "温度为" &Celsius(temp) & "摄氏度"
End Sub
Function Celsius(fDegrees)
Celsius=(fDegrees-32)*5/9
End Function
ConvertTemp
</script>
</head>
<body>
</body>
</html>
...全文
请发表友善的回复…
发表回复
PChelp 2011-05-10
- 打赏
- 举报
用JS代码解决呀.
vstudiocn 2011-05-08
- 打赏
- 举报
InputBox 函数
在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。
InputBox(prompt[, title][,default][,xpos][,ypos][,helpfile,context])
参数
prompt
字符串表达式，作为消息显示在对话框中。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 以分隔各行。
Title
显示在对话框标题栏中的字符串表达式。如果省略 title，则应用程序的名称将显示在标题栏中。
Default
显示在文本框中的字符串表达式，在没有其它输入时作为默认的响应值。如果省略 default，则文本框为空。
Xpos
数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为缇）。如果省略 xpos，则对话框会在水平方向居中。
Ypos
数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为缇）。如果省略 ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。
Helpfile
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。
Context
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。
说明
如果同时提供了 helpfile 和 context，就会在对话框中自动添加“帮助”按钮。
如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 ("")。
下面例子利用 InputBox 函数显示一输入框并且把字符串赋值给输入变量：
Dim Input
Input = InputBox("输入名字")
MsgBox ("输入：" & Input)
根据以上的说明,你的temp=InputBox("请输入华氏温度",1)
很可能是直接将1赋给了temp,然后结果就是-17.777
在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。
InputBox(prompt[, title][,default][,xpos][,ypos][,helpfile,context])
参数
prompt
字符串表达式，作为消息显示在对话框中。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 以分隔各行。
Title
显示在对话框标题栏中的字符串表达式。如果省略 title，则应用程序的名称将显示在标题栏中。
Default
显示在文本框中的字符串表达式，在没有其它输入时作为默认的响应值。如果省略 default，则文本框为空。
Xpos
数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离（单位为缇）。如果省略 xpos，则对话框会在水平方向居中。
Ypos
数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离（单位为缇）。如果省略 ypos，则对话框显示在屏幕垂直方向距下边缘大约三分之一处。
Helpfile
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。
Context
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。
说明
如果同时提供了 helpfile 和 context，就会在对话框中自动添加“帮助”按钮。
如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 ("")。
下面例子利用 InputBox 函数显示一输入框并且把字符串赋值给输入变量：
Dim Input
Input = InputBox("输入名字")
MsgBox ("输入：" & Input)
根据以上的说明,你的temp=InputBox("请输入华氏温度",1)
很可能是直接将1赋给了temp,然后结果就是-17.777
Silly728 2011-05-08
- 打赏
- 举报
[Quote=引用 1 楼 net_lover 的回复:]
可以弹出输入框的
[/Quote]
可我在IIS浏览的时候并不提示输入框，直接弹出VBScript 弹窗并且显示“温度为-17.77777778摄氏度”，这是浏览器问题吗？
可以弹出输入框的
[/Quote]
可我在IIS浏览的时候并不提示输入框，直接弹出VBScript 弹窗并且显示“温度为-17.77777778摄氏度”，这是浏览器问题吗？
孟子E章 2011-05-08
- 打赏
- 举报
可以弹出输入框的
