pay.asp

本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、 教育科研、教师之窗、学生园地、学校党建、 校园相册、校内论坛(导航内容后台生成,可随

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/inc.asp"-->
<%
start="下载中心"
dim founderr
founderr=false
if request.querystring("cat_id")<>"" then
  if not isInteger(request.querystring("cat_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    Response.Write "<script language=javascript>alert('搜索参数非法');javascript:history.back();</script>"
  end if
end if
call head()
call menu()
dim keyword,class_id,colname,totalsoft,Currentpage,totalpages,i
keyword=request("keyword")
cat_id=request("cat_id")
class_id=request("class_id")
colname=request("colname")
sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft order by soft_id desc"
if cat_id<>"" and class_id="" then
sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft where soft_catid="&cat_id&" order by soft_id desc"
elseif class_id<>"" and keyword="" then
sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft where soft_classid="&class_id&" order by soft_id desc"
elseif keyword<>"" and colname<>"0" then
sql="select soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from soft where "&colname&" like '%"&keyword&"%' order by soft_id desc"
elseif keyword<>"" and colname="0" then
sql="select soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from soft where soft_name like '%"&keyword&"%' or soft_desc like '%"&keyword&"%' order by soft_id desc"
else
sql="SELECT soft_id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM soft order by soft_id desc"
end if
set rssoft=server.createobject("adodb.recordset")
rssoft.open sql,conn,1,1
response.write "<TABLE id=navsub cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD class=m></TD>" & vbCrLf
response.write "<TD height=""23"">"
Set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="SELECT cat_id,cat_name FROM d_cat"
rscat.OPEN sqlcat,Conn,1,1
do while not rscat.eof
if request("cat_id")=cstr(rscat("cat_id")) then
response.write "&nbsp;<font class=""title"">·"&rscat("cat_name")&"</font>"
else
response.write "&nbsp;<a href='?cat_id="&rscat("cat_id")&"'>·"&rscat("cat_name")&"</a>&nbsp;"
end if
rscat.movenext
loop
rscat.close
set rscat=nothing

%>
</TD><TD class=r></TD></TR></TBODY></TABLE>
<TABLE id=middle cellSpacing=0 cellPadding=0 align=center boder="0">
  <TBODY>
  <TR vAlign=top align=left>
    <TD>
<DIV class=mframe>
            <%dim flname
			flname=""
			if request.querystring("class_id")<>"" then
			sql="select class_name from d_class where class_id="&request.querystring("class_id")
			set rsclass=conn.execute(sql)
			flname=rsclass("class_name")
			rsclass.close
			set rsclass=nothing
			elseif request.querystring("class_id")="" and request.querystring("cat_id")<>"" then
			sql="select cat_name from d_cat where cat_id="&request.querystring("cat_id")
			set rscat=conn.execute(sql)
			flname=rscat("cat_name")
			rscat.close
			set rscat=nothing
			end if%>
<SCRIPT type=text/javascript>lanyutable("<%=flname%>分类<%if keyword<>"" then%>共搜索到<%else%>共有<%end if%><%=rssoft.recordcount%>个文件");</SCRIPT>
<table width="100%" border="1" align="center" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#f0f0f0" style="border-collapse: collapse" frame=rhs><%
if not rssoft.eof then
rssoft.movefirst
rssoft.pagesize=softperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rssoft.pagecount then
      currentpage=rssoft.pagecount
   end if
else
   currentpage=1
end if
   totalsoft=rssoft.recordcount
   if currentpage<>1 then
       if (currentpage-1)*softperpage<totalsoft then
	       rssoft.move(currentpage-1)*softperpage
		   dim bookmark
		   bookmark=rssoft.bookmark
	   end if
   end if
   if (totalsoft mod softperpage)=0 then
      totalpages=totalsoft\softperpage
   else
      totalpages=totalsoft\softperpage+1
   end if
%>
<%
i=0
do while not rssoft.eof and i<softperpage
%>
<tr bgcolor="#ffffff"><td colspan="5" height="10"></td></tr><tr bgcolor="#ffffff"><td colspan="5" height="10">
<table width="100%" border="0"><tr><td width="*"><UL class=nl>
  <LI class=lanyu><a href='showdown.asp?soft_id=<%=rssoft("soft_id")%>' target='_blank' Title='查看详细内容'></a>如何购买程序——支付方式</li>
</ul></td>
    <td width="50">&nbsp;</td>
</tr></table></td></tr>
<tr bgcolor="#ffffff"><td colspan="5" height="30">·</td>
</tr>
      <%
i=i+1
rssoft.movenext
loop
else
if rssoft.eof and rssoft.bof then
%>
        <tr> 
          <td height="100" colspan="5" bgcolor="#Ffffff" align="center">&nbsp;</td>
        </tr>
<%end if
end if
%>
<tr bgcolor="#ffffff"><td colspan="5" height="10"></td></tr><tr bgcolor="#ffffff"><td colspan="5" height="30">
<TABLE width="100%" align=center border=0><TBODY>
<form name="form1" method="post" action="down.asp?colname=<%=request("colname")%>&keyword=<%=request("keyword")%>&cat_id=<%=request("cat_id")%>&class_id=<%=request("class_id")%>">
<TR> 
<TD align=middle width="35%" height=25>&nbsp;</TD>
<TD width="40%" align=middle>&nbsp;</TD>
<TD align=middle width="25%">&nbsp;</TD>
</TR>
</FORM>
</TABLE>          
</TD>
</TR><td width="20%"></FORM>
<tr align="center"><td width="50%" height="1" colspan="3" bgcolor="#F0f0f0"></td></tr>
</TABLE>
<br>  
</TD><TD width=5></TD><TD width=190>
<DIV class=member>
<%if not cat_id = "" then%>
<SCRIPT type=text/javascript>lanyutabletop("文 件 分 类","mr");</SCRIPT>
<UL class=nl><%Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT cat_id,class_id,class_name FROM d_class where cat_id=" &cat_id& ""
rsclass.OPEN sqlclass,Conn,1,1
	do while not rsclass.eof
if request("class_id")=cstr(rsclass("class_id")) then
response.write "<LI><font class=""title"">"&rsclass("class_name")&"</font></LI>"
else
response.write "<LI><a href='?cat_id="&rsclass("cat_id")&"&class_id="&rsclass("class_id")&"'>"&rsclass("class_name")&"</a></LI>"
end if
		rsclass.movenext
	loop
	rsclass.close
set rsclass=nothing
%></UL>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<%end if
sql1="SELECT top " &topsoftnum& " soft_dcount,soft_rcount,soft_id,soft_name,soft_joindate FROM soft where soft_id ORDER BY soft_dcount DESC , soft_id DESC"
sql2="SELECT top " &newsoft& " soft_id,soft_name,soft_joindate,soft_dcount,isbest,soft_rcount FROM soft where isbest=1 order by soft_id DESC"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
if request.querystring("class_id")<>"" or request.querystring("cat_id")<>"" then
if request.querystring("class_id")="" and request.querystring("cat_id")<>"" then
sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_catid= " &request.querystring("cat_id")& " and soft_id order by soft_dcount DESC , soft_id DESC"
elseif request.querystring("class_id")<>"" then
sql3="SELECT top 10 soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount FROM soft WHERE soft_classid= " &request.querystring("class_id")& " and soft_id order by soft_dcount DESC , soft_joindate DESC"
end if
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,1,1
%>
<SCRIPT type=text/javascript>lanyutabletop("分 类 排 行","mr");</SCRIPT><UL class=nl>
<%do while not rs3.eof%>
<LI><a href='showdown.asp?soft_id=<%=rs3("soft_id")%>' target='_blank' Title='文件名称：<%=rs3("soft_name")%>&#13&#10上传时间：<%=rs3("soft_joindate")%>&#13&#10下载次数：<%=rs3("soft_dcount")%>'><%=left(rs3("soft_name"),14)%></a></li>
              <%rs3.movenext
loop
if rs3.eof and rs3.bof then%>
<div align=center><br>目前还没有文件！<br><br></div>
              <%end if%>
</UL><SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
      <%
rs3.close
set rs3=nothing
end if
%>
<SCRIPT type=text/javascript>lanyutabletop("全 部 排 行","mr");</SCRIPT><UL class=nl>
<%do while not rs1.eof%>
<LI><a href='showdown.asp?soft_id=<%=rs1("soft_id")%>' target='_blank' Title='文件名称：<%=rs1("soft_name")%>&#13&#10上传时间：<%=rs1("soft_joindate")%>&#13&#10下载次数：<%=rs1("soft_dcount")%>'><%=left(rs1("soft_name"),14)%></a>
              <%rs1.movenext
loop
if rs1.eof and rs1.bof then%>
<div align=center><br>目前还没有文件！<br><br></div>
              <%end if%>
</UL><SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("推 荐 下 载","mr");</SCRIPT><UL class=nl>
              <%do while not rs2.eof%>
<LI><a href='showdown.asp?soft_id=<%=rs2("soft_id")%>' target='_blank' Title='文件名称：<%=rs2("soft_name")%>&#13&#10上传时间：<%=rs2("soft_joindate")%>&#13&#10下载次数：<%=rs2("soft_dcount")%>'><%=left(rs2("soft_name"),14)%></a></li>
              <%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
<div align=center><br>目前还没有文件！<br><br></div>
             <%end if%>
          </td>
        </tr>
      <%
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
%>

</UL><SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
<SCRIPT type=text/javascript>lanyutabletop("软 件 搜 索","mr");</SCRIPT><center>
<form name="form1" method="post" action="down.asp"> 
<input type="radio" name="colname" value="soft_name" checked>名称&nbsp;<input type="radio" name="colname" value="soft_desc">简介&nbsp;<input type='radio' name='colname' value='review'>评论
<input type='text' name='keyword'  size='15' value='搜索关键字' maxlength='50' onFocus='this.select();' class="lanyu">&nbsp;<input type='submit' name='Submit'  value='搜索' onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"></form>
<SCRIPT type=text/javascript>lanyutablebottom("ml");</SCRIPT>
</TD>
</TR></TBODY></TABLE>
<%
rssoft.close
set rssoft=nothing
call footer()
%>