以下是源码,在倒数第15行左右,附近位置有问题
单鼠标按下订单删除,订单确认,订单发送设置时候老报错!这是为什么啊
出现了运行时间错误.
是否要进行调试?
行218
错误:'document.frmoderfather.subok'为空或不是对象
<% Option Explicit %>
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：订单处理提交页
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
%>
<!-- #include virtual="/admin/orderForm/_lib/orderform_lib.asp" -->
<!-- #include virtual="/admin/orderForm/oderdetails.asp" -->
<%
Dim RS,Sql,sAdminid,sunGrade,prors,receiverRS,subrs
Dim sStartPage,sPageNum,sRecordNum,i,sOrderid,sim
DB_Connect(strconn)
'---验证身份----
Call AdminCheck
sOrderid=getForm("orderid")
sStartPage=request("stp")
Set RS=oConn.Execute("select * from t_UserOrderCon where Odr_no='"&sOrderid&"'")
if rs.eof and rs.bof then
rs.close
response.redirect("index.asp")
response.end
End if
%>
<HTML>
<HEAD>
<title>网</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="/inc/css/pub.css" TYPE="TEXT/CSS">
</HEAD>
<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include virtual="/admin/inc/all_top.asp" -->
<!--#include virtual="/admin/inc/all_first_top.asp" -->
<!--#include virtual="/admin/inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
<TR>
<TD COLSPAN=3><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0 ALT=""></TD>
</TR>
<TR>
<TD WIDTH=170 ALIGN=right VALIGN=top>
<!--#include virtual="/admin/inc/default_left.asp" -->
</TD>
<TD WIDTH=20><IMG SRC="/images/dot.gif" WIDTH="20" HEIGHT="1" BORDER=0 ALT=""></TD>
<TD WIDTH=520 VALIGN=top CLASS=txt >
<HR SIZE=1>
<%
if not rs.eof and not rs.bof then
set prors=oConn.execute("select b.Ste_name,a.List_num,a.Ste_Price from t_UserOrderDetail a,t_GoodsCon b where a.Ste_id=b.Ste_id and a.Odr_no='"&sOrderid&"'")
if not prors.eof and not prors.bof then%>
<FORM name="frmoderfather" METHOD=POST ACTION="oderdetails.asp">
<input type="hidden" name="odrid" value="<% response.write sOrderid%>">
<TABLE CELLSPACING=1 CELLPADDING=1 BORDER=0 WIDTH=100%>
<TR BGCOLOR=#558BFF>
<TD ALIGN=center CLASS=txt width="7%"><FONT COLOR=#ffffff>序号</FONT></TD>
<TD ALIGN=center CLASS=txt width="21%"><FONT COLOR=#ffffff>订购物品名称</FONT></TD>
<TD ALIGN=center CLASS=txt width="15%"><FONT COLOR=#ffffff>订购数量</FONT></TD>
<TD ALIGN=center CLASS=txt width="13%"><font color="#FFFFFF">价格</font></TD>
</TR>
<%
i=1
do while not prors.eof
%>
<TR BGCOLOR=#E1E1E1>
<TD ALIGN=center CLASS=txt width="7%"><% response.write i%></TD>
<TD ALIGN=center CLASS=txt width="21%"><% response.write prors("ste_name")%></TD>
<TD ALIGN=center CLASS=txt width="15%"><% response.write prors("List_num")%></TD>
<TD ALIGN=center CLASS=txt width="13%"><% response.write prors("Ste_Price")%></TD>
</TR>
<%
prors.movenext
i=i+1
loop
prors.close %>
</TABLE>
<HR SIZE=1>
<% end if %>
<TABLE WIDTH=100% BORDER=1 cellspacing="0" cellpadding="3" bordercolordark="#ffffff" bordercolorlight="#666666">
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">接收者姓名：</font></TD>
<TD width="77%"><%response.write RS("Odr_recName")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">接收者Email：</font></TD>
<TD width="77%"><%response.write RS("Odr_email")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">接收者电话：</font></TD>
<TD width="77%"><%response.write RS("Odr_phone")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">接收者地址：</font></TD>
<TD width="77%"><%response.write RS("Odr_Address")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">接收者地址：</font></TD>
<TD width="77%"><%response.write RS("Odr_Address")%></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">订单发送状态：</font></TD>
<TD width="77%"><% select case cint(RS("Odr_sendstate"))
Case 1 response.write "全部"
Case 0 response.write "未发送"
End select %></TD>
</TR>
<TR>
<TD ALIGN=right CLASS=txt width="23%" bgcolor="#E1E1E1"><font color="#000000">订购单确认：</font></TD>
<TD width="77%">
<% if cint(RS("Odr_ispass"))=1 then response.write "Y" %>
<% if cint(RS("Odr_ispass"))=0 then response.write "N" %></TD>
</TR>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<hr size=1>
<input type="hidden" name="subok" value="">
'<a href=orderdetails.asp?action=del&id=<%=id(i)%>><font color="red" onClick="return confirm('您确定要进行删除操作吗？')">删除</font></a>
<input type="button" name="gogook" value="订单删除" onclick="javascript:if(confirm('确认删除吗?')){document.frmoderfather.subok.value='订单删除';document.frmoderfather.submit()}">
<input type="button" name="gogook" value="订单确认" onclick="javascript:document.frmoderfather.subok.value='订单确认';document.frmoderfather.submit();">
<input type="button" name="gogook" value="订单发送设置" onclick="javascript:document.frmoderfather.subok.value='订单发送设置';document.frmoderfather.submit();">
</td>
</tr>
</table>
<BR>
</FORM>
<% End if
rs.close %>
</TD>
</TR>
</TABLE>
<BR>
<!--#include virtual="/inc/default_end.asp" -->
<BR>
</BODY>
</HTML>
