错 误 码：0x800A01CA
错误代码：If Request.Form<>"" Then
错误描述：变量使用了一个 VBScript 中不支持的 Automation 类型
这样的问题我应该怎么去解决!好心人给解释下,谢谢!!!!

If Request.Form<>"" Then
For Each Fy_Post In Request.Form
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
'If WriteSql=True Then
'killSqlconn.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Fy_Post&"','"&replace(Request.Form(Fy_Post),"'","''")&"')")
'killSqlconn.close
'Set killSqlconn = Nothing
'End If
Response.Write "<Script Language=JavaScript>alert('系统提示:\n\n请不要在参数中包含非法字符尝试注入！\n');</Script>"
Response.Write "非法操作！你已被系统记录做了如下非法操作↓<br>"
Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
Response.Write "操作时间："&Now&"<br>"
Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
Response.Write "提交方式：ＰＯＳＴ<br>"
Response.Write "提交参数："&Fy_Post&"<br>"
Response.Write "提交数据："&Request.Form(Fy_Post)

Response.End
End If
Next
Next
End If

[此贴子已经被作者于2006-6-2 15:58:58编辑过]

我定义过了,测试的时候就是出现了这样一个错误!!!如果代码没错可能是我机子的问题,昨天还没这种错误,我再看下吧,谢谢你对我的帮助!!!!!