| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 239 人关注过本帖
标题:Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 end 没if 啊
只看楼主 加入收藏
oldkelind2
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2021-3-5
收藏
 问题点数:0 回复次数:3 
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 end 没if 啊
<%

%>
<%
if request.Cookies("shiwei_username")="" then
  response.redirect "index.asp"
  response.end
end if
%>
<!-- #include file="conn.asp" -->
<!-- #include file="const.asp" -->
<%
sql="select * from config"
set rs_config=conn.execute(sql)
dianming=rs_config("dianming")
%>

<!-- #include file="inc/function.asp" -->
<%
sql="select * from produit where shulian<baojin"
set rs_produit=conn.execute(sql)
sql="select * from huiyuan where ((month(shenri)>="&month(date())&" and month(shenri)<="&month(date()+tiqian)&") and (day(shenri)>="&day(date())&" and day(shenri)<="&day(date()+tiqian)&") and year(wenhou)<>"&year(date())&" and yinyan='阳') or ((month(shenri)>="&WDateToEDate(now(),"1")&" and month(shenri)<="&WDateToEDate(now()+tiqian,"1")&") and (day(shenri)>="&WDateToEDate(now(),"2")&" and day(shenri)<="&WDateToEDate(now()+tiqian,"2")&") and year(wenhou)<>"&year(date())&" and yinyan='阴')"
set rs_baojin2=conn.execute(sql)
if rs_produit.eof=false and baojin="yes" then
%>
<script language="javascript">
window.open('baojin.asp','库存报警','width=853,height=220,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes');
</script>
<%
end if      

if rs_baojin2.eof=false and baojin2="yes" then
%>
<script language="javascript">
window.open('baojin2.asp','会员生日报警','width=853,height=215,top=431,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes');
</script>
<%
end if      
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
44 <title><%=dianming%> - 后台管理系统</title>    这行
[/color]
</head><frameset rows="63,*,32" cols="*" frameborder="no" border="0" framespacing="0">
  <frame src="top.asp" name="topFrame" scrolling="No" noresize="noresize" id="topFrame" title="topFrame" />
  <frameset rows="*" cols="177,*" framespacing="0" frameborder="no" border="0">
    <frame src="menu.asp" name='left' scrolling='yes' noresize='noresize' />
    <frame src="desk.asp" name='right' scrolling='yes' noresize='noresize' />
  </frameset>
  <frame src="bottom.asp" name="bottomFrame" scrolling="No" noresize="noresize" id="bottomFrame" title="bottomFrame" />
</frameset>
<noframes><body>
</body>
</noframes></html>



Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/main.asp,行 44
搜索更多相关主题的帖子: asp if date and end 
2021-03-10 19:19
oldkelind2
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2021-3-5
收藏
得分:0 
请各位高手帮忙看看,问题出在哪里?谢谢!



2021-03-11 14:59
西岭河
Rank: 2
等 级:论坛游民
帖 子:44
专家分:10
注 册:2021-3-9
收藏
得分:0 
感谢分享 应项目需要急需程序开发员 有意者加QQ845612081
2021-03-24 11:33
静江
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2021-2-8
收藏
得分:0 
44 <title><%=dianming%><%end if%> - 后台管理系统</title>    这行

这样试试
2021-04-17 22:59
快速回复:Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 end 没if ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059678 second(s), 8 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved