修改代码中缺少的对象 请帮忙解决有急用

来源：百度知道 编辑：UC知道 时间：2024/05/30 13:21:08
源代码如下：
<%@language="vbscript"%>
<html>
<head>
<script language="vbscript">
<!--
'注释：定义“搜索”按钮的单击事件
sub search_onclick
dim infstr
'注释：验证搜索信息
if fset.sitem.value=""then
alert("请先输入具体的查询内容！然后重试...")
else
select case fset.stype.value
case 1 infstr="title="
case 2 infstr="author="
case 3 infstr="ISBN="
end select
'注释：提交搜索数据
parent.sale4.location="sale4.asp?"&infstr&fset.sitem.value
end if
end sub
-->
</script>
</head>
<body bgcolor="#99ffff">
<form name="fset">
<font size="5"face="楷体_GB2312"><b>图书分类</b></font><hr>
<table><tr>

select case fset.stype.value
case 1 infstr="title="
case 2 infstr="author="
case 3 infstr="ISBN="
end select
parent.sale4.location="sale4.asp?"&infstr&fset.sitem.value
end if

mysql="select id,title from booktype where parentid='000'"
set objrs=server.CreateObject("adodb.recordset")
objrs.source=mysql