关于"类型不匹配"的错误

xinyi 2000-07-31 12:12:00
asp代码:
<html>
<head>
<title>testsave</title>
</head>
<body>
<%@ language=vbscript %>
<%
data -------------------行8
%>
<script language=vbscript runat=server>
<!--
sub data()
msgbox"hello"
end sub
-->
</script>
</body>
</html>

错误信息:
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'data'

/testsave.asp, 行8

...全文
511 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
hhzh426 2000-09-03
  • 打赏
  • 举报
回复
刚才没有看到你的代码!
解释如下:(如果要使用过程可以这么做)
<%
sub data
....
end sub
....
data
...
%>
另外,msgbox是弹出一个信息提示框,这个函数在服务器端的脚本中是不允许使用的!
hhzh426 2000-09-03
  • 打赏
  • 举报
回复
msdn的解释:
SUMMARY
To invoke Microsoft Transaction Server (MTS) components from Active Server Pages, (ASP) perform the following three steps, which are described in more detail in the MORE INFORMATION section of this article:


Configure the registry to allow ASP to create out-of-process components. For security reasons, ASP by default cannot create out-of-process components. Thus, all attempts to create Transaction Server objects with Server.CreateObject will fail, unless the MTS object is configured to run "In the creator's process" using MTS Explorer. The ASP page will return the following error message to the HTML client:


Server object error'ASP 0177:80040154'
Server.CreateObject Failed


VBScript 2.0 requires that non-Variant data types be passed by value. Therefore, make sure that all non-Variant data types passed by your MTS component are passed by value, not by reference. If you break this rule, the ASP script will return the following error:


Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Accountobj.Post'


Write an ASP page that uses Server.CreateObject to create your MTS component.

MORE INFORMATION

If the MTS object is configured to run in an Transaction Server process, the registry must be configured to allow ASP to create out-of-process components. Before changing this registry setting, make sure you have a thorough understanding of how to secure out-of-process components. For example, you should set a specific user identity for the component; otherwise, the MTS component will run under the identity of the first user to access it.
To allow out-of-process components, use Regedit to select the following key:



HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\W3SVC\ASP
\Parameters

The Parameters key has several subvalues that control ASP. Make sure it has a subvalue named AllowOutOfProcCmpnts, and that this subvalue is set to 1.


The MTS component may pass only variants by reference; all other data types must be passed by value. The Bank sample supplied with MTS breaks this rule with its Account.Post method, which passes two longs and a string by reference.
The following steps are instructions for modifying the Bank sample, adding a PostVariant method that has Variant arguments.

A. Make sure that the Bank package is installed in MTS, and that the


Bank Client provided with MTS is able to credit and debit money.

B. In Visual Basic, open the Account.VB project in the MTX\Samples


directory.

C. Add the code below to the Account class. The new PostVariant method


simply wraps the existing Post method.


Public Function PostVariant(varAccountNo As Variant, _
varAmount As Variant, ByRef varResult As Variant) As Variant
Dim lngAccountNo As Long
Dim lngAmount As Long
Dim strResult As String
lngAccountNo = varAccountNo
lngAmount = varAmount
strResult = varResult
PostVariant = Post(lngAccountNo, lngAmount, strResult)
varAccountNo = lngAccountNo
varAmount = lngAmount
varResult = strResult
End Function

D. Compile the Bank project. Make sure that the new Vbacct.dll file
replaces the copy in the MTX\Packages directory.

E. In MTS Explorer, select My Computer. On the Tools menu, click Refresh
All Components. MTS Explorer should now show that the Bank.Account
component has a PostVariant method.



Construct an ASP page that calls the MTS component. Perform the following steps to create an ASP page that manages a bank account by calling the Account.PostVariant method created in step 2 above.
A. In Visual Interdev, use the Web Project Wizard to construct a new Web


project called MTSWeb. In step two of the wizard, choose to create a
new web.

B. In Visual Interdev, create a new Active Server Page file named


MTSBank in the MTSWeb project.

C. The new ASP file has a line reading "Insert HTML here." At that


point, insert the following HTML:


<%
Dim Accountobj, Msg
If (Not IsNumeric(Request("Amount")) _
or IsEmpty(Request("Amount"))) Then
Msg = "Please enter the amount of the transaction."
Else
set Accountobj = server.createobject("Bank.Account")
Accountobj.PostVariant Request("AccountID"), _
Request("Type") * Request("Amount"), Msg
End If%>
<%=Msg%>
<BR>
<FORM METHOD="POST" ACTION="MTSBank.asp">
Transaction Type:
<INPUT TYPE="RADIO" NAME="Type" VALUE="1" CHECKED>Credit
<INPUT TYPE="RADIO" NAME="Type" VALUE="-1" >Debit
<BR>
Account ID: <INPUT TYPE="TEXT" NAME="AccountID" SIZE=30 VALUE="1">
<BR>
Amount : <INPUT TYPE="TEXT" NAME="Amount" SIZE=30>
<BR>
<INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>

D. Save the new ASP file. If you now use a Web browser to access
http://YourWebServer/MTSWeb/MTSBank.asp, you will be able to credit
or debit money using ASP and the MTS Bank.Account component.


huntout 2000-07-31
  • 打赏
  • 举报
回复
將注釋去掉︰

<script language=vbscript runat=server>
sub data()
msgbox"hello"
end sub
</script>

同時,是沒有權限在服務器端執行msgbox的。

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