缺少对象???

xiuzhu319 2005-06-06 11:12:59
做完ASP后,测试时总显示网页打开错误,第一行缺少对象,是何原因?
...全文
103 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiuzhu319 2005-06-06
  • 打赏
  • 举报
 回复
conn1.asp的源码:
<%
dim conn
dim connstr
dim db
'更改数据库名字
db="liyw.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
lovebeyondforever 2005-06-06
  • 打赏
  • 举报
 回复
速度还真快 呵呵
mikespook 2005-06-06
  • 打赏
  • 举报
 回复
问题出在你的conn1.asp上~~代码给出来~~
lovebeyondforever 2005-06-06
  • 打赏
  • 举报
 回复
你要把代码贴出来啊
要不大家怎么知道了
xiuzhu319 2005-06-06
  • 打赏
  • 举报
 回复
源码如下:

<!--#include file="conn1.asp"-->
<%
stockclass=request("class1")
session("stockclass1")=stockclass
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet">
<script language="javascript">
<%if request("u") then%>
alert("上传完成")
<%end if%>
function check(form)
{
if (form.file.value=="")
{alert("请选择EXCEL文件!");
return false;}
else
{
if (form.file.value.indexOf(".xls")<=0)
{
alert("您选择的文件不正确!\n必须是EXCEL文件!");
return false;
}
}

}
function addstock(form)
{
if (form.parts.value=="")
{alert("型号不能为空!");
return false;
form.parts.focus();}
}

function check(form)
{
alert("请先确认产品系列,再进行下面的excel上传操作，谢谢！");
}
</script>
</head>
<!-- #include file="Inc/Head.asp" -->
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="javascipt:setTimeout('loadForm()',1000);">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="150" align="center" valign="top"> <table width="150" height="100%" border="0" cellpadding="0" cellspacing="0" class="HeaderTdStyle">
<tr>
<td align="center" valign="top"><table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">功能菜单</td>
</tr>
</table>
<table width="100%" height="90%" border="0" cellpadding="0" cellspacing="0" class="MenuBg">
<tr>
<td align="center" valign="top"><br> <table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="16%"><img src="../Img/Left_1.gif" width="28" height="11"></td>
<td width="84%" height="20"><font color="#FFFF00">系统管理</font></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
<td width="66%" valign="bottom"><a href="Down_admin_add.asp">添加库存</a><a href="Manage_Admin.asp"></a></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
<td width="66%" valign="bottom"><a href="Down_Manage.asp">管理库存</a><a href="Manage_backup.asp"></a></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="862" align="center" valign="top">
<br>
<br>
<br>
<b>添 加 库 存</b><br>
<br>
<br>
<table width="100%" border="0" align="center">
<td>
<tr>
<td>
<p> </p>
<p>方法一：逐条上传法（每列按以下格式填好后上传）</p>
<table width="80%" border="0" cellpadding="4" cellspacing="1" bgcolor="#663333">
<tr align="center" bgcolor="#BBD7F4">
<td style="padding-top:5px;padding-bottom:1px;">型号</td>
<td style="padding-top:5px;padding-bottom:1px;">厂家</td>
<td style="padding-top:5px;padding-bottom:1px;">数量</td>
<td style="padding-top:5px;padding-bottom:1px;">日期</td>
<td style="padding-top:5px;padding-bottom:1px;">系列</td>
<td style="padding-top:5px;padding-bottom:1px;">封装</td>
<td style="padding-top:5px;padding-bottom:1px;">价格</td>
<td style="padding-top:5px;padding-bottom:1px;">备注</td>
<td style="padding-top:5px;padding-bottom:1px;"> </td>
</tr>
<form name="addstockform" method="post" action="save.asp?act=addstock" onSubmit="return addstock(this)">
<tr align="center" bgcolor="#FFFFFF">
<td style="padding-top:5px;padding-bottom:1px;">
<input name="parts" type="text" id="parts" size="16">
</td>
<td style="padding-top:5px;padding-bottom:1px;"><input name="pro" type="text" id="pro" size="6"></td>
<td style="padding-top:5px;padding-bottom:1px;"><input name="sl" type="text" id="sl" size="8"></td>
<td style="padding-top:5px;padding-bottom:1px;"><input name="prodate" type="text" id="prodate" size="6"></td>
<td style="padding-top:5px;padding-bottom:1px;"><select name="class">
<%set x=server.CreateObject("adodb.recordset")
x.open "select*from class",conn,3,3
if not x.eof then
do while not x.eof%>
<option value="<%=x("cname")%>"><%=x("cname")%></option>
<%x.movenext
loop
end if
%>
</select></td>
<td style="padding-top:5px;padding-bottom:1px;"><input name="fz" type="text" id="fz" size="8"></td>
<td style="padding-top:5px;padding-bottom:1px;"><input name="price" type="text" id="price" size="8"></td>
<td style="padding-top:5px;padding-bottom:1px;"><input name="bz" type="text" id="bz" size="16"></td>
<td style="padding-top:5px;padding-bottom:1px;"><input type="submit" name="Submit2" value=" 增 加 "></td>
</tr></form>
</table>
<div align="left"><br>
<br>
<br>
方法二：EXCEL文件大批量上传法（将EXCEL文件按逐条上传格式对齐整理保存后再上传）
<form name="form2" method="post" action="Down_admin_add1.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28">------------请先选择系列:
<select type="submit" name="class1" id="class1" >
<%set x=server.CreateObject("adodb.recordset")
x.open "select*from class",conn,3,3
if not x.eof then
do while not x.eof%>
<option value="<%=x("cname")%>"><%=x("cname")%></option>
<%x.movenext
loop
end if
%>
</select>
<input type="submit" name="Submit" value="确认,进行excel上传"></td>
</tr>
</table>
<br>
</form>

