sysproduct.asp

每次上传

<%
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,"'","‘"),"<","&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 PrBigClasss 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,&#13;&#10; 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='Product.asp?BigClassName=<%=rsBigClass("BigClassName")%>'language=javascript onmouseover="opencat(cat10<%=i%>000,&#13;&#10; img10<%=i%>000);"><%=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 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
%>
&nbsp;<IMG height=20 src="../img/class3.gif" width=26 align=absMiddle border=0><a href="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 "&nbsp;没有任何调查"
	else
		response.write "<form name='VoteForm'method='post'action='vote.asp'target='_blank'><td>"
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;"& 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>&nbsp;&nbsp;"
        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='Product.asp'>产品展示</a>&nbsp;&gt;&gt;"
	if BigClassName="" and SmallClassName="" then
		response.write "&nbsp;所有产品"
	else
		if BigClassName<>"" then
			response.write "&nbsp;<a href='Product.asp?BigClassName="& BigClassName &"'>"& BigClassName &"</a>&nbsp;&gt;&gt;&nbsp;"
			if SmallClassName<>"" then
				response.write "<a href='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 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 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-1 '修正不显示第2页以后第一个产品的问题
         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,strli
		Response.Write "<table width=100% border=0 cellspacing=2 cellpadding=0><TR><TD></TD></TR>"
    i=1
		Response.Write "<TR align=""center"">"
	do while not rsArticle.eof
		strli=""
		strli=strli & " ● &nbsp;&nbsp;产品名称："& rsArticle("Title") &" "&chr(13)
		strli=strli & " ● &nbsp;&nbsp;产品规格："& rsArticle("Spec") &" "&chr(13)
		strli=strli & " ● &nbsp;&nbsp;产品尺寸："& rsArticle("Size") &" "
		lb=""
			lb=lb & "<TD>"
			lb=lb & "<table width=130 border=0 cellspacing=0 cellpadding=0>"
			lb=lb & "<TR><TD height=5></TD></TR>"

			lb=lb & "<tr>"
			lb=lb & "<td width='98%'><div align=center>"
			lb=lb & "<a href='ProductShow.asp?ArticleID=" & rsArticle("articleid") & "'title='" & strli &"'>" 
			lb=lb & "<img border=0 src='"& rsArticle("DefaultPicUrl") &"' width=100 height=100></a>" 
			lb=lb & "</div></td>"
			lb=lb & "</tr>"

			lb=lb & "<TR><TD height=3></TD></TR>"

			lb=lb & "<tr>"
			lb=lb & "<td height=23 background=../img/tablebg1.gif><div align=center>"
			lb=lb & "<a href='ProductShow.asp?ArticleID="& rsArticle("articleid") &"'title='" & strli &"'>"& gotTopic(rsArticle("Title"),16) &"</a>"
			lb=lb & "</div></td>"
			lb=lb & "</tr>"

			lb=lb & "<tr>"
			lb=lb & "<td height=20 background=../img/tablebg2.gif><div align=center>"
			lb=lb & "<a href='ProductShow.asp?ArticleID="& rsArticle("articleid") &"'>查看</a>&nbsp;&nbsp;&nbsp;&nbsp;"
			lb=lb & "<a href='javascript:eshop("& rsArticle("Product_Id") &")'>订购</a>"
			lb=lb & "</div></td>"
			lb=lb & "</tr>"

			lb=lb & "<tr>" 
			lb=lb & "<td height=7 background='../img/tablebg3.gif'><IMG height=1 src='../img/1x1_pix.gif' width=1></td>"
			lb=lb & "</tr>"
			lb=lb & "</table>"
			lb=lb & "</TD>"
		response.write lb

		if i mod 4 =0 then
	  Response.Write "</TR><TR>"
		end if

		rsArticle.movenext
		i=i+1
		if i>=MaxPerPage then exit do	
	loop
 Response.Write "</TR><TR><TD></TD></TR></Table>"
end sub 

'=================================================
'过程名：ShowSearchTerm
'作  用：显示搜索条件信息
'参  数：无
'=================================================
sub ShowSearchTerm()
	response.write "产品搜索&nbsp;&gt;&gt; "
	if BigClassName<>"" then
		response.write "<a href='Product.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
		if SmallClassName<>"" then
			response.write "<a href='Product.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
		else
			response.write "所有小类&nbsp;&gt;&gt;&nbsp;"
		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> 的产品"
		case else
			response.Write "名称中含有 <font color=red>"&keyword&"</font> 的产品"
	  end select
	else
	  response.write "&nbsp;所有产品"
	end if
end sub

'=================================================
'过程名：SearchResultTotal
'作  用：显示搜索结果总数
'参  数：无
'=================================================
sub SearchResultTotal()
	dim rsTotal,sqlTotal
	sqlTotal="select count(*) from 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
	if keyword<>"" then
		select case strField
			case "Title"
				sqlTotal=sqlTotal & " and Title like '%" & keyword & "%'"
			case "Content"
				sqlTotal=sqlTotal & " and Content like '%" & keyword & "%'"
			case else
				sqlTotal=sqlTotal & " and Title like '%" & keyword & "%'"
		end select
	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 & " 个产品"