错误类型：Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: 'request'

来源：百度知道 编辑：UC知道 时间：2024/05/09 14:33:04
有大大能解决下吗？谢谢拉
<%@language="VBSCRIPT" codepage="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<%
Dim DateChild
Dim DateNow
Dim age
dim month
DateNow = Now()
set DateChild = DateSerial(CInt(request.form(form1.txtY)), CInt(request.form(form1.txtM)), CInt(request.form(form1.txtD)))
set age = CInt(DateDiff("yyyy", DateChild, DateNow))
set month = CInt(DateDiff("m", DateChild, DateNow))
%>
</head>
<body><h1>

<div align="center"><font size="+3">幼儿心理健康调查问卷测评结果</font></div>
<form name="form1" method="get">
<label>姓名：</label>
<label><%request.form("form1.txtName")%></label>
年龄<label><%=month%></label>

set DateChild = DateSerial(CInt(request.form(form1.txtY)), CInt(request.form(form1.txtM)), CInt(request.form(form1.txtD)))
这个地方错了request.form(key),不是你那样用的，key就是表单控件名称
改成这样
set DateChild = DateSerial(CInt(request.form(txtY)), CInt(request.form(txtM)), CInt(request.form(txtD)))
把form1.去掉