📄 admin_fl.asp

📁 蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn
💻 ASP
字号:
<%
'==================================
'=文 件 名：admin_fl.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
elseif cur_adminsuper<>1 then
	errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
	response.End
end if
dim page,title,flcontent,fl_id,userview
if request.querystring("page")<>"" then
	page=checksql("下载分类分页",request.querystring("page"),0,8)
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr align="center" class="tablebody">
		<td width="50%" class="td_title"><a href="?action=admin"><font color="#ffffff">下载分类管理</font></a></td>
		<td  width="50%" class="td_title"><a href="?action=add"><font color="#ffffff">新增下载分类</font></a></td>
	</tr>
</table>
<br>
<%
'==================================
'=功    能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
	case "admin"		'下载分类管理
		call admin()
	case "add"	'添加下载分类
		call add()
	case "edit"		'编辑下载分类
		call edit()
	case "del"	'删除下载分类
		call del()
	case else
		call admin()
End Select
'==================================
'=过 程 名：admin()
'=功    能：下载分类管理
'==================================
sub admin() 
dim totalfl,Currentpage,totalpages,k
if request.querystring("fl_class")<>"" then
fl_class=TRim(Request("fl_class"))
	sql="select * from wapls_fl where fl_class="&fl_class&" order by fl_id desc"
else
	sql="select * from wapls_fl order by fl_id 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">
		<td colspan="4" class="td_title">下载分类管理</td>
	</tr>
	<tr class="tablebody" align="center">
		<td width="10%">编号</td>
		<td width="30%">下载分类标题</td>
		<td width="40%">链接地址</td>
		<td width="20%">操作</td>
	</tr>
	<%
	if not rs.eof then
		rs.movefirst
		perpage=cint(perpage)
		rs.pagesize=perpage
		if trim(request("page"))<>"" then
			currentpage=cint(request.querystring("page"))
			if currentpage>rs.pagecount then
				currentpage=rs.pagecount
			end if
		else
			currentpage=1
		end if
		totalfl=rs.recordcount
		if currentpage<>1 then
			if (currentpage-1)*perpage<totalfl then
				rs.move(currentpage-1)*perpage
			end if
		end if
		if (totalfl mod perpage)=0 then
			totalpages=totalfl\perpage
		else
			totalpages=totalfl\perpage+1
		end if
		k=0
		do while not rs.eof and k<perpage
		%>
		<tr class="tablebody">
			<td align="center"><%=rs("fl_id")%></td>
			<td><%=rs("fl_title")%> 
<a href=?fl_class=<%=rs("fl_class")%>>
<%if rs("fl_class")=1 then%>
[软件类]
<%end if%>
<%if rs("fl_class")=2 then%>
[图像类]
<%end if%>
<%if rs("fl_class")=3 then%>
[影音类]
<%end if%>
</a>
</td>
<td><input size="30" type="text" value="<%if rs("fl_class")=1 then%>soft<%end if%><%if rs("fl_class")=2 then%>pic<%end if%><%if rs("fl_class")=3 then%>music<%end if%>.asp?Action=fl&id=<%=rs("fl_id")%>" onmouseover="this.focus()" onfocus="this.select()"></td>
<td align="center"><button onClick="window.location
='?id=<%=rs("fl_id")%>&action=edit&page=<%=currentpage%>'">编辑</button>&nbsp;<button onClick="window.location
='?id=<%=rs("fl_id")%>&action=del&page=<%=currentpage%>'">删除</button></td>
		</tr>
		<%
		k=k+1
		rs.movenext
		loop
	else
		if rs.eof and rs.bof then
		%>
	<tr align="center" class="tablebody">
		<td colspan="4" height="70" class="disable_font">当前没有下载分类！</td>
	</tr>
		<%
		end if
	end if
	%>
</table>
<%if totalfl>perpage then%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
		<form name="form" method="post" action="">
		<tr class="tablebody">
		<td align="center">
		<%showpage totalfl,perpage,"admin_blog.asp?action=admin&"%>
		</td>
		</tr>
		</form>
	</table>
