📄 en_syscode.asp

📁 此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="ubbcode.asp"-->
<!--#include file="En_function.asp"-->
<%
'=================================
'
'   冠龙科技企业网站管理系统
'    mail  postxml@yahoo.com.cn
'       www.xnhost.cn
'
'  copyright(c)2006 xnhost.cn
'
'=================================
%>

<%
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim EnBigClassName,EnSmallClassName,SpecialName,keyword,strField
dim rs,sql,sqlArticle,rsArticle,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlSpecial,rsSpecial
dim SpecialTotal
BeginTime=Timer
EnBigClassName=Trim(request("EnBigClassName"))
EnSmallClassName=Trim(request("EnSmallClassName"))
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 BigClass order by BigClassID"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1


'=================================================
'过程名：ShowSmallClass_Tree
'作  用：树形目录方式显示栏目
'参  数：无
'=================================================
sub ShowSmallClass_Tree()
	if rsBigClass.bof and rsBigClass.eof then 
		response.Write "The column is under construction……" 'The column is under construction 栏目正在建设中
	else
		dim sqlClass,rsClass,strTree,BigClassNum,i,j
		rsBigClass.movefirst
		BigClassNum=rsBigClass.recordcount
		i=1
		do while not rsBigClass.eof
			if i<BigClassNum then
				strTree=""
			else
				strTree=""
			end if
			sqlClass="select * from SmallClass where EnBigClassName='" & rsBigClass("EnBigClassName") & "' Order by SmallClassID"
			Set rsClass= Server.CreateObject("ADODB.Recordset")
			rsClass.open sqlClass,conn,1,1
				strTree= strTree & "<table width=180 border=0 cellpadding=0 cellspacing=0>"
				strTree= strTree & "<tr>"
				strTree= strTree & "<td width=24 height=22>"
				strTree= strTree & "<div align=center><img src=Img/arrow_2.gif width=13 height=11></div></td>"
				strTree= strTree & "<td width=150>"
				strTree= strTree & "<a href='En_Product.asp?EnBigClassName=" & rsBigClass("EnBigClassName") & "'>"
				 	strTree=strTree & rsBigClass("EnBigClassName")
				strTree=strTree & "</a></td>"
				'strTree=strTree & "</td>"
				strTree= strTree & "</tr><tr>"
				strTree=strTree & "<TD height=1 colspan=2 background=img/naSzarym.gif>"
				strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
				strTree=strTree & "</TR>"
				strTree=strTree & "</table>"
				SmallClassNum=rsClass.recordcount
				j=1
				do while not rsClass.eof
					rsClass.movenext
					j=j+1
				loop
			response.write strTree
			rsBigClass.movenext
			i=i+1
		loop
		rsClass.close
		set rsClass=nothing
	end if
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;There is not any investigation" 'There is not any investigation没有任何调查
	else
		response.write "<form name='VoteForm' method='post' action='En_vote.asp' target='_blank'><td>"
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;" & rsVote("EnTitle") & "<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='En_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  "|&nbsp;<a href='En_Product.asp'>ProductShow</a>&nbsp;&gt;&gt;" 'ProductShow 产品展示
	if EnBigClassName="" and EnSmallClassName="" then
		response.write "&nbsp;All products"
	else
		if EnBigClassName<>"" then
			response.write "&nbsp;<a href='En_Product.asp?EnBigClassName=" & EnBigClassName & "'>" & EnBigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
			if EnSmallClassName<>"" then
				response.write "<a href='En_Product.asp?EnBigClassName=" & EnBigClassName & "&EnSmallClassName=" & EnSmallClassName & "'>" & EnSmallClassName & "</a>"
			else
				response.write "All small class"
			end if
		end if
	end if
end sub

'=================================================
'过程名：ShowArticleTotal
'作  用：显示文章总数
'参  数：无
'=================================================
sub ShowArticleTotal()
	dim sqlTotal
	dim rsTotal
	sqlTotal="select Count(*) from Product where Passed=True "
	if EnBigClassName<>"" then
		sqlTotal=sqlTotal & " and EnBigClassName='" & EnBigClassName & "' "
		if EnSmallClassName<>"" then
			sqlTotal=sqlTotal & " and EnSmallClassName='" & EnSmallClassName & "' "
		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 "Altogether 0 a product" '共有  个产品
	else
		totalPut=rsTotal(0)
		response.Write "Altogether " & totalPut & " a product" '共有  个产品
	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,EnBigClassName,EnSmallClassName,IncludePic,EnTitle,EnSpec,Size,EnMemo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True "
	
	if EnBigClassName<>"" then
		sqlArticle=sqlArticle & " and EnBigClassName='" & EnBigClassName & "' "
		if EnSmallClassName<>"" then
			sqlArticle=sqlArticle & " and EnSmallClassName='" & EnSmallClassName & "' "
		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>There are not any products</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,strTemp
    i=0
	do while not rsArticle.eof
		strTemp=""
		'strTemp = strTemp & ""
		strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
			strTemp= strTemp & "<tr>"
			strTemp= strTemp & "<td width=30% rowspan=6>"
			strTemp= strTemp & "<div align=center><a href=En_ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" 
			strTemp= strTemp & "<img border=0 src=" & rsArticle("DefaultPicUrl") & " width=120 height=120>" 
			strTemp= strTemp & "</a></div></td>"
			strTemp= strTemp & "<td width=12% height=12>Name：</td>"
			strTemp= strTemp & "<td><a href=En_ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("EnTitle") & "</a></td>"
			strTemp= strTemp & "</tr>"

			strTemp= strTemp & "<tr>"
			strTemp= strTemp & "<td width=12% height=12>Spec：</td>"
			strTemp= strTemp & "<td>" & rsArticle("EnSpec") & "</td>"
			strTemp= strTemp & "</tr>"

			strTemp= strTemp & "<tr>"
			strTemp= strTemp & "<td width=12% height=12>Size：</td>"
			strTemp= strTemp & "<td>" & rsArticle("Size") & "</td>"
			strTemp= strTemp & "</tr>"

