📄 复件 syscode.asp

📁 后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="ubbcode.asp"-->
<!--#include file="function.asp"-->
<%
'================================='   良精软件工作室(企业)网站管理系统
'    Arjan  asp3721@hotmail.com 
'        Www.asp99 .Net
'
'  copyright(c)2001-2008 LJCMS Ver 6.0
'
'=================================

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,rsdown,sqldown,sqlBigClass_Down
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 Hover_BigClass order by Bigorder desc"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1

sqlBigClass_Down="select * From Hover_BigClass_down order by BigClassID"
Set rsBigClass_Down= Server.CreateObject("ADODB.Recordset")
rsBigClass_Down.open sqlBigClass_Down,conn,1,1

'=================================================
'过程名：ShowSmallClass_Down_Tree
'作  用：树形目录方式显示栏目
'参  数：无
'=================================================
sub ShowSmallClass_Down_Tree()
	if rsBigClass_Down.bof and rsBigClass_Down.eof then 
		response.Write "栏目正在建设中……"
	else
		dim sqlClass,rsClass,strTree,BigClassNum,i,j
		rsBigClass_Down.movefirst
		BigClassNum=rsBigClass_Down.recordcount
		i=1
		do while not rsBigClass_Down.eof
			if i<BigClassNum then
				strTree=""
			else
				strTree=""
			end if
			sqlClass="select * from Hover_SmallClass_down where BigClassName='" &rsBigClass_Down("BigClassName") & "' Order by SmallClassID"
			Set rsClass= Server.CreateObject("ADODB.Recordset")
			rsClass.open sqlClass,conn,1,1
				strTree= strTree & "<table width=170 border=0 cellpadding=0 cellspacing=0>"
				strTree= strTree & "<tr>"
				strTree= strTree & "<td height=25>"
				strTree= strTree & "&nbsp;&nbsp;&nbsp;&nbsp;<img src=Skins/Default/cnimg/flag.gif width=11 height=9>&nbsp;&nbsp;"
				strTree= strTree & "<a href='download.asp?BigClassName=" & rsBigClass_Down("BigClassName") & "'>"
				 	strTree=strTree & rsBigClass_Down("BigClassName")
				strTree=strTree & "</a></td>"
				'strTree=strTree & "</td>"
				strTree= strTree & "</tr><tr>"
				strTree=strTree & "<TD height=1 background=Skins/Default/cnimg/1x1_pix.gif >"
				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_Down.movenext
			i=i+1
		loop
		rsClass.close
		set rsClass=nothing
	end if
end sub
'过程名：ShowDown
'=================================================
sub ShowDown(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
        sqlDown="select top " & MaxPerPage	
	else
		sqlDown="select "
	end if

	sqlDown=sqlDown & " ID,title,content,BigClassName,SmallClassName,imagenum,firstImageName,System,Softclass,PhotoUrl,DownloadUrl,FileSize,infotime,hits from Hover_download"
	
	if BigClassName<>"" then
		sqlDown=sqlDown & " where BigClassName='" & BigClassName & "' "
		if SmallClassName<>"" then
			sqlDown=sqlDown & " and SmallClassName='" & SmallClassName & "' "
		end if
	else
		if SpecialName<>"" then
			sqlDown=sqlDown & " and SpecialName='" & SpecialName & "' "
		end if
	end if
	sqlDown=sqlDown & " order by ID desc"
	Set rsDown= Server.CreateObject("ADODB.Recordset")
	rsDown.open sqlDown,conn,1,1
	if rsDown.bof and  rsDown.eof then
		response.Write("<br><li>没有任何下载</li>")
	else
		if currentPage=1 then
			call DownContent(TitleLen)
		else
			if (currentPage-1)*MaxPerPage<totalPut then
         	   	rsDown.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rsDown.bookmark
            	call DownContent(TitleLen)
        	else
	        	currentPage=1
           		call DownContent(TitleLen)
	    	end if
		end if
	end if
	rsDown.close
	set rsDown=nothing
end sub

sub DownContent(intTitleLen)
   	dim i,strTemp
    i=0
	do while not rsDown.eof
		strTemp=""		
		strTemp= strTemp & "<table width=100% border=0 cellspacing=3 cellpadding=0>"
                strTemp= strTemp & "<tr>"
                strTemp= strTemp & "<td width=25% rowspan=7>"
                strTemp= strTemp & "<div align=center><a href=DownloadShow.asp?ID=" & rsDown("id") & ">" 
                strTemp= strTemp & "<img border=0 src='" & rsDown("PhotoUrl") & "' width=153 height=153>" 
                strTemp= strTemp & "</a></div></td>"
                strTemp= strTemp & "<td width=17% height=12>"
                strTemp= strTemp & "文件名称：</td>"
                strTemp= strTemp & "<td>"
                strTemp= strTemp & rsDown("Title") & ""
                strTemp= strTemp & "</td>"
				
				strTemp= strTemp & "</tr><tr>"
				strTemp= strTemp & "<td  height=12>"
                strTemp= strTemp & "文件大小：</td>"
                strTemp= strTemp & "<td>"
                strTemp= strTemp & rsDown("FileSize") & "K"
                strTemp= strTemp & "</td>"				
				
				strTemp= strTemp & "</tr><tr>"
				strTemp= strTemp & "<td width=20% height=12>"
                strTemp= strTemp & "发布日期：</td>"
                strTemp= strTemp & "<td>"
                strTemp= strTemp & rsDown("infotime") & ""
                strTemp= strTemp & "</td>"
				
				strTemp= strTemp & "</tr><tr>"
				strTemp= strTemp & "<td  height=12>"
                strTemp= strTemp & "适用系统：</td>"
                strTemp= strTemp & "<td>"
                strTemp= strTemp & rsDown("System") & ""
                strTemp= strTemp & "</td>"				
				
                strTemp= strTemp & "</tr><tr>"
                strTemp= strTemp & "<td height=12>"
                strTemp= strTemp & "下载类别：</td>"
                strTemp= strTemp & "<td><a href=download.asp?BigClassName=" & rsDown("BigClassName") & ">" & rsDown("BigClassName") & "</a> → "
                strTemp= strTemp & "<a href=download.asp?BigClassName=" & rsDown("BigClassName") & "&SmallClassName=" & rsDown("SmallClassName") & ">" & rsDown("SmallClassName") & ""
                strTemp= strTemp & "</a></td>"
                strTemp= strTemp & "</tr><tr>" 
				
				strTemp= strTemp & "<td height=12>下载说明：</td>"
                strTemp= strTemp & "<td>"
                strTemp= strTemp & "<a href=DownloadShow.asp?ID=" & rsDown("id") & "><img src=Skins/Default/cnimg/B_More2.gif width=79 height=18 border=0></a></td>"
                strTemp= strTemp & "</tr><tr>"			

			   
                strTemp= strTemp & "<td height=12></td>"
                strTemp= strTemp & "<td>"
                strTemp= strTemp & "<a href=" & rsDown("DownloadUrl") & "><img border=0 src=Skins/Default/cnimg/Download.gif width=140 height=20></a></td>"
                strTemp= strTemp & "</tr><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 & " </td>"  
				
                strTemp= strTemp & "</tr>"
                strTemp= strTemp & "</table>"
                strTemp= strTemp & "</td>"
                strTemp= strTemp & "</tr><tr>" 
                strTemp= strTemp & "<td height=1 colspan=3  background=Skins/Default/CnImg/1x1_pix.gif></td>"
                strTemp= strTemp & "</tr>"
                strTemp= strTemp & "</table>"
		response.write strTemp
		rsDown.movenext
		i=i+1
		if i>=MaxPerPage then exit do	
	loop
end sub 

'=================================================
'过程名：ShowSmallClass_Tree
'作  用：树形目录方式显示栏目
'参  数：无
'=================================================
Sub ShowSmallClass_Tree()
%>
<SCRIPT language=javascript>
function opencat(cat,img){
	if(cat.style.display=="none"){
	cat.style.display="";
	img.src="Skins/Default/cnimg/class2.gif";
	}	else {
	cat.style.display="none"; 
	img.src="Skins/Default/cnimg/class1.gif";
	}
}
</Script>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
		sql="select * from Hover_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 language=javascript onmouseup="opencat(cat10<%=i%>000,&#13;&#10; img10<%=i%>000);" id=item$pval[catID]) style="CURSOR: hand" width=34 height=24 align=center><IMG id=img10<%=i%>000 src="Skins/Default/cnimg/class1.gif" width=20 height=20></TD>
		<TD width="662"><a href='Product.asp?BigClassName=<%=rsbig("BigClassName")%>'><%=rsbig("BigClassName")%></a></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">
<%
dim rsSmall,sqls,j
set rsSmall = server.CreateObject ("adodb.recordset")
sqls="select * from Hover_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
%>
&nbsp;<IMG height=20 src="Skins/Default/cnimg/class3.gif" width=26 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>
<%
end Sub 


'=================================================
'过程名：ShowSmallClass_Tree1
'作  用：树形目录方式显示栏目    备用
'参  数：无
'=================================================
'sub ShowSmallClass_Tree1()
'	if rsBigClass.bof and rsBigClass.eof then 
'		response.Write "栏目正在建设中……"
'	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 Hover_SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by Smallorder desc"
'			Set rsClass= Server.CreateObject("ADODB.Recordset")
'			rsClass.open sqlClass,conn,1,1
'				strTree= strTree & "<table width=170 border=0 cellpadding=0 cellspacing=0>"
'				strTree= strTree & "<tr>"
'				strTree= strTree & "<td height=22>"
'				strTree= strTree & "&nbsp;&nbsp;&nbsp;&nbsp;<img src=Skins/Default/cnimg/flag.gif width=11 height=9>&nbsp;&nbsp;"
'				strTree= strTree & "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'>"
'				strTree= strTree &rsBigClass("BigClassName") 
'				strTree= strTree & "</a></td>"
'				strTree= strTree & "</tr><tr>"
'				strTree= strTree & "<TD height=1>"
'				strTree= strTree & "<table width=170 border=0 cellpadding=0 cellspacing=0>"
'				SmallClassNum=rsClass.recordcount
12 3 4 下一页
⌨️ 快捷键说明

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