<%
end if
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：add()
'=功    能：新增下载分类
'==================================
sub add()
if request.form("addfl")="true" then
	fl_title=checksql("下载分类标题",request.form("fl_title"),1,10)
	fl_class=checksql("下载大分类",request.form("fl_class"),0,1)
	sql="select * from wapls_fl"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("fl_title")=fl_title
	rs("fl_class")=fl_class
	rs.update
	rs.close
	set rs=nothing
	response.redirect "admin_fl.asp"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action=""  onsubmit="javascript:submits();">
	<tr class="tablebody">
		<td class="td_title" colspan="2">增加下载分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">平台标题</td>
		<td width="87%"><input type="text" name="fl_title" size="30"  maxlength="10"></td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">选择分类</td>
		<td width="87%">
		<input type="radio" name="fl_class" value="1"> 软件类
		<input type="radio" name="fl_class" value="2"> 图像类
		<input type="radio" name="fl_class" value="3"> 影音类
		</td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" height="30" align="center" colspan="2"><input type="submit" name="Submit2" value="确定新增" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}"><input type="hidden" name="addfl" value="true"></td>
	</tr>
	</form>
</table>
<%
end sub
'==================================
'=过 程 名：edit()
'=功    能：编辑下载分类
'==================================
sub edit()
if request.form("editfl")="true" then
	dim curpage
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	fl_title=checksql("下载分类标题",request.form("fl_title"),1,10)
	fl_class=checksql("下载大分类",request.form("fl_class"),0,1)
	sql="select * from wapls_fl where fl_id="&cint(request.form("id"))
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("fl_title")=fl_title
	rs("fl_class")=fl_class
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=admin&page="&curpage&""
end if
fl_id=checksql("下载分类ID",request.querystring("id"),0,8)
sql="select * from wapls_fl where fl_id="&fl_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="" onsubmit="javascript:submits();">
	<tr class="tablebody">
		<td class="td_title" colspan="2">编辑下载分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">平台标题</td>
		<td width="87%"><input type="text" name="fl_title" size="30" maxlength="50" value="<%=rs("fl_title")%>"></td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">选择分类</td>
		<td width="87%">
		<input type="radio" name="fl_class" value="1" <%if rs("fl_class")=1 then%>checked<%end if%>> 软件类
		<input type="radio" name="fl_class" value="2" <%if rs("fl_class")=2 then%>checked<%end if%>> 图像类
		<input type="radio" name="fl_class" value="3" <%if rs("fl_class")=3 then%>checked<%end if%>> 影音类
		</td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" colspan="2" height="30" align="center">
		<input type="submit" name="Submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="hidden" name="id" value="<%=rs("fl_id")%>">
		<input type="hidden" name="editfl" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：del()
'=功    能：删除下载分类
'==================================
sub del()
if request.form("delfl")="true" then
	dim curpage
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	fl_id=checksql("下载分类ID",request.Form("id"),0,8)
	sql="select * from wapls_fl where fl_id="&fl_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=admin&page="&curpage&""
end if
fl_id=checksql("下载分类ID",request.querystring("id"),0,8)
sql="select * from wapls_fl where fl_id="&fl_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">删除下载分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">标 题</td>
		<td width="87%"><%=rs("fl_title")%></td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" height="30" align="center" colspan="2">
		<input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您确定要删除『<%=rs("fl_title")%>』这个下载分类吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=rs("fl_id")%>">
		<input type="hidden" name="delfl" value="true"></td>
		<input type="hidden" name="cur_page" value="<%=request.querystring("page")%>">
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
%>
<!--#include file="wapls_admin_bottom.asp"-->
💿 文件大小 341 K
👤 上传用户 tzxiaojian
📂 所属分类人工智能/神经网络
🏷️ 相关标签

#WAP #xywap #http #cn
⌨️ 快捷键说明

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