| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 304 人关注过本帖
标题:我是新手,请帮忙解决一下数据调用的问题
取消只看楼主 加入收藏
mayne
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-8-14
结帖率:0
收藏
已结贴  问题点数:20 回复次数:0 
我是新手,请帮忙解决一下数据调用的问题
<table width="720" border="0" cellpadding="0" cellspacing="0" align="center">
              <tr>
              <td align="left" valign="top"><table width="99%" border="0" cellspacing="1" cellpadding="0">
                  <tr>
                      <td width="95%" align="left">
                        <!--#include file="imgxy.asp"-->
                        <% call ShowArticle1_en(32,3) %>
                      </td>
                  </tr>
                  <tr>
                    <td
                  height=1 align="left" bgcolor="#F9F9F9"><span class="lanu"> </span>
                        <%
          if totalput>0 then
              call showpage_en(strFileName_en,totalput,MaxPerPage,false,true,"")
          end if
          %></td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td height="18" valign="top">&nbsp;</td>
            </tr>
          </table>

这个堆代码,我想调用我的英文版产品,但是点击的时候还是中文版的内容,请问我在syscode的文件里,
<%
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,BigClassName_en,SmallClassName_en,SpecialName,keyword,strField
dim rs,sql,sqlArticle,sqlArticle0,sqlArticle1,sqlDown,sqlNews,rsArticle,rsDown,rsNews,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlBigClass_Down,sqlBigClass_News,sqlSpecial,rsSpecial
dim SpecialTotal


dim fastrFileName,faMaxPerPage,faShowSmallClassType
dim fatotalPut,faCurrentPage,faTotalPages
dim faBeginTime,faEndTime
dim fafounderr, faerrmsg
dim faBigClassName,faSmallClassName,faSpecialName,fakeyword,fastrField
dim fars,fasql,fasqlArticle,fasqlDown,farsArticle,farsDown,fasqlSearch,farsSearch,fasqlBigClass,farsBigClass,fasqlBigClass_Down,fasqlSpecial,farsSpecial
dim faSpecialTotal


