📄 vbscript_procedures.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="en-US" xml:lang="en-US" xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>VBScript Procedures</title>
<link rel="shortcut icon" href="../favicon.ico" type="image/x-icon" />
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<meta name="Keywords" content="xml,tutorial,html,dhtml,css,xsl,xhtml,javascript,asp,ado,vbscript,dom,sql,colors,soap,php,authoring,programming,training,learning,beginner's guide,primer,lessons,school,howto,reference,examples,samples,source code,tags,demos,tips,links,FAQ,tag list,forms,frames,color table,w3c,cascading style sheets,active server pages,dynamic html,internet,database,development,Web building,Webmaster,html guide" />
<meta name="Description" content="Free HTML XHTML CSS JavaScript DHTML XML DOM XSL XSLT RSS AJAX ASP ADO PHP SQL tutorials, references, examples for web building." />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="cache-control" content="no-cache" />
<link rel="stylesheet" type="text/css" href="../stdtheme.css" />
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "../../https@ssl./default.htm" : "../../www./default.htm");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-3855518-1");
pageTracker._initData();
pageTracker._trackPageview();
</script>
</head>
<body>
<a name="top"></a>
<table cellpadding="0" cellspacing="0" width="100%" bgcolor="#808080">
<tr>
<td width="234" valign="top">
<a href="../default.htm"><img src="../images/w3default80.jpg" border="0" alt="W3Schools" /></a>
</td>
<th valign="middle" align="left" class="right">
<script type="text/javascript"><!--
google_ad_client = "pub-3440800076797949";
/*txtimg*/
google_ad_slot = "5330033957";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript" src="../../pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
<noscript>
<a href="../default.asp" target="_blank"><img src="../banners/w6.gif" border="0" alt="W3Schools" /></a>
</noscript>
<br /></th>
</tr>
</table>
<table style="margin-left:1px" width="800px" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="137" class="content" valign="top"><br />
<a class="left" href="../default.asp" target="_top">
<img src="../images/homeicon.gif" border="0" alt="home" /></a>
<a class="left" href="../default.asp" target="_top">
<b>HOME</b></a>
<br /><br />
<b>VBScript Tutorial</b><br />
<a class="left" target="_top" href="default.asp" >VB HOME</a><br />
<a class="left" target="_top" href="vbscript_intro.asp" >VB Introduction</a><br />
<a class="left" target="_top" href="vbscript_howto.asp" >VB How to</a><br />
<a class="left" target="_top" href="vbscript_whereto.asp" >VB Where to</a><br />
<a class="left" target="_top" href="vbscript_variables.asp" >VB Variables</a><br />
<a class="left" target="_top" href="vbscript_procedures.asp" style='font-weight:bold;'>VB Procedures</a><br />
<a class="left" target="_top" href="vbscript_conditionals.asp" >VB Conditional</a><br />
<a class="left" target="_top" href="vbscript_looping.asp" >VB Looping</a><br />
<a class="left" target="_top" href="vbscript_summary.asp" >VB Summary</a><br />
<br />
<b>Examples</b><br />
<a class="left" target="_top" href="vbscript_examples.asp" >VB Examples</a><br />
<br />
<b>References</b><br />
<a class="left" target="_top" href="vbscript_ref_functions.asp" >VB Functions</a><br />
<a class="left" target="_top" href="vbscript_ref_keywords.asp" >VB Keywords</a><br />
<br />
<b>Selected Reading</b><br />
<a class="left" target="_top" href="../browsers/browsers_stats.asp">Web Statistics</a><br />
<a class="left" target="_top" href="../site/site_glossary.asp">Web Glossary</a><br />
<a class="left" target="_top" href="../hosting/default.asp">Web Hosting</a><br />
<a class="left" target="_top" href="../quality/default.asp">Web Quality</a><br /><br />
<a class="left" target="_top" href="../forum/default.asp">W3Schools Forum</a><br /><br />
<a class="left" target="_top" href="../about/about_helping.asp">Helping W3Schools</a><br /><br />
<script type="text/javascript"><!--
google_ad_client = "pub-3440800076797949";
/*LeftLinkUnit*/
google_ad_slot = "4854527104";
google_ad_width = 120;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="../../pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td>
<td valign="top">
<table style="border: 1px solid gray" width="100%" bgcolor="#FFFFFF" border="0" cellpadding="5" cellspacing="0">
<tr>
<td>
<h1>VBScript Procedures</h1>
<a href="vbscript_variables.asp"><img alt="previous" border="0" src="../images/btn_previous.gif" width="100" height="20" /></a>
<a href="vbscript_conditionals.asp"><img alt="next" border="0" src="../images/btn_next.gif" width="100" height="20" /></a>
<hr />
<h2>Examples</h2>
<p>
<a target="_blank" href="tryit.asp@filename=vbdemo_sub">Sub procedure</a><br />
The sub procedure does not return a value.</p>
<p>
<a target="_blank" href="tryit.asp@filename=vbdemo_function">Function procedure</a><br />
The function procedure is used if you want to return a value.</p>
<hr />
<h2>VBScript Procedures</h2>
<p>
We have two kinds of procedures: The Sub procedure and the Function procedure.</p>
<p>A Sub procedure:</p>
<ul>
<li>is a series of statements, enclosed by the Sub and End Sub
statements</li>
<li>can perform actions, but <b> does not return</b> a value</li>
<li>can take arguments that are passed to it by a calling
procedure</li>
<li>without arguments, must include an empty set of parentheses ()</li>
</ul>
<table width="100%" border="1" class="ex" cellspacing="0"><tr><td>
<pre>Sub mysub()
some statements
End Sub</pre>
<p>or </p>
<pre>Sub mysub(argument1,argument2)
some statements<i>
</i>End Sub </pre>
</td></tr></table>
<p>A Function procedure:</p>
<ul>
<li>is a series of statements, enclosed by the Function and End Function statements</li>
<li>can perform actions and <b>can return</b> a value</li>
<li>can take arguments that are passed to it by a calling procedure</li>
<li>without arguments, must include an empty set of parentheses
()</li>
<li>returns a value by assigning a value to its name</li>
</ul>
<table width="100%" border="1" class="ex" cellspacing="0"><tr><td>
<pre>Function myfunction()
some statements
<i> </i>myfunction=some value
End Function</pre>
<p>or</p>
<pre>Function myfunction(argument1,argument2)
some statements
<i> </i>myfunction=some value
End Function</pre>
</td></tr></table>
<br />
<hr />
<h2>Call a Sub or Function Procedure</h2>
<p>When you call a Function in your code, you do like this:
</p>
<table width="100%" border="1" class="ex" cellspacing="0"><tr><td>
<pre>name = findname()</pre>
</td></tr></table>
<p>Here you call a Function called "findname", the Function returns a
value that will be stored in the variable "name".
</p>
<p>Or, you can do like this:
</p>
<table width="100%" border="1" class="ex" cellspacing="0"><tr><td>
<pre>msgbox "Your name is " & findname()</pre>
</td></tr></table>
<p>Here you also call a Function called "findname", the Function returns a
value that will be displayed in the message box.
</p>
<p>When you call a Sub procedure you can use the Call statement, like this:
</p>
<table width="100%" border="1" class="ex" cellspacing="0"><tr><td>
<pre>Call MyProc(argument)</pre>
</td></tr></table>
<p>Or, you can omit the Call statement, like this:
</p>
<table width="100%" border="1" class="ex" cellspacing="0"><tr><td>
<pre>MyProc argument</pre>
</td></tr></table>
<br />
<hr />
<a href="vbscript_variables.asp"><img alt="previous" border="0" src="../images/btn_previous.gif" width="100" height="20" /></a>
<a href="vbscript_conditionals.asp"><img alt="next" border="0" src="../images/btn_next.gif" width="100" height="20" /></a>
<br />
<hr />
<!-- **** SPOTLIGHTS 1 **** -->
<iframe src="../banners/aspallframe.asp" height="110" width="485"
marginwidth="0" marginheight="0" frameborder="0" scrolling="no">
Your browser does not support inline frames or is currently configured not to display inline frames.
</iframe>
<hr />
<!-- **** SPOTLIGHTS 2 **** -->
<h2>Want To Be A Web Master?</h2>
<p>If you want to be a Web Master, you will have to host your web site with an ISP (Internet Service Provider).</p>
<p>MaximumASP offers seven different configurations of dedicated servers to meet your Windows and .NET hosting needs.
Hosted on our multi-tiered Enterprise Class network, these servers provide the performance, security and reliability
you need to host your high end web sites and applications.
</p>
<p><a target="_blank" href="../../www.maximumasp.com/about/specials.aspx">Visit MaximumASP</a></p>
<hr />
<!-- **** SPOTLIGHTS 3 **** -->
<table cellpadding="0" cellspacing="0"><tr><td width="72"></td><td>
<script type="text/javascript"><!--
google_ad_client = "pub-3440800076797949";
/*txt*/
google_ad_slot = "1699448869";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="../../pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td></tr></table>
<hr />
<center>
<script type="text/javascript"><!--
google_ad_client = "pub-3440800076797949";
/*imgtxt*/
google_ad_slot = "8606855891";
google_ad_width = 468;
google_ad_height = 60;
//-->
</script>
<script type="text/javascript"
src="../../pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</center>
<hr />
<!-- **** END SPOTLIGHTS **** -->
</td></tr>
<tr><td>
<p>Jump to: <a href="#top" target="_top"><b>Top of Page</b></a>
or <a href="../default.asp" target="_top"><b>HOME</b></a> or
<a href='vbscript_procedures.asp@output=print' target="_blank">
<img src="../images/print.gif" alt="Printer Friendly" border="0" />
<b>Printer friendly page</b></a></p>
<p>W3Schools provides material for training only. We do not warrant the correctness of its contents.
The risk from using it lies entirely with the user.
While using this site, you agree to have read and accepted our
<a href="../about/about_copyright.asp">terms of use</a> and
<a href="../about/about_privacy.asp">privacy policy</a>.
</p>
<p><a href="../about/about_copyright.asp">Copyright 1999-2008</a> by Refsnes Data. All Rights Reserved.</p>
<table border="0" width="100%" cellspacing="0" cellpadding="0"><tr>
<td width="60%" align="left">
<a href="../../validator.w3.org/check@uri=referer" target="_blank">
<img src="../images/vxhtml.gif" alt="Validate" width="88" height="31" border="0" /></a>
<a href="../../jigsaw.w3.org/css-validator/check@uri=referer" target="_blank">
<img src="../images/vcss.gif" alt="Validate" width="88" height="31" border="0" /></a>
<a href="../../www.w3.org/WAI/WCAG1A-Conformance" title="Explanation of Level A Conformance" target="_blank">
<img src="../images/wai.gif" alt="W3C-WAI level A conformance icon" width="88" height="31" border="0" /></a>
</td>
<td>
<a href="../xhtml/xhtml_howto.asp" target="_top">W3Schools was converted to XHTML in December 1999</a>
</td></tr>
</table>
</td></tr>
</table>
</td>
<td width="145" align="center" valign="top">
<iframe style="background-color:#f1f1f1" src="../banners/rightcolumn.asp@secid=vbscript" height="1500" width="147"
marginwidth="0" marginheight="0" frameborder="0" scrolling="no">
</iframe>
</td>
</tr></table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -