国内注册的域名是www.kindly-tech.com
国外注册的域名是www.kindly-tech.net
图片一:图片二:
图片二是正常可以显示的,在国内注册的域名,使用国内空间;
图片一是不能显示的,在国外注册的域名,使用国外空间.
请大家帮帮忙,告诉我这是什么原因,如何修改?谢谢!
需要显示的加。注意服务器端包含文件会导致重复添加,而重复添加是不允许的(即这行代码只能在执行流程中出现一次而且必须在最前头)。
你好,我只是在一个文件里加了那一行,其他文件没有加,不过,我对你所说的会重复不太明白,请问能否详细说说?
另外,还有个问题,就是产品导航栏的问题,产品类别的字符一多的话,就会自动分成两行,如图:
我想实现这样的:让产品类别的描述字符如果太长,那就自动缩小字体,这样就不会分成两行了,请教如何来实现?
请问具体是加在哪个文件的什么位置呢?是否是加在这段里面,如果是的话,请问加在什么地方?谢谢!
'=================================================
'过程名:ShowSmallClass_Tree
'作 用:树形目录方式显示栏目
'参 数:无
'=================================================
sub ShowSmallClass_Tree()
%>
<SCRIPT language=javascript>
function open1cat(cat,img){
cat=document.getElementById(cat);
img=document.getElementById(img);
//alert(cat)
if(cat.style.display=="none"){
cat.style.display="";
img.src="pic/dot_2.gif";
} else{
cat.style.display="none";
img.src="pic/dot_1.gif";
}
}
</Script>
<%
i=1
sql="select * from FirstClass"
set rsFirstClass= server.CreateObject ("adodb.recordset")
rsFirstClass.open sql,conn,1,1
'response.Write(rsFirstClass("FirstClassName"))
if rsFirstClass.bof and rsFirstClass.eof then
response.Write "Columns are under construction "
else
dim sqlClass,rsClass,strTree,BigClassNum,i,j
'FirstClassNum=rsFirstClass.recordcount
'i=1
strTree= strTree & "<table width=175 border=0 cellpadding=0 cellspacing=0>"
do while not rsFirstClass.eof
'response.Write(firstclassname)
sqlBigClass="select * from BigClass where FirstClassName='"& rsFirstClass("FirstClassName") &"'"
'response.Write(sqlBigClass)
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1
BigClassNum=0
if not rsBigClass.eof and not rsBigClass.bof then
BigClassNum=rsBigClass.recordcount
end if
bignum=0
dim rsBigNum,sqlBigNum
sqlBigNum="select * from Product where FirstClassName='"&rsFirstClass("FirstClassName")& "'"
Set rsBigNum= Server.CreateObject("ADODB.Recordset")
rsBigNum.open sqlBigNum,conn,1,1
if not rsBigNum.eof and not rsBigNum.eof then
bignum=rsBigNum.recordcount
end if
rsBigNum.close
set rsBigNum=nothing
j=1
strTree= strTree & "<tr><td><table><tr>"
strTree= strTree & "<td width=2 height=22>"
'if rsFirstClass("FirstClassName")=FirstClassName then
'strTree= strTree & "<div align=center><img src=pic/dot_2.gif></div></td>"
'else
if bignum=0 then
' strTree= strTree & "<div align=center><img src='pic/dot_1.gif' id='img"&i&"'></div></td>"
strTree= strTree & "<div align=center><img src='pic/dot_1.gif' id='img"&i&"' onclick=""open1cat ('first"&i&"','img"&i&"');""></div></td>"
else
strTree= strTree & "<div align=center><img src='pic/dot_1.gif' id='img"&i&"' onclick=""open1cat ('first"&i&"','img"&i&"');""></div></td>"
end if
'end if
strTree= strTree & "<td align=left>"
strTree= strTree & "<a href='product.asp?FirstClassName=" & rsFirstClass("FirstClassName") & "'>"
strTree=strTree & rsFirstClass("FirstClassName")&"("&bignum&")"
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr></table><td></tr><tr>"
strTree=strTree & "<TD height=1 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
'response.Write(rsBigClass("BigClassName"))
'response.End()
'if FirstClassName=rsFirstClass("FirstClassName") then
' strTree=strTree&"<tr id=first"&i&"><td>"
'strTree=strTree&"<tr id=first"&i&"><td>"
'else
strTree=strTree&"<tr id=first"&i&" style='display:none'><td>"
'strTree=strTree&"<tr id=first"&i&" ><td>"
'end if
if not rsBigClass.eof and not rsBigClass.bof then
do while not rsBigClass.eof
sqlClass="select * from SmallClass where FirstClassName='"& rsFirstClass("FirstClassName") &"' and BigClassName='"& rsBigClass("BigClassName")&"' Order by smallClassID"
'response.Write(sqlClass)
'response.End()
Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
rsSmallClass.open sqlClass,conn,1,1
SmallClassNum=0
if not rsSmallClass.eof and not rsSmallClass.bof then
SmallClassNum=rsSmallClass.recordcount
end if
SmallNum=0
dim rsSmallNum,sqlSmallNum
sqlSmallNum="select * from Product where FirstClassName='"&rsFirstClass("FirstClassName")& "' and BigClassName='"&rsBigClass("BigClassName")&"'"
Set rsSmallNum= Server.CreateObject("ADODB.Recordset")
rsSmallNum.open sqlSmallNum,conn,1,1
if not rsSmallNum.eof and not rsSmallNum.eof then
Smallnum=rsSmallNum.recordcount
end if
rsSmallNum.close
set rsSmallNum=nothing
strTree= strTree & "<table border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr><td><table><tr>"
strTree= strTree & "<td width=35 height=22>"
strTree= strTree & "<div align=center><img src=img/class3.gif ></div></td>"
strTree= strTree & "<td width=140 style='border-Bottom:rgb (153,153,51) 1px solid;'>"
strTree= strTree & "<a href='product.asp?FirstClassName=" & rsBigClass("FirstClassName") & "&BigClassname=" & rsBigClass("BigClassname") & "'>"
strTree=strTree & rsBigClass("BigClassname")&"("&Smallnum&")"
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr></table><td></tr><tr>"
strTree=strTree & "<TD height=1 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
if not rsSmallClass.eof and not rsSmallClass.bof then
if BigClassName=rsBigClass("BigClassName") then
strTree=strTree&"<tr id='first'"&i&j&"'><td>"
else
strTree=strTree&"<tr id='first'"&i&j&"' style='display:none'><td>"
end if
Do while not rsSmallClass.eof
sqlThreeClass="select * from threeClass where FirstClassName='"&rsFirstClass("FirstClassName") &"' and BigClassName='"&rsBigClass("BigClassName")&"' and SmallClassName='"& rsSmallClass("SmallClassName") &"' Order by ThreeClassID"
'response.Write(sqlThreeClass)
'response.End()
Set rsThreeClass= Server.CreateObject("ADODB.Recordset")
rsThreeClass.open sqlThreeClass,conn,1,1
ThreeClassNum=0
if not rsThreeClass.eof and not rsThreeClass.bof then
rsThreeClassNum=rsThreeClass.recordcount
end if
ThreeNum=0
dim rsThreeNum,sqlThreeNum
sqlThreeNum="select * from Product where FirstClassName='"&rsFirstClass("FirstClassName")& "' and BigClassName='"&rsBigClass("BigClassName")&"' and SmallClassName='"&rsSmallClass("SmallClassName")&"'"
Set rsThreeNum= Server.CreateObject("ADODB.Recordset")
rsThreeNum.open sqlThreeNum,conn,1,1
if not rsThreeNum.eof and not rsThreeNum.bof then
ThreeNum=rsThreeNum.recordcount
end if
rsThreeNum.close
set rsThreeNum=nothing
'if rsBigClass("BigClassName")=BigClassName then
strTree= strTree & "<table width=175 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr><td><table><tr>"
strTree= strTree & "<td width=50 height=22 >"
strTree= strTree & "<div align=right> <img src=pic/zhic.gif > </div></td>"
strTree= strTree & "<td align=left width=110 style='border-Bottom:rgb (153,153,51) 1px solid;'>"
strTree= strTree & "<a href='product.asp?FirstClassName=" & rsSmallClass("FirstClassName") & "&BigClassname=" & rsSmallClass("BigClassname") & "&SmallClassName="&rsSmallClass("SmallClassName")&"'>"
strTree=strTree & rsSmallClass("SmallClassname")&"("&ThreeNum&")"
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr></table><td></tr><tr>"
strTree=strTree & "<TD height=1 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
k=1
if not rsThreeClass.eof and not rsThreeClass.bof then
if SmallClassName=rsSmallClass("SmallClassName") then
strTree=strTree&"<tr id='first"&i&j&k&"' ><td>"
else
strTree=strTree&"<tr id='first"&i&j&k&"' style='display:none'><td>"
end if
Do while not rsThreeClass.eof
dim rsCou,sqlCou
sqlCou="select * from Product where FirstClassName='"&rsFirstClass("FirstClassName")& "' and BigClassName='"&rsBigClass("BigClassName")&"' and SmallClassName='"&rsSmallClass("SmallClassName")&"' and ThreeClassName='"&rsThreeClass("threeclassName")&"'"
set rsCou=server.CreateObject("adodb.recordset")
rsCou.open sqlCou,conn,1,1
procou=0
if not rsCou.eof and not rsCou.bof then
procou=rsCou.recordcount
end if
rsCou.close
set rsCou=nothing
strTree= strTree & "<table width=175 border=0 cellpadding=0 cellspacing=0 bgColor='#ffffff' style='border-left:#cccccc 1px solid;border-right:#cccccc 1px solid '>"
strTree= strTree & "<tr><td style='padding-left:20px'><table><tr>"
strTree= strTree & "<td width=50 height=22 >"
strTree= strTree & "<div align=right> <img src=pic/diao.gif > </div></td>"
strTree= strTree & "<td width=125 style='border-Bottom:rgb (153,153,51) 1px solid;'>"
strTree= strTree & "<a href='Product.asp?FirstClassName=" & rsThreeClass("FirstClassName") & "&BigClassname=" & rsThreeClass("BigClassname") & "&SmallClassName="&rsThreeClass("SmallClassName")&"&ThreeClassName="&rsThreeClass("ThreeClassName")&"'>"
strTree=strTree & rsThreeClass("ThreeClassname")
strTree=strTree & "</a>("&procou&")</td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr></table><td></tr><tr>"
strTree=strTree & "<TD height=1 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
strTree=strTree & "</table>"
rsThreeClass.movenext
loop
rsThreeClass.close
strTree=strTree & "</td></tr>"
end if
strTree=strTree & "</table>"
rsSmallClass.movenext
k=k+1
loop
rsSmallClass.close
set rsProductNOClass=server.CreateObject("adodb.recordset")
sqlProductNOClass="select * from Product where FirstClassName='"&rsFirstClass("FirstClassName")&"' and BigClassName='"&rsBigClass("BigClassName")&"' and SmallClassName='' and ThreeClassName=''"
rsProductNOClass.open sqlProductNOClass,conn,1,1
do while not rsProductNOClass.eof
strTree= strTree & "<table width=175 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr><td><table><tr>"
strTree= strTree & "<td height=22 >"
strTree= strTree & "<div align=left> <img src=img/class3.gif ></div></td>"
strTree= strTree & "<td align=left width=110 style='border-Bottom:rgb (153,153,51) 1px solid;'>"
strTree= strTree & "<a href='product.asp?id=" & rsProductNOClass("id")&"'>"
strTree=strTree & rsProductNOClass("title")&""
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr></table><td></tr><tr>"
strTree=strTree & "<TD height=1 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
strTree=strTree & "</Table>"
rsProductNOClass.movenext
loop
rsProductNOClass.close
set rsProductNOClass=nothing
end if
strTree=strTree & "</td></tr>"
strTree=strTree & "</table>"
rsBigClass.movenext
j=j+1
loop
rsBigClass.close
end if
set rsProductNOClass=server.CreateObject("adodb.recordset")
sqlProductNOClass="select * from Product where FirstClassName='"&rsFirstClass("FirstClassName")&"' and BigClassName='' and SmallClassName='' and ThreeClassName='' order by updatetime"
rsProductNOClass.open sqlProductNOClass,conn,1,1
do while not rsProductNOClass.eof
strTree= strTree & "<table width=175 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr><td><table><tr>"
strTree= strTree & "<td height=22 >"
strTree= strTree & "<div align=left> <img src=img/arrow_2.gif ></div></td>"
' strTree= strTree & "<div align=left> <img src=img/class3.gif ></div></td>"
strTree= strTree & "<td align=left width=110 style='border-Bottom:rgb (153,153,51) 1px solid;'>"
strTree= strTree & "<a href='product.asp?id=" & rsProductNOClass("id")&"'>"
strTree=strTree & rsProductNOClass("title")&""
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr></table><td></tr><tr>"
strTree=strTree & "<TD height=1 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
strTree=strTree & "</Table>"
rsProductNOClass.movenext
loop
rsProductNOClass.close
set rsProductNOClass=nothing
strTree=strTree & "</td></tr>"
rsFirstClass.movenext
i=i+1
loop
rsFirstClass.close
set rsFirstClass=nothing
strTree=strTree & "</table>"
response.write strTree
end if
end sub