admin_soft.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：admin_soft.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：软件系统管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then	
	errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
	response.End
end if
dim page,cat_id,keyword,class_id,colname,totalsoft,Currentpage,totalpages,i,cat_name,class_name,soft_title,soft_size,soft_mode,roof,commend,demo,home,showpic,content,url1,url2,url3,url4,soft_id,softgood,userview,istop
if request.querystring("page")<>"" then
	page=checksql("文件分页",request.querystring("page"),0,8)
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td class="td_title"><a href="?action=catlist"><font color="#ffffff">分类管理</font></a></td>
		<td class="td_title"><a href="?action=addcat"><font color="#ffffff">新建分类</font></a></td>
		<td class="td_title"> <a href="?action=list"><font color="#ffffff">文件管理</font></a></td>
		<td class="td_title"><a href="?action=addsoft"><font color="#ffffff">新增文件</font></a></td>
		<td class="td_title"><a href="?action=remarklist"><font color="#ffffff">评论管理</font></a></td>
	</tr>
</table>
<br>
<%
'==================================
'=功    能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
	case "catlist" 		'分类列表
		call catlist()
	case "addcat" 	'添加大分类
		call addcat()
	case "editcat"			'编辑大分类
		call editcat()
	case "delcat"		'删除大分类
		call delcat()
	case "addclass" 	'添加子分类
		call addclass()
	case "editclass"			'编辑子分类
		call editclass()
	case "delclass"		'删除子分类
		call delclass()
	case "list"			'文件列表
		call list()
	case "addsoft"	'添加文件
		call addsoft()
	case "editsoft"		'编辑已有文件
		call editsoft()
	case "delsoft"		'删除已有文件
		call delsoft()
	case "remarklist"		'文件评论列表
		call remarklist()
	case "delremark"		'删除文件评论
		call delremark()
	case else
		call list()
End Select
'==================================
'=过 程 名：list()
'=功    能：文件列表
'==================================
sub list()
if request.form("keyword")<>"" then
	keyword=checksql("文件关键词",request.form("keyword"),1,50)
end if
if request.querystring("cat_id")<>"" then
	cat_id=checksql("文件分类ID",request.querystring("cat_id"),0,4)
end if
if request.querystring("class_id")<>"" then
	class_id=checksql("文件子类ID",request.querystring("class_id"),0,4)
end if
if request.form("colname")<>"" then
	colname=checksql("搜索关键词",request.form("colname"),1,50)
end if
sql="select * from wapls_soft order by istop=1,soft_date desc"
if cat_id<>"" and class_id="" then
	sql="SELECT * from wapls_soft where cat_id="&cat_id&" order by istop=1,soft_date desc"
elseif class_id<>"" and keyword="" then
	sql="SELECT * from wapls_soft where class_id="&class_id&" order by istop=1,soft_date desc"
elseif keyword<>"" and colname<>"0" then
	sql="select * from wapls_soft where "&colname&" like '%"&keyword&"%' order by istop=1,soft_date desc"
else
	sql="SELECT * from wapls_soft order by istop=1,soft_date desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
	<form>
		<td width="40%" align="center">跳转到
		<select name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
		<option value="admin_soft.asp">选择分类</option>
		<option value="admin_soft.asp">文件管理首页</option>
		<%
		Set rscat = Server.CreateObject("ADODB.Recordset")
		sqlcat="SELECT * from wapls_soft_cat"
		rscat.OPEN sqlcat,Conn,1,1
		do while not rscat.eof
		colparam1=rscat("cat_id")
		%>
		<option value="admin_soft.asp?cat_id=<%=rscat("cat_id")%>">----<%=rscat("cat_name")%>----</option>
		<%
		Set rsclass = Server.CreateObject("ADODB.Recordset")
		sqlclass="SELECT * from wapls_soft_class where cat_id=" &colparam1& ""
		rsclass.OPEN sqlclass,Conn,1,1
		do while not rsclass.eof
		%>
		<option value='admin_soft.asp?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
		%>
		</select>
		</td>
	</form>
	<form name="form1" method="post" action="admin_soft.asp">
		<td width="67%" align="center"><select name="colname">
		<option value="soft_title" selected>文件名称</option>
		<option value="soft_content">文件描述</option>
		</select>
		<input type="text" name="keyword">
		&nbsp;&nbsp; <input type="submit" name="Submit" value="搜索">
		</td>
	</form>
	</tr>