BeginTime=Timer
faBeginTime=Timer
BigClassName=Trim(request("BigClassName"))
BigClassName_en=Trim(request("BigClassName_en"))
faBigClassName=Trim(request("FA_BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
SmallClassName_en=Trim(request("SmallClassName_en"))
faSmallClassName=Trim(request("FA_SmallClassName"))
SpecialName=trim(request("SpecialName"))
faSpecialName=trim(request("SpecialName"))
keyword=trim(request("key"))
fakeyword=trim(request("key"))
if keyword<>"" then
    keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","&lt;"),">","&gt;")," ","&nbsp;")
end if
strField=trim(request("Field"))

if request("page")<>"" then
    currentPage=cint(request("page"))
else
    currentPage=1
end if

sqlBigClass="select * from BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1

fasqlBigClass="select * from FA_BigClass order by BigClassID"
Set farsBigClass= Server.CreateObject("ADODB.Recordset")
farsBigClass.open fasqlBigClass,conn,1,1

sqlBigClass_News="select * from BigClass_News order by BigClassID"
Set rsBigClass_News= Server.CreateObject("ADODB.Recordset")
rsBigClass_News.open sqlBigClass_Down,conn,1,1

sqlBigClass_Down="select * from BigClass_Down order by BigClassID"
Set rsBigClass_Down= Server.CreateObject("ADODB.Recordset")
rsBigClass_Down.open sqlBigClass_Down,conn,1,1

fasqlBigClass_Down="select * from FA_BigClass_Down order by BigClassID"
Set farsBigClass_Down= Server.CreateObject("ADODB.Recordset")
farsBigClass_Down.open fasqlBigClass_Down,conn,1,1
%>
<%
'=================================================
'过程名:ShowSmallClass_Tree1
'作  用:树形目录方式显示栏目
'参  数:无
'关键词:产品列表
'=================================================
%>
<%
Sub ShowSmallClass_Tree1()
%>
<SCRIPT language=javascript>
function opencat(cat,img){
    if(cat.style.display=="none"){
    cat.style.display="";
    img.src="images/icon_news.gif";
    }    else {
    cat.style.display="True";
    img.src="images/icon_news.gif";
    }
}
</Script>
<TABLE cellSpacing=0 cellPadding=0 width="200" border=0>
<%
dim i
if rsBigClass.eof and rsBigClass.bof then
    Response.Write "栏目正在建设中……"
else
    i=1
    do while not rsBigClass.eof
%>

<TR style="CURSOR: hand" language=javascript onmouseup="opencat(cat10<%=i%>000, img10<%=i%>000);" id=item$pval[catID])>
        <TD width=40 height=30 align=center style="CURSOR: hand"><IMG id=img10<%=i%>000 src="images/icon_news.gif" alt="展开列表" width=22 height=18></TD>
        <TD width="180" align=left><a href='Product_en.asp?BigClassName_EN=<%=rsBigClass("BigClassName_EN")%>' class="titlepro"><%=rsBigClass("BigClassName_EN")%></a></TD>
    </TR>
<TR><TD align=middle background=images/index-6_1.gif colSpan=2 height=2></TD></TR>
    <TR>
        <TD id=cat10<%=i%>000 style="DISPLAY: none" colspan="2">
<%
dim rss,sqls,j
set rss = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass where BigClassName_EN='" & rsBigClass("BigClassName_EN")& "' order by SmallClassID"
rss.open sqls,conn,1,1
if rss.eof and rss.bof then
    Response.Write ""
else
    j=1
    do while not rss.eof
%>
<table width="200" border="0" cellspacing="0" cellpadding="0">
                <tr bgcolor=#85CBFE valign="middle" onMouseOver='JavaScript:this.style.backgroundColor="#63BCFE"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
                  <td width="30" height="30" align="center"><img src="images/u_03.gif" width="4" height="5"></td>
                  <td width="170" align=left><a href="Product_en.asp?BigClassName_EN=<%=rss("BigClassName_EN")%>&Smallclassname_EN=<%=rss("SmallClassName_EN")%>" class="lan_title"><%=rss("SmallClassName_EN")%></a></td>
                </tr>
                <tr>
            <td height="1" colspan="2"></td>
          </tr>
              </table>
<%
    rss.movenext
    j=j+1
    loop
end if
rss.close
set rss=nothing
%>
        </TD>
    </TR>
<%
    rsBigClass.movenext
    i=i+1
    loop
end if
%>
</TABLE>
<%
end Sub
%>
<%
'=================================================
'过程名:ShowSmallClass_Tree
'作  用:树形目录方式显示栏目
'参  数:无
'关键词:产品列表
'=================================================
%>
<%
Sub ShowSmallClass_Tree()
%>
<SCRIPT language=javascript>
function opencat(cat,img){
    if(cat.style.display=="none"){
    cat.style.display="";
    img.src="img/class2.gif";
    }    else {
    cat.style.display="True";
    img.src="img/class1.gif";
    }
}
</Script>
<TABLE cellSpacing=0 cellPadding=0 width="186" border=0>
<%
dim i
if rsBigClass.eof and rsBigClass.bof then
    Response.Write "栏目正在建设中……"
else
    i=1
    do while not rsBigClass.eof
%>
    <TR bgcolor="#633E34">
        <TD width=26 height=30 align=center language=javascript onmouseup="opencat(cat10<%=i%>000, img10<%=i%>000);" id=item$pval[catID]) style="CURSOR: hand"><IMG id=img10<%=i%>000 src="img/class1.gif" width=7 height=7></TD>
        <TD width="146" align="left" class='ML_Tdbg'><a href='Product_en.asp?BigClassName=<%=rsBigClass("BigClassName")%>' class="bt1"><%=rsBigClass("BigClassName")%></a></TD>
        <td width="14" align="left"><img src="images/dian5.gif" width="5" height="5"></td>
    </TR>

<tr>
            <td height="1" colspan="3" bgColor=#865947></td>
          </tr>
    <TR>
        <TD id=cat10<%=i%>000 style="DISPLAY: none" colspan="3" bgColor=#865947>
<%
dim rss,sqls,j
set rss = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName")& "' order by SmallClassID"
rss.open sqls,conn,1,1
if rss.eof and rss.bof then
    Response.Write " 没有小分类"
else
    j=1
    do while not rss.eof
%>
<table width="186" border="0" cellspacing="0" cellpadding="0">
                <tr valign="middle" onMouseOver='JavaScript:this.style.backgroundColor="#633E34"' onMouseOut='JavaScript:this.style.backgroundColor=""'>
                  <td width="26" height="30" align="center"><img src="images/dian2.gif" width="4" height="7"></td>
                  <td width="146"><a href="Product_en.asp?BigClassName=<%=rss("BigClassName")%>&Smallclassname=<%=rss("SmallClassName")%>" class="bt"><%=rss("SmallClassName")%></a></td>
                  <td width="14"><img src="images/dian5.gif" width="5" height="5"></td>
                </tr>
                <tr>
            <td height="1" colspan="3"><img src="images/line.jpg" width="186" height="1"></td>
          </tr>
              </table>
<%
    rss.movenext
    j=j+1
    loop
end if
rss.close
set rss=nothing
%>
        </TD>
    </TR>
<%
    rsBigClass.movenext
    i=i+1
    loop
end if
%>
</TABLE>
<%
end Sub
%>
<%
应该改哪一个参数?非常感谢!
搜索更多相关主题的帖子: asp代码求助 
2009-08-14 16:03
快速回复:我是新手,请帮忙解决一下数据调用的问题
数据加载中...
 
   



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

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