<!--#include file="Inc/SysProduct.asp" --><script language="JavaScript">
<!-- function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
//-->
</script>
<%
MaxPerPage=MaxPerPage_Default
strFileName="Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName
%>
<!-- #include file="Head.asp" -->
<table cellspacing="0" cellpadding="0" width="973" align="center" bgcolor="#f6e4a6" border="0">
<tbody>
<tr>
<td valign="top" align="middle" width="252" background="leftbg.gif" height="200">
<table cellspacing="0" cellpadding="0" width="252" border="0">
<tbody>
<tr>
<td><img height="49" alt="" src="ny_023.jpg" width="252" /></td>
</tr>
</tbody>
</table>
<table style="MARGIN-TOP: 10px" cellspacing="0" cellpadding="0" width="252" border="0">
<tbody>
<tr>
<td><% call ShowSmallClass_Tree() %></td>
</tr>
</tbody>
</table>
<table style="MARGIN-TOP: 13px" cellspacing="0" cellpadding="0" width="217"
border="0">
<tbody>
<tr>
<td><a href="Product.asp?BigClassName=精准印花"><img height="64" alt="" src="ny_07.jpg" width="217" border="0" /></a></td>
</tr>
</tbody>
</table>
<table style="MARGIN: 7px 0px 5px" cellspacing="0" cellpadding="0" width="217"
border="0">
<tbody>
<tr>
<td><img height="67" alt="" src="index_20.jpg" width="216" /></td>
</tr>
</tbody>
</table></td>
<td valign="top" width="721"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td><style>
#contxt {
LINE-HEIGHT: 20px; LETTER-SPACING: 1px
}
#contxt IMG {
MARGIN: 0px 8px
}
</style>
<div id="Title">
<table height="49" cellspacing="0" cellpadding="0" width="721" background="ny_03.jpg" border="0">
<tbody>
<tr>
<td><div
style="FONT-WEIGHT: bold; FONT-SIZE: 14px; MARGIN: 22px 0px 0px 30px; COLOR: #000000">产品展示</div></td>
</tr>
</tbody>
</table>
</div>
<table cellspacing="0" cellpadding="0" width="98%" align="center"
border="0">
<tbody>
<tr style="DISPLAY: none">
<td></td>
</tr>
<tr>
<td><div id="contxt" style="MARGIN: 15px">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="253" height="30"><% call ShowClassGuide() %></td>
<td width="200"></td>
<td width="102"><% call ShowProductTotal() %>
</td>
</tr>
<tr>
<td height="42" colspan="3"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="5" colspan="3"></td>
</tr>
<tr>
<td colspan="3" ><% call ShowProduct(32) %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" colspan="3">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"个产品")
end if
%>
</td>
</tr>
</table>
</div></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<!--#include file="Foot.asp" -->调用的应该是 <% call ShowProduct(32) %>然后调用页面的是:<!--#Include File="Check_Sql.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Function.asp"--><%
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,keyword,strField
dim rs,sql,sqlProduct,rsProduct,sqlSearch,rsSearch,sqlBigClass,rsBigClass
BeginTime=Timer
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
keyword=trim(request("keyword"))
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 ifsqlBigClass="select * from BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1'=================================================
'过程名:ShowSmallClass_Tree
'作 用:树形目录方式显示栏目
'参 数:无
'=================================================
Sub ShowSmallClass_Tree()
%>
<SCRIPT language=javascript>
function opencat(cat,img){
if(cat.style.display=="none"){
cat.style.display="";
img.src="class2.gif";
} else {
cat.style.display="none";
img.src="class1.gif";
}
}
</Script>
<table cellspacing="2" cellpadding="0" width="90%" align="center" border="0">
<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
sql="select * from BigClass"
rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsbig.eof
%>
<TR>
<TD width=24 height=11 ></TD>
<TD ><a href='Product.asp?BigClassName=<%=rsbig("BigClassName")%>'>·<%=rsbig("BigClassName")%></a></TD>
</TR>
<TR>
<TD background="line2.jpg" height="2" colspan="2" ></TD>
</TR>
<TR>
<TD id=cat10<%=i%>000 <%if rsbig("BigClassName")=BigClassName then
response.write "style='DISPLAY'"
else
response.write "style='DISPLAY: none'"
end if%> colspan="2" style=" padding-left:20px;padding-top:5px; padding-bottom:5px;">
<% dim rsSmall,sqls,j
set rsSmall = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass where BigClassName='" & rsbig("BigClassName") & "' order by SmallClassID"
rsSmall.open sqls,conn,1,1
if rsSmall.eof and rsSmall.bof then
Response.Write ""
else
j=1
do while not rsSmall.eof
%>
<IMG height=20 src="img/class3.gif" align=absMiddle border=0><a href="Product.asp?BigClassName=<%=rsSmall("BigClassName")%>&Smallclassname=<%=rsSmall("SmallClassName")%>"><%=rsSmall("SmallClassName")%></a><BR><%
rsSmall.movenext
j=j+1
loop
end if
rsSmall.close
set rsSmall=nothing
%> </TD>
</TR>
<%
rsbig.movenext
i=i+1
loop
rsbig.close
set rsbig=nothing
end if
%>
</TABLE>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;function changelocation(locationid)
{
document.myform.SmallClassName.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>请问我要怎么修改才能达到让产品中心显示的图片达到等比例显示呢?代码可能有段乱。也不知道哪些地方用得着 就都复制上来了。谢谢了。
<!-- function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
//-->
</script>
<%
MaxPerPage=MaxPerPage_Default
strFileName="Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName
%>
<!-- #include file="Head.asp" -->
<table cellspacing="0" cellpadding="0" width="973" align="center" bgcolor="#f6e4a6" border="0">
<tbody>
<tr>
<td valign="top" align="middle" width="252" background="leftbg.gif" height="200">
<table cellspacing="0" cellpadding="0" width="252" border="0">
<tbody>
<tr>
<td><img height="49" alt="" src="ny_023.jpg" width="252" /></td>
</tr>
</tbody>
</table>
<table style="MARGIN-TOP: 10px" cellspacing="0" cellpadding="0" width="252" border="0">
<tbody>
<tr>
<td><% call ShowSmallClass_Tree() %></td>
</tr>
</tbody>
</table>
<table style="MARGIN-TOP: 13px" cellspacing="0" cellpadding="0" width="217"
border="0">
<tbody>
<tr>
<td><a href="Product.asp?BigClassName=精准印花"><img height="64" alt="" src="ny_07.jpg" width="217" border="0" /></a></td>
</tr>
</tbody>
</table>
<table style="MARGIN: 7px 0px 5px" cellspacing="0" cellpadding="0" width="217"
border="0">
<tbody>
<tr>
<td><img height="67" alt="" src="index_20.jpg" width="216" /></td>
</tr>
</tbody>
</table></td>
<td valign="top" width="721"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td><style>
#contxt {
LINE-HEIGHT: 20px; LETTER-SPACING: 1px
}
#contxt IMG {
MARGIN: 0px 8px
}
</style>
<div id="Title">
<table height="49" cellspacing="0" cellpadding="0" width="721" background="ny_03.jpg" border="0">
<tbody>
<tr>
<td><div
style="FONT-WEIGHT: bold; FONT-SIZE: 14px; MARGIN: 22px 0px 0px 30px; COLOR: #000000">产品展示</div></td>
</tr>
</tbody>
</table>
</div>
<table cellspacing="0" cellpadding="0" width="98%" align="center"
border="0">
<tbody>
<tr style="DISPLAY: none">
<td></td>
</tr>
<tr>
<td><div id="contxt" style="MARGIN: 15px">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="253" height="30"><% call ShowClassGuide() %></td>
<td width="200"></td>
<td width="102"><% call ShowProductTotal() %>
</td>
</tr>
<tr>
<td height="42" colspan="3"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="5" colspan="3"></td>
</tr>
<tr>
<td colspan="3" ><% call ShowProduct(32) %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" colspan="3">
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"个产品")
end if
%>
</td>
</tr>
</table>
</div></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<!--#include file="Foot.asp" -->调用的应该是 <% call ShowProduct(32) %>然后调用页面的是:<!--#Include File="Check_Sql.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Function.asp"--><%
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,keyword,strField
dim rs,sql,sqlProduct,rsProduct,sqlSearch,rsSearch,sqlBigClass,rsBigClass
BeginTime=Timer
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
keyword=trim(request("keyword"))
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 ifsqlBigClass="select * from BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1'=================================================
'过程名:ShowSmallClass_Tree
'作 用:树形目录方式显示栏目
'参 数:无
'=================================================
Sub ShowSmallClass_Tree()
%>
<SCRIPT language=javascript>
function opencat(cat,img){
if(cat.style.display=="none"){
cat.style.display="";
img.src="class2.gif";
} else {
cat.style.display="none";
img.src="class1.gif";
}
}
</Script>
<table cellspacing="2" cellpadding="0" width="90%" align="center" border="0">
<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
sql="select * from BigClass"
rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsbig.eof
%>
<TR>
<TD width=24 height=11 ></TD>
<TD ><a href='Product.asp?BigClassName=<%=rsbig("BigClassName")%>'>·<%=rsbig("BigClassName")%></a></TD>
</TR>
<TR>
<TD background="line2.jpg" height="2" colspan="2" ></TD>
</TR>
<TR>
<TD id=cat10<%=i%>000 <%if rsbig("BigClassName")=BigClassName then
response.write "style='DISPLAY'"
else
response.write "style='DISPLAY: none'"
end if%> colspan="2" style=" padding-left:20px;padding-top:5px; padding-bottom:5px;">
<% dim rsSmall,sqls,j
set rsSmall = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass where BigClassName='" & rsbig("BigClassName") & "' order by SmallClassID"
rsSmall.open sqls,conn,1,1
if rsSmall.eof and rsSmall.bof then
Response.Write ""
else
j=1
do while not rsSmall.eof
%>
<IMG height=20 src="img/class3.gif" align=absMiddle border=0><a href="Product.asp?BigClassName=<%=rsSmall("BigClassName")%>&Smallclassname=<%=rsSmall("SmallClassName")%>"><%=rsSmall("SmallClassName")%></a><BR><%
rsSmall.movenext
j=j+1
loop
end if
rsSmall.close
set rsSmall=nothing
%> </TD>
</TR>
<%
rsbig.movenext
i=i+1
loop
rsbig.close
set rsbig=nothing
end if
%>
</TABLE>
<script language = "JavaScript">
var onecount;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("SmallClassName"))%>","<%= trim(rs("BigClassName"))%>","<%= trim(rs("SmallClassName"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;function changelocation(locationid)
{
document.myform.SmallClassName.length = 1;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.SmallClassName.options[document.myform.SmallClassName.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>请问我要怎么修改才能达到让产品中心显示的图片达到等比例显示呢?代码可能有段乱。也不知道哪些地方用得着 就都复制上来了。谢谢了。
参考