www.gusucode.com > 绿色环保工作企业网站源码程序 > Inc/SysDown.asp
<!--#Include File="Check_Sql.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Function.asp"-->
<%
dim strFileName,MaxPerPage,ShowSmallClassType
dim totalPut,CurrentPage,TotalPages
dim BeginTime,EndTime
dim founderr, errmsg
dim BigClassName,SmallClassName,keyword,strField
dim rs,sql,sqlDown,rsDown,sqlSearch,rsSearch,sqlBigClass,rsBigClass,sqlBigClass_Down
BeginTime=Timer
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
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_Down="select * from 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()
%>
<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
set rsbigdown = server.CreateObject ("adodb.recordset")
sql="select * from BigClass_down"
rsbigdown.open sql,conn,1,1
if rsbigdown.eof and rsbigdown.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsbigdown.eof
%>
<tr>
<td width="100%"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td><table cellspacing="0" cellpadding="0" width="93%"
align="right" border="0">
<tbody>
<tr>
<td align="middle" width="28" height="25"><img height="7" src="imgbej/dot_pro.gif" width="7" /></td>
<td><a href="download.asp?BigClassName=<%=rsbigdown("BigClassName")%>" class="ptcss_leftmenu"><%=rsbigdown("BigClassName")%></a></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td><img height="2" src="imgbej/left_pro_hx.gif" width="238" /></td>
</tr>
</tbody>
</table></td>
</tr>
<TR>
<TD id=cat10<%=i%>000 <%if rsbigdown("BigClassName")=BigClassName then
response.write "style='DISPLAY'"
else
response.write "style='DISPLAY: none'"
end if%>>
<%
dim rsSmall,sqls,j
set rsSmall = server.CreateObject ("adodb.recordset")
sqls="select * from SmallClass_down where BigClassName='" & rsbigdown("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
%>
<IMG height=20 src="img/class3.gif" width=26 align=absMiddle border=0><a href="download.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>
<%
rsbigdown.movenext
i=i+1
loop
rsbigdown.close
set rsbigdown=nothing
end if
%>
</TABLE>
<%
end sub
%>
<%
'=================================================
'过程名：ShowClass_DownGuide
'作 用：显示栏目导航位置
'参 数：无
'=================================================
sub ShowClass_DownGuide()
response.write " <a href='download.asp'>下载</a> >>"
if BigClassName="" and SmallClassName="" then
response.write " 所有下载"
else
if BigClassName<>"" then
response.write " <a href='Download.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a> >> "
if SmallClassName<>"" then
response.write "<a href='Download.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
else
response.write "所有小类"
end if
end if
end if
end sub
'=================================================
'过程名：ShowDownTotal
'作 用：显示文章总数
'参 数：无
'=================================================
sub ShowDownTotal()
dim sqlTotal
dim rsTotal
sqlTotal="select Count(*) from download "
if BigClassName<>"" then
sqlTotal=sqlTotal & " where BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sqlTotal=sqlTotal & " and SmallClassName='" & SmallClassName & "' "
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
'=================================================
'过程名：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,System,Language,Softclass,PhotoUrl,DownloadUrl,FileSize,Hits,AddDate from download"
if BigClassName<>"" then
sqlDown=sqlDown & " where BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sqlDown=sqlDown & " and SmallClassName='" & SmallClassName & "' "
end if
end if
sqlDown=sqlDown & " order by AddDate 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=99% border=0 cellSpacing=1 cellpadding=3 bgColor=#AAE2EE align=center>"
strTemp=strTemp & "<tr><td width=60% height=30 bgColor=#F6F6F6>"
strTemp=strTemp & "<a href=DownloadShow.asp?ID=" & rsDown("ID") & "> <b>" & rsDown("Title") & "</b></a>"
strTemp=strTemp & "</td>"
strTemp=strTemp & "<td bgColor=#F6F6F6 align=right>"
strTemp=strTemp & "<a href=Download.asp?BigClassName=" & rsDown("BigClassName") & ">" & rsDown("BigClassName") & "</a> | "
strTemp=strTemp & "<a href=Download.asp?BigClassName=" & rsDown("BigClassName") & "&SmallClassName=" & rsDown("SmallClassName") & ">"
strTemp=strTemp & rsDown("SmallClassName") & ""
strTemp=strTemp & "</a> </td></tr>"
strTemp=strTemp & "<tr><td height=30 bgColor=#ffffff> "
strTemp=strTemp & "整理日期：" & FormatDateTime(rsDown("AddDate"),2) & " "
strTemp=strTemp & "文件大小：" & rsDown("FileSize") & "</td>"
strTemp=strTemp & "<td height=30 bgColor=#ffffff>"
strTemp=strTemp & "<table width=100% border=0 cellpadding=0 cellspacing=0 bgColor=#ffffff><tr>"
strTemp=strTemp & "<td width=40% height=22> "
strTemp=strTemp & "<a href=" & rsDown("DownloadUrl") & " target=_blank>下载</a> | "
strTemp=strTemp & "<a href=DownloadShow.asp?ID=" & rsDown("ID") & ">查看</a> "
strTemp=strTemp & "</td><td align=center>"
strTemp=strTemp & "点击数：" & rsDown("Hits") & ""
strTemp=strTemp & "</td></tr></table>"
strTemp=strTemp & "</td></tr>"
strTemp=strTemp & "<tr><td width=60% height=30 bgColor=#ffffff colspan=2> "
strTemp=strTemp & "软件语言：" & rsDown("Language") & " "
strTemp=strTemp & "运行环境：" & rsDown("System") & ""
strTemp=strTemp & "</td></tr>"
strTemp=strTemp & ""
strTemp=strTemp & "</table><BR>"
response.write strTemp
rsDown.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
'=================================================
'过程名：ShowUserLogin
'作 用：显示用户登录表单
'参 数：无
'=================================================
sub ShowUserLogin()
dim strLogin
If Session("UserName")="" Then
strLogin= "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
strLogin=strLogin & "<form action='UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
strLogin=strLogin & "<tr><td height='25' align='right'>用户名：</td><td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td></tr>"
strLogin=strLogin & "<tr><td height='25' align='right'>密 码：</td><td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td></tr>"
strLogin=strLogin & "<tr align='center'><td height='25' colspan='2'><input name='Login' type='submit' id='Login' value=' 登录 '> <input name='Reset' type='reset' id='Reset' value=' 清除 '>"
strLogin=strLogin & "</td></tr>"
strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='UserReg.asp' target='_blank'>新用户注册</a> <a href='GetPassword.asp' target='_blank'>忘记密码？</a></td></tr>"
strLogin=strLogin & "</form></table>"
response.write strLogin
%>
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.UserName.value=="")
{
alert("请输入用户名！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password.value == "")
{
alert("请输入密码！");
document.UserLogin.Password.focus();
return false;
}
}
</script>
<%
Else
response.write "<br>欢迎您！" & Session("UserName") & "<br><br>"
response.write "<a href='userServer.asp'><b><font color=ff3300>会员管理中心</font></b></a><br><br>"
end if
end sub
%>