admin_down.asp

研究生会网站,,适合大中专门院校学生组织使用

		</form>
      </table>
<%end if
if request.querystring("action")="editcat" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
	    <form name="form1" method="post" action="admin_down.asp">
        <tr> 
          <td>修改分类</td>
        </tr>
        <tr> 
            <td>分类名称- 
              <input type="text" name="cat_name" size="40" class="textarea" value="<%=request.querystring("name")%>">
          </td>
        </tr>
        <tr> 
            <td align="center">
              <input type="submit" name="Submit3" value="确定修改" class="button">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
        </tr>
		<input type="hidden" name="action" value="editcat">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
<%end if
if request.querystring("action")="editclass" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
        <form name="form2" method="post" action="admin_down.asp">
          <tr> 
            <td>修改子分类</td>
          </tr>
          <tr> 
            <td>子分类名称- 
              <input type="text" name="class_name" size="50" class="textarea" value="<%=request.querystring("name")%>">
              <br>
              所属分类- 
              <select name="cat_id">
                <%sql="select * from d_cat"
set rs=conn.execute(sql)
do while not rs.eof
%>
                <option value="<%=rs("cat_id")%>" <%if rs("cat_id")=cint(request.querystring("cid")) then response.write "selected" end if%>><%=rs("cat_name")%></option>
                <%rs.movenext
loop
if rs.eof and rs.bof then%>
                <option value="0">暂无分类</option>
                <%end if%>
              </select>
            </td>
          </tr>
          <tr> 
            <td align="center"> 
              <input type="submit" name="Submit" value="确定修改" class="button">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
          </tr>
          <input type="hidden" name="action" value="editclass">
		  <input type="hidden" name="id" value="<%=request.querystring("id")%>">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  if request.querystring("action")="delcat" then%>
     <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_down.asp">
          <tr> 
            <td>删除分类</td>
          </tr>
          <tr> 
            <td>分类名称- 
              <input type="text" name="cat_name2" size="40" class="textarea" value="<%=request.querystring("name")%>"> 
            </td>
          </tr>
          <tr> 
            <td align="center"> <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
          </tr>
          <input type="hidden" name="action" value="delcat">
          <input type="hidden" name="id" value="<%=request.querystring("id")%>">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  if request.querystring("action")="delclass" then%>
     <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
        <form name="form2" method="post" action="admin_down.asp">
          <tr> 
            <td>删除子分类</td>
          </tr>
          <tr> 
            <td>子分类名称-<%=request.querystring("name")%>
              <br>
              所属分类- 
                <%sql="select * from d_cat where cat_id="&cint(request.querystring("cid"))
set rs=conn.execute(sql)
%>
<%=rs("cat_name")%>
</td>
          </tr>
          <tr> 
            <td align="center"> <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
          </tr>
          <input type="hidden" name="action" value="delclass">
          <input type="hidden" name="id" value="<%=request.querystring("id")%>">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
if request.querystring("action")="list" then
dim keyword,class_id,colname,totalsoft,Currentpage,totalpages,i
keyword=trim(replace(request.form("keyword"),"'",""))
cat_id=request("cat_id")
class_id=request("class_id")
colname=request("colname")

sql="select soft_id,soft_name,soft_joindate,soft_catname,soft_classname,soft_rcount,soft_dcount,soft_desc,review,reviewcount from soft order by soft_joindate desc"
if cat_id<>"" and class_id="" then
    sql="SELECT soft_id,soft_name,soft_joindate,soft_catname,soft_classname,soft_rcount,soft_dcount,soft_desc,review,reviewcount FROM soft where soft_catid="&cat_id&" order by soft_joindate desc"
elseif class_id<>"" and keyword="" then
	sql="SELECT soft_id,soft_name,soft_joindate,soft_catname,soft_classname,soft_rcount,soft_dcount,soft_desc,review,reviewcount FROM soft where soft_classid="&class_id&" order by soft_joindate desc"
elseif keyword<>"" and colname<>"0" then
	sql="select soft_id,soft_name,soft_joindate,soft_catname,soft_classname,soft_rcount,soft_dcount,soft_desc,review,reviewcount from soft where "&colname&" like '%"&keyword&"%' order by soft_joindate desc"
else
	sql="SELECT soft_id,soft_name,soft_joindate,soft_catname,soft_classname,soft_rcount,soft_dcount,soft_desc,review,reviewcount FROM soft order by soft_joindate desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
 <table align="center" width="98%" align="center" border="0" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
<tr><form name="form1" method="post" action="admin_down.asp?action=list"><td> 
<select name="colname"><option value=0 selected>--==搜索范围==--</option><option value="soft_name">软件名称</option><option value="soft_desc">软件描述</option></select>&nbsp; <input type="text" name="keyword" class="textarea" size="20">&nbsp;&nbsp; <input type="submit" name="Submit" value="搜索" class="button"></td></form><form><td >跳转到<select name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'><option value="admin_down.asp?action=list">---===选择分类===---</option><option value="admin_down.asp?action=list">---===软件管理首页===---</option><%
Set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="SELECT * FROM d_cat"
rscat.OPEN sqlcat,Conn,1,1
do while not rscat.eof
colparam1=rscat("cat_id")
%><option value="admin_down.asp?action=list&cat_id=<%=rscat("cat_id")%>">----<%=rscat("cat_name")%>----</option>
                      <%
Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT * FROM d_class where cat_id=" &colparam1& ""
rsclass.OPEN sqlclass,Conn,1,1
	do while not rsclass.eof