'			strTemp= strTemp & "<tr>"
'			strTemp= strTemp & "<td width=12% height=12>产品备注：</td>"
'			strTemp= strTemp & "<td>" & rsArticle("EnMemo") & "</td>"
'			strTemp= strTemp & "</tr>"

			strTemp= strTemp & "<tr>"
			strTemp= strTemp & "<td height=12>class：</td>"
			strTemp= strTemp & "<td><a href='En_Product.asp?EnBigClassName=" & rsArticle("EnBigClassName") & "'>" & rsArticle("EnBigClassName") & "</a> → "
			strTemp= strTemp & "<a href='En_Product.asp?EnBigClassName=" & rsArticle("EnBigClassName") & "&EnSmallClassName=" & rsArticle("EnSmallClassName") & "'>" & rsArticle("EnSmallClassName") & ""
			strTemp= strTemp & "</a></td>"
			strTemp= strTemp & "</tr>" 

'			strTemp= strTemp & "<tr>"
'			strTemp= strTemp & "<td height=18>产品编号：</td>"
'			strTemp= strTemp & "<td>" & rsArticle("Product_Id") & "</td>"
'			strTemp= strTemp & "</tr>"

			strTemp= strTemp & "<tr>"
			strTemp= strTemp & "<td height=12>Info：</td>"
			strTemp= strTemp & "<td><a href=En_ArticleShow.asp?ArticleID=" & rsArticle("articleid") & "><img src=Img/En_arrow_7.gif border=0></a></td>"
			strTemp= strTemp & "</tr>"

			strTemp= strTemp & "<tr>"
			strTemp= strTemp & "<td colspan=2>"
			strTemp= strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0>"
			strTemp= strTemp & "<tr>" 
			strTemp= strTemp & "<td width=50% height=12>"
			strTemp= strTemp & "<div align=center></div></td>"
			strTemp= strTemp & "<td width=50% height=12>"
			strTemp= strTemp & "<div align=center><a href='javascript:eshop(" & rsArticle("Product_Id") & ")'><img border=0 src=img/En_addtocart.gif width=95 height=17>"
			strTemp= strTemp & "</a></div></td>"
			strTemp= strTemp & "</tr>"
			strTemp= strTemp & "</table>"
			strTemp= strTemp & "</td>"
			strTemp= strTemp & "</tr>" 

			strTemp= strTemp & "<tr>" 
			strTemp= strTemp & "<td height=1 colspan=3 bgcolor=#CCCCCC></td>"
			strTemp= strTemp & "</tr>"
			strTemp= strTemp & "</table>"
		response.write strTemp
		rsArticle.movenext
		i=i+1
		if i>=MaxPerPage then exit do	
	loop
end sub 

'=================================================
'过程名：ShowSearchTerm
'作  用：显示搜索条件信息
'参  数：无
'=================================================
sub ShowSearchTerm()
	response.write "|&nbsp;ProductSearch&nbsp;&gt;&gt; " 'Product search产品搜索
	if EnBigClassName<>"" then
		response.write "<a href='En_Default.asp?EnBigClassName=" & EnBigClassName & "'>" & EnBigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
		if EnSmallClassName<>"" then
			response.write "<a href='En_Default.asp?EnBigClassName=" & EnBigClassName & "&EnSmallClassName=" & EnSmallClassName & "'>" & EnSmallClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
		else
			response.write "All Small Class &nbsp;&gt;&gt;&nbsp;" 'All Small Class所有小类
		end if
	end if
	if keyword<>"" then
	  select case strField
		case "EnTitle"
			response.Write "Contain in the name <font color=red>"&keyword&"</font> Products" '名称中含有  的产品
		case "EnContent"
			response.Write "Contain description <font color=red>"&keyword&"</font> Products" '说明含有  的产品 
		case else
			response.Write "Contain name <font color=red>"&keyword&"</font> Products" '名称中含有  的产品 
	  end select
	else
	  response.write "&nbsp;All products" '所有产品
	end if
end sub

'=================================================
'过程名：SearchResultTotal
'作  用：显示搜索结果总数
'参  数：无
'=================================================
sub SearchResultTotal()
	dim rsTotal,sqlTotal
	sqlTotal="select count(*) from Product where Passed=True "
	if EnBigClassName<>"" then
		sqlTotal=sqlTotal & " and EnBigClassName='" & EnBigClassName & "' "
		if EnSmallClassName<>"" then
			sqlTotal=sqlTotal & " and EnSmallClassName='" & EnSmallClassName & "' "
		end if
	else
		if SpecialName<>"" then
			sqlTotal=sqlTotal & " and SpecialName='" & SpecialName & "' "
		end if
	end if
	if keyword<>"" then
		select case strField
			case "EnTitle"
				sqlTotal=sqlTotal & " and EnTitle like '%" & keyword & "%' "
			case "EnContent"
				sqlTotal=sqlTotal & " and EnContent like '%" & keyword & "%' "
			case else
				sqlTotal=sqlTotal & " and EnTitle 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 "Altogether 0 a product" '共有 0 个产品
12 3 下一页
💿 文件大小 1971 K
👤 上传用户 __catcher
📂 所属分类企业管理
🏷️ 相关标签

#ACCESS #ASP #网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -