ASP 调用 VBScript与JavaScript 编写的子程序

文章作者:中山市飞娥软件工作室「Feiesoft.com」  浏览次数:2146 次  更新日期:2014-03-19

<html>
<head>
<body>
<p>下面定义一个动态生成Access数据库文件的子程序</p>
<%
 Sub CreateAccessDb(MdbName)
  Dim MdbPath
  MdbPath = Server.MapPath(MdbName)
  
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  
  If fso.FileExists(MdbPath) Then
   Call fso.DeleteFile(MdbPath)
  End If
  
  If Not fso.FileExists(MdbPath) Then
   Set conn = Server.CreateObject("ADOX.Catalog")
   conn.Create "Provider=Microsoft.JET.OLEDB.4.0;data source=" & MdbPath
   Response.Write MdbPath & "建立成功!"
  End If
 End Sub
%>
<p>当从一个用 VBScript 编写的 ASP 文件中调用 VBScript 或者 JavaScript 子程序时,可以使用关键词 "call",后面跟着子程序名称。假如子程序需要参数,当使用关键词 "call" 时必须使用括号包围参数。假如省略 "call",参数则不必由括号包围。假如子程序没有参数,那么括号则是可选项。</p>
<p>您可以像这样调用一个程序:</p>
<p>结果:<%call CreateAccessDb("NEW.MDB")%></p>
<p>或者,像这样:</p>
<p>结果:<%CreateAccessDb "NEW.MDB"%></p>
<p>当从一个用 JavaScript 编写的 ASP 文件中调用 VBScript 或者 JavaScript 子程序时,必须在子程序名后使用括号。</p>
<p>将 <%@ language="language" %> 这一行写到 <html> 标签的上面,就可以使用另外一种脚本语言来编写子程序或者函数:</p>
<%@ language="javascript" %>
<html>
<head>
<%
function jsproc(num1,num2)
{
Response.Write(num1*num2)
}
%>
</head>

<body>
<p>Result: <%jsproc(3,4)%></p>
</body>

</html>
</body>
</html>