网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
lizhonggeng吧 关注：21贴子：2,459

程序代码。麻烦了

只看楼主收藏回复

<!--#include file=inc/conn.asp-->
<!--#include file=top.asp-->
<%
set rs=Server.CreateObject("ADODB.RecordSet")
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><body onload="rotateImage('rImage')">
</head>

<div align="center">

  <table border="0" width="1004" id="table1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
    <!--DWLayoutTable-->
    <tr> 
      <td width="198" height="484" valign="top" background="pic/left-bk.gif"> 
        <table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="198"> <img border="0" src="pic/left-t-broad.gif" width="198" height="49"></td>
          </tr>
          <tr> 
            <td> <div align="center"> 
                <table border="0" width="90%" id="table47" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td align="left" valign="top"><a href="zaixian.asp" target="_blank"><img src="pic/1df.jpg" width="172" height="141" border="0"></a></td>
                  </tr>
                  <tr> 
                    <td align="left" height="30" valign="middle" bgcolor="#FFFFFF"> 
                      <p align="center"> <a href="zaixian.asp" target="_blank">悠蓝水晶泥电视报道 
                        </a></td>
                  </tr>
                </table>
              </div></td>
          </tr>
          <tr> 
            <td align="left"> <img border="0" src="pic/left-t-vote.gif" width="198" height="50"></td>
          </tr>
          <tr> 
            <td align="left"><script language="javascript" src="vote/votedy.asp"></script> 
            </td>
          <tr> 
            <td align="left"><script language="javascript" src="vote/votedy.asp?id=6"></script> 
            </td>
          </tr>
          <tr> 
            <td height="17" valign="top"><script language="javascript" src="vote/votedy.asp?id=7"></script></td>
          </tr>
          <tr> 
            <td height="16"> </td>
          </tr>
          <tr>
            <td height="16" align="center" valign="middle"><a href="seka.asp" target="_blank">水晶泥比色卡</a></td>
          </tr>
          <tr>
            <td height="50"> </td>
          </tr>
          <tr> 
            <td height="88" valign="bottom"><img border="0" src="pic/buttom-down.gif" width="198" height="88"></td>
          </tr>
        </table></td>
      <td width="580" valign="top"> <table border="0" width="100%" id="table28" cellspacing="0" cellpadding="0">
          <!--DWLayoutTable-->
          <tr> 
            <td width="580"> </td>
          </tr>
          <tr> 
            <td> <div align="center"> 
                <table border="0" width="98%" id="table37" cellspacing="0" cellpadding="0">
                  <!--DWLayoutTable-->
                  <tr> 
                    <td width="284" height="72" valign="top"> <table border="0" width="100%"  cellspacing="0" id="table38">

1楼2006-07-02 09:33回复
    好的，把出错页面的代码全部发上来吧，然后把出错信息发上来
    IP属地:山东6楼2006-07-02 09:35
    回复
      你现在发的似乎和刚才在知道发的不是一样的吧 -_-||
      IP属地:山东7楼2006-07-02 09:38
      回复
        我上传到空间了。这里好想发不下。
        http://www.gino99.com/daima.rar
        8楼2006-07-02 09:39
        回复
          一个是主页文件，一个是出错的代码信
          9楼2006-07-02 09:39
          回复
            好的，我下载下来看看，那个页面的文件名是什
            IP属地:山东10楼2006-07-02 09:39
            回复
              你这样改：

              先在第4后加一行：
              set rs2=Server.CreateObject("ADODB.RecordSet")
              然后把126行到140行改成这样

              <%
               if request("id")><"" then
               sql= "select * from product where id="&request("id")
               rs2.open sql,conn,1,1
               else
               sql= "select * from product where p_lb="&lb&" order by p_sort "
               rs2.open sql,conn,1,1 
               end if
               if rs2.recordcount>0 then
               
                 %><a href=# onclick=mClk_win("show-product.asp?id=<%=rs2("id")%>","","750","550")><div align="center"><img border="0" src=<%=rs2("picb")%> align="center" width="100" height="100" ></div></a><% 
              else 
              response.write "暂无图片!" 
              end if 
              %>


              试一试吧，嘿嘿
              IP属地:山东11楼2006-07-02 09:43
              回复
                Microsoft VBScript 编译器错误 错误 '800a03f6' 

                缺少 'End' 

                /iisHelp/common/500-100.asp，行242 

                Microsoft VBScript 运行时错误 错误 '800a01a8' 

                缺少对象: 'rs2' 

                /index1.asp，行131
                12楼2006-07-02 09:45
                回复
                  没看前面，== 我在修改一
                  13楼2006-07-02 09:45
                  回复
                    Microsoft VBScript 编译器错误 错误 '800a03f6' 

                    缺少 'End' 

                    /iisHelp/common/500-100.asp，行242 

                    Microsoft JET Database Engine 错误 '80040e14' 

                    语法错误 (操作符丢失) 在查询表达式 'p_lb=' 中。 

                    /index1.asp，行132 

                    改完是这个
                    14楼2006-07-02 09:46
                    回复
                      我看看稍
                      IP属地:山东15楼2006-07-02 09:47
                      回复
                        sql= "select * from product where p_lb="&lb&" order by p_sort "

                        里面的lb你是怎么取的能告诉我吗，我看你这个页面没定义这个变量，所以肯定是出错
                        IP属地:山东16楼2006-07-02 09:49
                        回复
                          好的。麻烦了
                          17楼2006-07-02 09:49
                          回复
                            lb 变量没有取数，所以错误，你能告诉我这个“类别”变量怎么取数吗？要不我没法改
                            IP属地:山东18楼2006-07-02 09:50
                            回复
                              这是LB原来的文件， 也是产品展示的页面，。这个正常使用。
                              http://www.gino99.com/daima2.rar
                              19楼2006-07-02 09:53
                              回复

                                扫二维码下载贴吧客户端

                                下载贴吧APP
                                看高清直播、视频！
                                发表回复
                                发贴请遵守贴吧协议及“七条底线”贴吧投诉
                                内  容:
                                  查看全部
                                发 表
                                保存至快速回贴