📄 web15.html
字号:
<html>
<head>
<title> Tracking Procedures</title>
</head>
<body>
<H1>Tester page for vbs</H1>
<hr color="blue">
<input type="submit" name="btn1" value="click to test the code">
<script language="VBScript">
<!--
Sub btn1_OnClick
Dim message ,x
x=100
message="Sub btn1_OnClick"
MsgBox message,0,"Procedure Result"
message="Sub MySub"
mysub(message)
x=returncount(x)
message="function returned"+cstr(x)
MsgBox message,0,"procedure result"
End Sub
Sub mysub(msg)
MsgBox msg,0,"procedure result"
End Sub
Function returncount(num)
returncount=num+1
End Function
-->
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -