📄 bs_sysproduct3.asp
字号:
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - All Rights Reserved.
'
'========================================================
%>
<%
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,SpecialName,keyword,strField
dim rs,sql,sqlArticle,rsArticle,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlSpecial,rsSpecial
dim SpecialTotal
BeginTime=Timer
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
SpecialName=trim(request("SpecialName"))
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 if
sqlBigClass="select * from Bs_PrBigClass 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="../img/class2.gif";
} else {
cat.style.display="none";
img.src="../img/class1.gif";
}
}
</Script>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
<%
dim i
if rsBigClass.eof and rsBigClass.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsBigClass.eof
%>
<TR>
<TD language=javascript onmouseup="opencat(cat10<%=i%>000, img10<%=i%>000);" id=item$pval[catID]) style="CURSOR: hand" width=32 height=24 align=center><IMG id=img10<%=i%>000 src="../img/class1.gif" width=20 height=20></TD>
<TD class='ML_Tdbg'><a href='Bs_Product.asp?BigClassName=<%=rsBigClass("BigClassName")%>'><%=rsBigClass("BigClassName")%></a></TD>
</TR>
<TR>
<TD id=cat10<%=i%>000 style="DISPLAY: none" bgColor=#fefdf5 colspan="2">
<%
dim rss,sqls,j
set rss = server.CreateObject ("adodb.recordset")
sqls="select * from Bs_PrSmallClass 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
%>
<IMG height=20 src="../img/class3.gif" width=26 align=absMiddle border=0><a href="Bs_Product.asp?BigClassName=<%=rss("BigClassName")%>&Smallclassname=<%=rss("SmallClassName")%>"><%=rss("SmallClassName")%></a><BR>
<%
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
'=================================================
'过程名：ShowVote
'作 用：显示网站调查
'参 数：无
'=================================================
sub ShowVote()
dim sqlVote,rsVote,i
sqlVote="select top 1 * from Vote where IsSelected=True"
Set rsVote= Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
if rsVote.bof and rsVote.eof then
response.Write " 没有任何调查"
else
response.write "<form name='VoteForm' method='post' action='vote.asp' target='_blank'><td>"
response.write " "& rsVote("Title") &"<br>"
if rsVote("VoteType")="Single" then
for i=1 to 8
if trim(rsVote("Select"& i) &"")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='"& i &"'>" & rsVote("Select" & i) &"<br>"
next
else
for i=1 to 8
if trim(rsVote("Select"& i) &"")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='"& i &"'>"& rsVote("Select" & i) &"<br>"
next
end if
response.write "<br><input name='VoteType' type='hidden'value='"& rsVote("VoteType") &"'>"
response.write "<input name='Action' type='hidden' value='Vote'>"
response.write "<input name='ID' type='hidden' value='"& rsVote("ID") &"'>"
response.write "<div align='center'>"
response.write "<a href='javascript:VoteForm.submit();'><img src='../images/voteSubmit.gif' width='52' height='18' border='0'></a> "
response.write "<a href='Vote.asp?Action=Show' target='_blank'><img src='../images/voteView.gif' width='52' height='18' border='0'></a>"
response.write "</div></td></form>"
end if
rsVote.close
set rsVote=nothing
end sub
'=================================================
'过程名：ShowClassGuide
'作 用：显示栏目导航位置
'参 数：无
'=================================================
sub ShowClassGuide()
response.write "<a href='Bs_Product.asp'>产品展示</a> >>"
if BigClassName="" and SmallClassName="" then
response.write " 所有产品"
else
if BigClassName<>"" then
response.write " <a href='Bs_Product.asp?BigClassName="& BigClassName &"'>"& BigClassName &"</a> >> "
if SmallClassName<>"" then
response.write "<a href='Bs_Product.asp?BigClassName="& BigClassName &"&SmallClassName="& SmallClassName &"'>"& SmallClassName &"</a>"
else
response.write "所有小类"
end if
end if
end if
end sub
'=================================================
'过程名：ShowArticleTotal
'作 用：显示文章总数
'参 数：无
'=================================================
sub ShowArticleTotal()
dim sqlTotal
dim rsTotal
sqlTotal="select Count(*) from Bs_Product where Passed=True "
if BigClassName<>"" then
sqlTotal=sqlTotal &" and BigClassName='"& BigClassName &"' "
if SmallClassName<>"" then
sqlTotal=sqlTotal &" and SmallClassName='"& SmallClassName &"' "
end if
else
if SpecialName<>"" then
sqlTotal=sqlTotal &" and SpecialName='"& SpecialName &"' "
end if
end if
Set rsTotal= Server.CreateObject("ADODB.Recordset")
rsTotal.open sqlTotal,conn,1,1
if rsTotal.eof and rsTotal.bof then
totalPut=0
response.write "共有 0 个产品"
else
totalPut=rsTotal(0)
response.Write "共有 "& totalPut &" 个产品"
end if
rsTotal.close
set rsTotal=nothing
end sub
'=================================================
'过程名：ShowArticle
'=================================================
sub ShowArticle(TitleLen)
if TitleLen<0 or TitleLen>200 then
TitleLen=50
end if
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
sqlArticle="select top "& MaxPerPage
else
sqlArticle="select "
end if
sqlArticle=sqlArticle &" ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Spec,Size,Memo,DefaultPicUrl,UpdateTime,Hits from Bs_Product where Passed=True "
if BigClassName<>"" then
sqlArticle=sqlArticle &" and BigClassName='" & BigClassName &"' "
if SmallClassName<>"" then
sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "' "
end if
else
if SpecialName<>"" then
sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "' "
end if
end if
sqlArticle=sqlArticle & " order by ArticleID desc"
Set rsArticle= Server.CreateObject("ADODB.Recordset")
rsArticle.open sqlArticle,conn,1,1
if rsArticle.bof and rsArticle.eof then
response.Write("<br><li>没有任何产品</li>")
else
if currentPage=1 then
call ArticleContent(TitleLen)
else
if (currentPage-1)*MaxPerPage<totalPut then
rsArticle.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsArticle.bookmark
call ArticleContent(TitleLen)
else
currentPage=1
call ArticleContent(TitleLen)
end if
end if
end if
rsArticle.close
set rsArticle=nothing
end sub
sub ArticleContent(intTitleLen)
dim i,lb
i=0
do while not rsArticle.eof
lb=""
lb=lb & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
lb=lb & "<tr>"
lb=lb & "<td width=30% rowspan=6>"
lb=lb & "<div align=center><a href='Bs_ProductShow.asp?ArticleID=" & rsArticle("articleid") & "'>"
lb=lb & "<img border=0 src='"& rsArticle("DefaultPicUrl") &"' width=120 height=120>"
lb=lb & "</a></div></td>"
lb=lb & "<td width=12% height=12>产品名称：</td>"
lb=lb & "<td><a href='Bs_ProductShow.asp?ArticleID="& rsArticle("articleid") &"'>"& rsArticle("Title") &"</a></td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td width=12% height=12>产品规格：</td>"
lb=lb & "<td>"& rsArticle("Spec") &"</td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td width=12% height=12>尺 寸：</td>"
lb=lb & "<td>"& rsArticle("Size") &"</td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td height=12>产品类别：</td>"
lb=lb & "<td><a href='Bs_Product.asp?BigClassName="& rsArticle("BigClassName") &"'>"& rsArticle("BigClassName") &"</a> → "
lb=lb & "<a href='Bs_Product.asp?BigClassName="& rsArticle("BigClassName") &"&SmallClassName="& rsArticle("SmallClassName") &"'>"& rsArticle("SmallClassName") &""
lb=lb & "</a></td>"
lb=lb & "</tr>"
' lb=lb & "<tr>"
' lb=lb & "<td height=18>产品编号：</td>"
' lb=lb & "<td>"& rsArticle("Product_Id") &"</td>"
' lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td height=12>产品信息：</td>"
lb=lb & "<td><a href='Bs_ProductShow.asp?ArticleID="& rsArticle("articleid") &"'><img src='../Img/arrow_7.gif' border=0></a></td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td colspan=2>"
lb=lb & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
lb=lb & "<tr>"
lb=lb & "<td width=50% height=12>"
lb=lb & "<div align=center></div></td>"
lb=lb & "<td width=50% height=12>"
lb=lb & "<div align=center><a href='javascript:eshop("& rsArticle("Product_Id") &")'><img border=0 src='../img/addtocart.gif' width=95 height=17>"
lb=lb & "</a></div></td>"
lb=lb & "</tr>"
lb=lb & "</table>"
lb=lb & "</td>"
lb=lb & "</tr>"
lb=lb & "<tr>"
lb=lb & "<td height=1 colspan=3 background='../img/kropki_poziom_naBialym.gif'><IMG height=1 src='../img/1x1_pix.gif' width=1></td>"
lb=lb & "</tr>"
lb=lb & "</table>"
response.write lb
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
'=================================================
'过程名：ShowSearchTerm
'作 用：显示搜索条件信息
'参 数：无
'=================================================
sub ShowSearchTerm()
response.write "产品搜索 >> "
if BigClassName<>"" then
response.write "<a href='Bs_Product.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a> >> "
if SmallClassName<>"" then
response.write "<a href='Bs_Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a> >> "
else
response.write "所有小类 >> "
end if
end if
if keyword<>"" then
select case strField
case "Title"
response.Write "名称中含有 <font color=red>"&keyword&"</font> 的产品"
case "Content"
response.Write "说明含有 <font color=red>"&keyword&"</font> 的产品"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -