我是新手,请帮忙解决一下数据调用的问题
<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"> </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,"'","‘"),"<","<"),">",">")," "," ")
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
%>
<%
应该改哪一个参数?非常感谢!