%><option value='admin_down.asp?action=list&cat_id=<%=rsclass("cat_id")%>&class_id=<%=rsclass("class_id")%>'><%=rsclass("class_name")%></option>
<%
        rsclass.movenext
	loop
	rsclass.close
set rsclass=nothing
rscat.movenext
loop
rscat.close
set rscat=nothing
set rstotal=nothing
%></select></td></form><td align="right"> 
<%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%>
                  <font color="#ff6600"><%=flname%></font>分类共有<%=rs.recordcount%>个程序 </td>
              </tr>
            </table>
            <br>
<%
dim softperpage
softperpage = 10
if not rs.eof then
rs.movefirst
rs.pagesize=softperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalsoft=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*softperpage<totalsoft then
	       rs.move(currentpage-1)*softperpage
		   dim bookmark
		   bookmark=rs.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 rs.eof and i<softperpage%>
 <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
              <tr> 
                <td width="60%"><a href="#"><b><%=rs("soft_name")%></b></a> <span class="date"><%=rs("soft_joindate")%></span> <span class="newshead"><%=rs("soft_dcount")%></span>/<span class="newshead"><%=rs("soft_rcount")%></span></td>
<!-- <td width="20%" align="center"><font color=red><%=rs("reviewcount")%></font></span>篇评论</td> -->
                <td width="20%" align="center">  <!-- <a href="admin_view.asp?action=down&soft_id=<%=rs("soft_id")%>">评论</a> --> <a href="admin_down.asp?id=<%=rs("soft_id")%>&action=editsoft">编辑</a> 
                  <a href="admin_down.asp?id=<%=rs("soft_id")%>&action=delsoft">删除</a> </td>
              </tr>
              <tr> 
                <td colspan="3"><%=cutstr(rs("soft_desc"),40,false,none)%></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="8"></td>
              </tr>
            </table>
<%i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%>
 <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
              <tr> 
                <td align="center">当前没有程序！</td>
              </tr>
            </table>
<%end if
end if%>
 <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" style="border-collapse: collapse">
        <form name="form3" method="post" action="admin_down.asp?action=list&cat_id=<%=request("cat_id")%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>">
          <tr> 
            <td align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalsoft%>条记录/<%=softperpage%>个每页. 
              <%
i=1
showye=totalpages
if showye>10 then
showye=10
end if

for i=1 to showye
if i=currentpage then
%>
              <%=i%> 
              <%else%>
              <a href="admin_down.asp?action=list&page=<%=i%>&cat_id=<%=request("cat_id")%>&keyword=<%=request("keyword")%>&colname=<%=request("colname")%>"><%=i%></a> 
              <%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
              <a href="admin_down.asp?action=list&page=<%=i%>&cat_id=<%=request("cat_id")%>&class_id=<%=request("class_id")%>" title="下一页">>></a> 
              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="text" name="page" class="textarea" size="4">
              <input type="submit" name="Submit" value="Go" class="button">
            </td>
          </tr>
        </form>
      </table>
<%end if
if request.form("MM_insert") then

if request.Form("action")="newsoft" then
sql="select * from soft"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim soft_name,commend,demo,showpic,desc
soft_name=trim(replace(request.form("name"),"'",""))
commend=cint(request.form("commend"))
demo=trim(replace(request.form("demo"),"'",""))
showpic=trim(replace(request.form("showpic"),"'",""))
desc=trim(replace(request.form("desc"),"'",""))
downisbest=request.form("isbest")

if soft_name="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须填写专题标题！');history.back(1);</script>")
else
  rs("soft_name")=soft_name
end if
if commend<1 then
  founderr=true
Response.Write("<script language=javascript>alert('你必须选择专题推荐程度！');history.back(1);</script>")
else
  rs("soft_commend")=commend
end if
if cint(downisbest)=1 then
  rs("isbest")=cint(downisbest)
end if
if request("of")<>"" then
		Set rsclass = Server.CreateObject("ADODB.Recordset")
		sqlclass="SELECT * FROM d_class where class_id="&request("of")
		rsclass.OPEN sqlclass,Conn,1,1
		rs("soft_classid")=rsclass("class_id")
		rs("soft_classname")=rsclass("class_name")
		rs("soft_catid")=rsclass("cat_id")
		set rscat = Server.CreateObject("ADODB.Recordset")
		sqlcat="select cat_name from d_cat where cat_id="&rsclass("cat_id")
		rscat.open sqlcat,conn,1,1
		rs("soft_catname")=rscat("cat_name")
		rscat.close
		rsclass.close
		set rscat=nothing
		set rsclass=nothing
else
		founderr=true
Response.Write("<script language=javascript>alert('你必须选择所属分类，或者非法操作！');history.back(1);</script>")
end if
if demo="" then
  rs("soft_demo")=""
else
  rs("soft_demo")=demo
end if

if showpic="" then
  rs("soft_showpic")=""
else
  rs("soft_showpic")=showpic
end if
if desc="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须填写专题内容！');history.back(1);</script>")
else
  rs("soft_desc")=desc
end if

if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  sql="update allcount set softcount = softcount + 1"
  conn.execute(sql)
  
  response.redirect "admin_down.asp?action=list"
end if
end if

'edit
if request.Form("action")="editsoft" then
if request.Form("id")="" then
  founderr=true