| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 640 人关注过本帖
标题:报错,Expected 'End'那位高手帮忙看一下
只看楼主 加入收藏
shangxisen
Rank: 2
等 级:论坛游民
帖 子:29
专家分:46
注 册:2010-3-20
结帖率:80%
收藏
 问题点数:0 回复次数:1 
报错,Expected 'End'那位高手帮忙看一下
代码是<!--#include File="include/connect_db.asp"-->
<!--#include File="include/connect_db_ly.asp"-->
<!--#include virtual="/include/checkQuery.asp"-->
<%
session("url")="index.asp"
%>
<html>
<head>
<title>国别数据</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="life.css" rel="stylesheet" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">



<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><iframe  width="100%" height="120" src="common/top.htm" frameborder="0" scrolling="no" >网页表头</iframe></TD>
  </tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="common/images/top_bg2.gif">
  <tr>
    <td width="600" valign="top">
    <%
    tt=request.querystring("tt")
    country=request("p_coun")
    set Rs=server.CreateObject("adodb.recordset")
    if country="" then
    sqlstr="select top 10 id,标题,国家,信息时间,分类  from 期刊表 where 分类=3  order by 信息时间 desc"
    else
    sqlstr="select top 10 id,标题,国家,信息时间,分类  from 期刊表 where 分类=3 and 国家='"&country&"' order by 信息时间 desc"
    end if

    rs.Open sqlstr,conn,1,1
    i=1   
    if rs.eof And rs.bof then
      Response.Write ""
    else
    %>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="582"><div align="center"><a href="new/index.asp"><img src="images/title_01.GIF" width="582" height="31" border="0"></a></div></td>
        </tr>
        <tr>
<td><table width="168" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="8"><img src="images/dot.gif" width="1" height="1"></td>
              </tr>
            </table>
            <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td valign="top">
                <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg_txt.gif">
                    <%
                   do while not rs.eof
                   Title=rs("标题")
                   country=rs("国家")
                   Idate=rs("信息时间")
                   id=rs("id")
                   fenlei=rs("分类")
                   %>
                    <tr>
                      <td width="15" height="22" bgcolor="#FFFFFF"><div align="center"><img src="images/dot_t.gif" width="3" height="3"></div></td>
                      <td width="102"  height="22">[<%=country%>]</td>
<%
dim Rs1
set Rs1=server.CreateObject("adodb.recordset")
sqlstr1="select * from db_news where 期刊编号="&id
//db_news表中的期刊编号与期刊表中的id号相同
Rs1.Open SqlStr1,conn,1,3
news_id=Rs1("news_id")
%>
                      <td width="389"><a href="new/view.asp?news_id=<%=news_id%>" target="_blank"><%=title%></a>
                        <font color="#0000FF">
<%
Rs1.close
set Rs1=nothing
%>
                        <%if (datevalue(now())-Idate)<5 then%>
                        <img src="images/new0.gif" width="28" height="11" hspace="3" align="absmiddle">
                        <%end if%>
                      </font></td>
                      <td width="62"><font color="#0000FF"><%=Idate%></font></td>
                    </tr>
                    <%
                    i=i+1
                    rs.movenext
                    loop
                    %>
                    <tr bgcolor="#FFFFFF">
                      <td height="22"> </td>
                      <td height="22" colspan="3">
                        <%if i>10 then%>
                        <div align="right"><a href="new/index.asp">更多&gt;&gt;&gt;</a>&nbsp;&nbsp;</div>
                        <%end if%>
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
            </tr>
      </table>
那位高手能帮忙看一下,急用,在线等,谢谢
搜索更多相关主题的帖子: Expected End 
2010-07-27 13:16
魏兴耀
Rank: 8Rank: 8
来 自:江西
等 级:蝙蝠侠
威 望:3
帖 子:246
专家分:840
注 册:2009-11-9
收藏
得分:0 
请问是那一行错了呢?还有,你是想做什么呢?这些都要说清楚的啊,这么大一堆代码

只有大胆尝试,才有机会得到想要的成功
2010-07-28 07:52
快速回复:报错,Expected 'End'那位高手帮忙看一下
数据加载中...
 
   



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

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