28,406
社区成员
发帖
与我相关
我的任务
分享下面的内容缺少了什么东西?
Microsoft VBScript 编译器错误 '800a0400'
缺少语句
\admin\productAdd.asp, line 4
<!--#include file="../ADOVBS.INC" -->
<!--#include file="../Connections/gamelink.asp" -->
<%
//If Session("Passed") <> true Then
//session("backurl")=request.ServerVariables("http_referer")
//response.redirect "checkpwd.asp"
//end if
RS.Source = "SELECT * FROM tProduct"
RS.CursorType = 3
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
RS.AddNew
rs("BoardID")=trim(request("BoardID"))
rs("ProductName")=trim(request("ProductName"))
rs("PCBAPARTNUMBER")=trim(request("PCBA"))
rs("PCBAHPARTNUMBER")=trim(request("PCBAH"))
rs("SOFTWAREVERSION")=trim(request("SW"))
rs("CHIP")=trim(request("CHIP"))
rs("LCD")=trim(request("LCD"))
RS.update
RS.close
RS.Source = "SELECT * FROM tProduct order by ProductID desc"
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
%>
<html>
<head>
<title>Product Add Ok</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="2">
<!--#include file="headrd2.asp" -->
<br>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="150" valign="top" align="center" bgcolor="#DCE4F7">
<p><img src="IMAGES/user.jpg" width="150" height="300"></p>
<p> </p>
<p> </p>
</td>
<td width="610" valign="top" align="center">
<table width="600" border="1" cellspacing="2" cellpadding="2" align="center"
bordercolordark="#FFFFFF" bordercolorlight="#bbbbbb">
<tr>
<td colspan="3" height="30" align="center" bgcolor="#CCCCCC">上传成功</td>
</tr>
<tr>
<td rowspan="7" width="150" align="center"> </td>
<td width="100">产品名称：</td>
<td width="350"> <%=(RS.Fields.Item("ProductName").Value)%></td>
</tr>
<tr>
<td>CHIP：</td>
<td><%=(RS.Fields.Item("CHIP").Value)%></td>
</tr>
<tr>
<td>LCD：</td>
<td><%=(RS.Fields.Item("LCD").Value)%></td>
</tr>
<tr>
<td>PCBA：</td>
<td><%=(RS.Fields.Item("PCBAPARTNUMBER").Value)%></td>
</tr>
<tr>
<td>PCBAH：</td>
<td><%=(RS.Fields.Item("PCBAHPARTNUMBER").Value)%></td>
</tr>
<tr>
<td>SW：</td>
<td><%=(RS.Fields.Item("SOFTWAREVERSION").Value)%></td>
</tr>
<tr>
<td>上传时间：</td>
<td> <%=(RS.Fields.Item("Time").Value)%></td>
</tr>
<tr align="center">
<td colspan="2" height="25"></td>
</tr>
<tr align="center" bgcolor="#EEEEEE">
<td colspan="3" height="25" class="t9">|------ <a href="ProductNew.ASP">继续上
传</a>
------|------ <a href="productList.ASP">列表</a> ------|</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<br>
<!--#include file="copyright.asp" -->
</body>
<%
RS.Close()
Function Adjust_txt(adj_str)
dim final_str, i
adj_str=replace(adj_str,"<","<")
adj_str=replace(adj_str,">",">")
adj_str=replace(adj_str,chr(13),"<br>")
adj_str=replace(adj_str,chr(10),"")
Adjust_txt =Trim(adj_str)
End Function
%>
缺少语句
\admin\productAdd.asp, line 4
<!--#include file="../ADOVBS.INC" -->
<!--#include file="../Connections/gamelink.asp" -->
<%
//If Session("Passed") <> true Then
//session("backurl")=request.ServerVariables("http_referer")
//response.redirect "checkpwd.asp"
//end if
RS.Source = "SELECT * FROM tProduct"
RS.CursorType = 3
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
RS.AddNew
rs("BoardID")=trim(request("BoardID"))
rs("ProductName")=trim(request("ProductName"))
rs("PCBAPARTNUMBER")=trim(request("PCBA"))
rs("PCBAHPARTNUMBER")=trim(request("PCBAH"))
rs("SOFTWAREVERSION")=trim(request("SW"))
rs("CHIP")=trim(request("CHIP"))
rs("LCD")=trim(request("LCD"))
RS.update
RS.close
RS.Source = "SELECT * FROM tProduct order by ProductID desc"
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
%>
<html>
<head>
<title>Product Add Ok</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="2">
<!--#include file="headrd2.asp" -->
<br>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="150" valign="top" align="center" bgcolor="#DCE4F7">
<p><img src="IMAGES/user.jpg" width="150" height="300"></p>
<p> </p>
<p> </p>
</td>
<td width="610" valign="top" align="center">
<table width="600" border="1" cellspacing="2" cellpadding="2" align="center"
bordercolordark="#FFFFFF" bordercolorlight="#bbbbbb">
<tr>
<td colspan="3" height="30" align="center" bgcolor="#CCCCCC">上传成功</td>
</tr>
<tr>
<td rowspan="7" width="150" align="center"> </td>
<td width="100">产品名称：</td>
<td width="350"> <%=(RS.Fields.Item("ProductName").Value)%></td>
</tr>
<tr>
<td>CHIP：</td>
<td><%=(RS.Fields.Item("CHIP").Value)%></td>
</tr>
<tr>
<td>LCD：</td>
<td><%=(RS.Fields.Item("LCD").Value)%></td>
</tr>
<tr>
<td>PCBA：</td>
<td><%=(RS.Fields.Item("PCBAPARTNUMBER").Value)%></td>
</tr>
<tr>
<td>PCBAH：</td>
<td><%=(RS.Fields.Item("PCBAHPARTNUMBER").Value)%></td>
</tr>
<tr>
<td>SW：</td>
<td><%=(RS.Fields.Item("SOFTWAREVERSION").Value)%></td>
</tr>
<tr>
<td>上传时间：</td>
<td> <%=(RS.Fields.Item("Time").Value)%></td>
</tr>
<tr align="center">
<td colspan="2" height="25"></td>
</tr>
<tr align="center" bgcolor="#EEEEEE">
<td colspan="3" height="25" class="t9">|------ <a href="ProductNew.ASP">继续上
传</a>
------|------ <a href="productList.ASP">列表</a> ------|</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<br>
<!--#include file="copyright.asp" -->
</body>
<%
RS.Close()
Function Adjust_txt(adj_str)
dim final_str, i
adj_str=replace(adj_str,"<","<")
adj_str=replace(adj_str,">",">")
adj_str=replace(adj_str,chr(13),"<br>")
adj_str=replace(adj_str,chr(10),"")
Adjust_txt =Trim(adj_str)
End Function
%>
...全文
请发表友善的回复…
发表回复
jypcxgzl 2009-07-29
- 打赏
- 举报
你把那么大的一段代码贴出来，谁有这么长时间看啊？我估计肯定是少个对象，如if的 endif等
在我们使用电脑的过程中，有时会遇到一些特定的错误提示，比如“emp.dll文件缺失”。这样的提示对许多用户来说可能一脸懵逼，不知道怎么处理，那么，究竟什么是emp.dll？...下面我们一起来看看吧。