</div></td>
</tr>
<tr>
<%
stockclass=request("class1")
session("stockclass1")=stockclass
%>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" enctype="multipart/form-data" method="post" action="" onSubmit="return check(this)">
<div>请选择您编辑好的EXCEL文件(<font color="#0000FF">文件大小不能超过</font><font color="#FF3300">2M</font>):
<input type="file" class="t1" name="file">
<input type="submit" class="t1" name="Submit" value=" 上 传 库 存 ">
</div>
</form></td>
</tr>

</table></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
</body>
</html>
<%x.close
set x=nothing
conn.close
set conn=nothing%>
php 缺少对象,Microsoft JScript运行时错误: 缺少对象怎么办？
->缺少if或endif MicrosoftVBscript编译器错误(0x800A03EE)--> 语句未结束(缺少")") MicrosoftVBscript编译器错误(0x800A03F6)-->if语句出错(缺少endif) MicrosoftVBscript运行时错误(0x800A005B)-->缺少set ...
jquery 缺少对象 错误
最近这几天写前端jquery用IE调试老是出现“缺少对象”错误，终于找出来原因了。 网友说，”缺少对象“99%的原因是jquery引用路径访问不到。于是我就去看了我的jquery引用路径，果然问题就出在这里。 柯南说：...
缺少对象 WScript 问题解决方法
缺少对象 WScript 问题解决方法
JavaScript中常见的几种“缺少对象”错误
在JavaScript中，程序调度过程中经常会出现缺少对象错误，这里的对象有时候是变量，有时候是函数，有时候可能是对象等等。 缺少对象错误经常有以下几种情况 1.变量没有定义 使用没定义的变量时就会出在这种...
【面试题-001】什么是面向对象？
面向对象（Object-oriented）是一种程序设计范例，它通过将数据与对数据操作的函数（方法）封装在一起，以对象的形式来组织代码，从而更好地模拟现实世界的事物。面向对象编程的主要概念包括类（Class）、对象...
ASP

28,406

社区成员

356,946

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章