高分，解决缺少语句问题

[mysite365]

<%
action=request.QueryString("action")
select case action
case "" %>
<form id="form1" name="form1" method="post" action="sale.asp?action=shop1&nd=number&md=money">
<%
case "shop1"
nd=request.QueryString("nd")
md=request.QueryString("nd")
if nd="" or md="" then
response.Write "<script language='javascript'>alert('请填写购货数量,再继续...！');location.href='sale.asp';</script>"
response.End()
%>
<%
case "shop2" //162行
dim dingdan,time
time=now()
randomize
sml=int(1000000*rnd) mod 1000
dingdan=month(time)&day(time)&hour(time)&minute(time)&second(time)&sml
set rs=server.CreateObject("adodb.recordset")
sql="select * from bout_shop"
rs.open sql,conn,1,3
。。。。。。。。。。。。。。。。。。。


<% end select %>


////////////////////////////////////////////////
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/tea/admin/sale.asp, line 162
case "shop2"

[siwolf1129]

你这种问法，别人好象是不能调试的。不过这种出错一般是匹配出了问题或哪个变量没有定义好。自己好好调试吧。好运

[myvicy]

不一定是这行的错，你把case先取掉，代码保存到别的地方，然后再测试看看。

[myvicy]

把case "shop2"以及他这部分的代码先去掉，然后测试看看。

[ymle1228]

代码全贴出来看看!

[-晴天]

<%  
action=request.QueryString("action") 
select case action 
case "" %> 
<form id="form1" name="form1" method="post" action="sale.asp?action=shop1&nd=number&md=money"> 
<%  
case "shop1" 
nd=request.QueryString("nd") 
md=request.QueryString("nd") 
if nd="" or md="" then 
response.Write " <script language='javascript'>alert('请填写购货数量,再继续...！');location.href='sale.asp'; </script>" 
response.End()  
end if 
%> 
<%  
case "shop2"                               //162行 
dim dingdan,time 
time=now() 
randomize  
sml=int(1000000*rnd) mod 1000 
dingdan=month(time)&day(time)&hour(time)&minute(time)&second(time)&sml 
set rs=server.CreateObject("adodb.recordset") 
sql="select * from bout_shop" 
rs.open sql,conn,1,3 
。。。。。。。。。。。。。。。。。。。 

[-晴天]

在160行加一个 end if

[Anlige]

[Quote=引用 6 楼 qianjin036a 的回复:]
在160行加一个 end if
[/Quote]