</table>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td align="right">
		<%
		dim flname
		flname=""
		if request.querystring("class_id")<>"" then
			sql="select class_name from wapls_soft_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 wapls_soft_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>
<%
if not rs.eof then
	rs.movefirst
	perpage=cint(perpage)
	rs.pagesize=perpage
	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)*perpage<totalsoft then
			rs.move(currentpage-1)*perpage
		end if
	end if
	if (totalsoft mod perpage)=0 then
		totalpages=totalsoft\perpage
	else
		totalpages=totalsoft\perpage+1
	end if
	i=0
	do while not rs.eof and i<perpage
	sql="select class_name from wapls_soft_class where class_id="&rs("class_id")
	set rsclass=conn.execute(sql)
	classname=rsclass(0)
	rsclass.close:set rsclass=nothing
	sql="select cat_name from wapls_soft_cat where cat_id="&rs("cat_id")
	set rscat=conn.execute(sql)
	catname=rscat(0)
	rscat.close:set rscat=nothing
	%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
<td width="80%"> <%if rs("soft_err")=1 then response.write "<span class=""current_font"" title=""下载链接失效""><strong>[×]</strong></span>" else response.write "<font color=""#228b22"" title=""下载链接有效"">[√]</span>" end if%>&nbsp;<%=rs("soft_title")%>&nbsp;<span class="disable_font">[<%=catname%>|<%=classname%>&nbsp;<%=rs("soft_date")%>&nbsp;<%=rs("soft_dcount")%>/<%=rs("soft_rcount")%>]</span>&nbsp;<%if DateDiff("d",rs("soft_date"),now())<1 then%><img src="images/new.gif" border="0"><%end if%><%if rs("user_view")=1 then%>&nbsp;<img src="images/userview.gif" border="0" alt="会员文件，下载需消费<%=rs("moneypay")%>个金币"><%elseif rs("user_view")=2 then%>&nbsp;<img src="images/vipview.gif" border="0" alt="VIP会员文件，下载需消费<%=rs("moneypay")%>个金币"><%end if%><%if rs("soft_good")=1 then%>&nbsp;<span class="current_font">[荐]</span><%elseif rs("soft_good")=2 then%>&nbsp;<span class="current_font">[精]</span><%end if%><%if rs("istop")=1 then%>&nbsp;<img src="images/ztop.gif" border="0" alt="置顶文件"><%end if%>&nbsp;<img src="<%if rs("soft_showpic")<>"" then%>../<%=rs("soft_showpic")%><%else%>images/nopic.gif<%end if%>" alt="文件图象" border=0 onmousewheel="return bbimg(this)" onload="javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;" height="25" width="18"></td><td width="20%" align="center"><button onClick="window.location='?action=editsoft&id=<%=rs("soft_id")%>&page=<%=currentpage%>'">编辑</button>&nbsp;<button onClick="window.location='?action=delsoft&id=<%=rs("soft_id")%>&page=<%=currentpage%>'">删除</button></td>
	</tr>
	<tr class="tablebody">
		<td height="13"   colspan="2"><%=trim(left(rs("soft_content"),100))%></td>
	</tr>
</table>
<br>
	<%
	i=i+1
	rs.movenext
	loop
	else
	if rs.eof and rs.bof then
	%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td align="center" height="70" class="disable_font">当前没有文件！</td>
	</tr>
</table>
<br>
<%
	end if
end if
rs.close
set rs=nothing
if totalsoft>perpage then%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form" method="post" action="">
	<tr class="tablebody">
		<td align="center"><%showpage totalsoft,perpage,"admin_soft.asp?action=list&"%></td>
	</tr>
	</form>
</table>
<%
end if
end sub
'==================================
'=过 程 名：catlist()
'=功    能：分类列表
'==================================
sub catlist()
sql="select * from wapls_soft_cat order by cat_num"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td width="20%" class="td_title">大类名称</td>
		<td width="80%" class="td_title">子 分 类 列 表</td>
	</tr>
	<%do while not rs.eof%>
	<tr class="tablebody">
<td rowspan="2" align="center"><strong><%=rs("cat_name")%></strong>&nbsp;编号:<%=rs("cat_id")%><br>排序:<%=rs("cat_num")%><br>[<%if rs("cat_br")=1 then%>换行<%else%><span class="current_font">不换行</span><%end if%>]</td>
		<td><button onClick="window.location='?action=addclass&catname=<%=rs("cat_name")%>'">新建子分类</button>
		<button onClick="window.location='?action=editcat&id=<%=rs("cat_id")%>'">修改大分类</button>
		<button onClick="window.location='?action=delcat&id=<%=rs("cat_id")%>&name=<%=rs("cat_name")%>'">删除大分类</button>&nbsp;&nbsp;&nbsp;链接地址:<input size="30" type="text" value="Soft.asp?Action=cat&id=<%=rs("cat_id")%>" onmouseover="this.focus()" onfocus="this.select()"></td>
	</tr>
	<tr class="tablebody">
		<td style="line-height:150%">
		<table border="0" width="100%"><%
		sql="select * from wapls_soft_class where cat_id="&rs("cat_id")&" order by class_num"
		set rs2=server.createobject("adodb.recordset")
		rs2.open sql,conn,1,1
		do while not rs2.eof%>
		<tr>
<td width="205">·<%=rs2("class_name")%>&nbsp;编号:<%=rs2("class_id")%>&nbsp;排序:<%=rs2("class_num")%>&nbsp;<%if rs2("class_br")=1 then%>换行<%else%><span class="current_font">不换行</span><%end if%></td>
		<td width="*"><button onClick="window.location='?action=editclass&id=<%=rs2("class_id")%>'">编辑</button>
		<button onClick="window.location='?action=delclass&id=<%=rs2("class_id")%>&catid=<%=rs("cat_id")%>&name=<%=rs2("class_name")%>'">删除</button>&nbsp;&nbsp;&nbsp;链接地址:<input size="30" type="text" value="Soft.asp?Action=cla&id=<%=rs2("class_id")%>" onmouseover="this.focus()" onfocus="this.select()"></td>
		</tr><%rs2.movenext
		loop
		if rs2.bof and rs2.eof then
		response.write "·当前没有子分类！"
		end if
		rs2.close
		set rs2=nothing
		response.write"</table>"
		rs.movenext
		loop
		if rs.bof and rs.eof then
		response.write "<tr class=""tablebody""><td align=""center"" height=""70"" colspan=""2"" class=""disable_font"">当前没有分类！</td></tr>"
		end if
		rs.close
		set rs=nothing
		%>
		</td>
	</tr>
</table>
<br>
<div align="center" class="current_font">* 注意：在设置了一级分类后，必须同时设置二级分类，否则在输入文件时，不能正确选择分类选项！</div>
<%end sub
'==================================
'=过 程 名：addcat()
'=功    能：新添大分类
'==================================
sub addcat()
if request.form("addcat")="true" then
	cat_name=checksql("文件分类名称",request.form("cat_name"),1,20)
	cat_num=checksql("分类排序",request.form("cat_num"),1,5)
	cat_title=checksql("栏目说明",request.form("cat_title"),1,0)
	if request.form("cat_br")="" then
		cat_br=0
	elseif request.form("cat_br")=1 then
		cat_br=1
	else
		cat_br=0
	end if
	sql="select * from wapls_soft_cat"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("cat_name")=cat_name
	rs("cat_num")=cat_num
	rs("cat_br")=cat_br
	rs("cat_title")=cat_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
		<tr class="tablebody">
		<td class="td_title" colspan="2">新建大分类[cat]</td>
	</tr>
	<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="cat_name" size="20" maxlength="20"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">