📄 adminfl.asp

📁 Flash电子相册 v1.2 Build 1108完整版本下载
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<%
	  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")<>2 then
		response.write "<script>alert('对不起!你不是高级管理员!');history.back();</script>"
		response.end
	end if
  end if
%>
<title>设置分类页面 | WLONG3D文件上传系统wlup3.5</title>
<link rel="stylesheet" href="FORUM.CSS" type="text/css">
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#FF0000">
<table width="95%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#6699FF">
  <tr bgcolor="#99CCFF"> 
    <td colspan="2" height="22"> 
      <div align="center"><b>WLONG3D文件上传系统wlup3.5参数设置</b></div>
    </td>
  </tr>
  <tr> 
    <td width="21%" bgcolor="#FFFFCC" valign="top"> 
      <!--#include file="left.asp" -->
    </td>
    <td width="79%" bgcolor="#FFFFFF" align="center" valign="top"> 
      <table width="90%" border="1" cellspacing="1" cellpadding="3">
        <tr> 
          <td bgcolor="#FFFFCC" bordercolor="#6699FF"> 
            <div align="center"><a href="adminfl.asp?action=add">添加分类</a> | <a href="adminfl.asp">浏览分类</a></div>
          </td>
        </tr>
      </table>
      <br>
      <table width="90%" border="1" cellspacing="1" cellpadding="3">
        <tr> 
          <td bordercolor="#6699FF" bgcolor="#FFCC00" align="center">设置分类</td>
        </tr>
        <tr> 
          <td bordercolor="#6699FF" align="center">
<%  dim rs,sql
    Set rs= Server.CreateObject("ADODB.Recordset")

    select case request("action")
	case "add"
	call addfl()
	case "edit"
	call editfl()
	case "save"
	call savefl()
	case "saveedit"
	call saveedit()
	case else
	call setfl()
	end select

    set rs=nothing	
sub setfl()
    if not isempty(request("flid")) then
     		idlist=request("flid")
     		if instr(idlist,",")>0 then
		dim idarr
		idArr=split(idlist)
		dim id
		for i = 0 to ubound(idarr)
	       		id=clng(idarr(i))
	sql="delete from mapfl where flid="&cstr(id)
    conn.execute sql
    if err.Number<>0 then
	err.clear
	response.write "删 除 失 败 !<br>"
    else
        response.write "分类"&cstr(id)&"被删除了！<br>"
    end if
		next
     		else
	sql="delete from mapfl where flid="&cstr(clng(idlist))
    conn.execute sql
    if err.Number<>0 then
	err.clear
	response.write "删 除 失 败 !<br>"
    else
        response.write "分类"&cstr(clng(idlist))&"被删除了！<br>"
    end if
     		end if
  	end if
	sql="select * from mapfl order by flid asc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
            目前没有文件分类！
<% else %>
            <form name="form1" method="post" action="adminfl.asp">
              <table width="90%" border="1" cellspacing="1" cellpadding="3" bordercolor="#6699FF">
                <tr bgcolor="#99CCFF" align="center"> 
                  <td width="12%">ID</td>
                  <td width="57%">分类名称</td>
                  <td width="15%">编辑</td>
                  <td width="16%"> 
                    <input type="submit" name="Submit" value="删除" class="buttonface">
                  </td>
                </tr><%do while not rs.eof%>
                <tr align="center"> 
                  <td width="12%"><%=rs("flid")%></td>
                  <td width="57%"><%=rs("mapfl")%></td>
                  <td width="15%"><a href="adminfl.asp?action=edit&flid=<%=rs("flid")%>">编辑</a></td>
                  <td width="16%"> 
                    <input type="checkbox" name="flid" value="<%=rs("flid")%>" class="buttonface">
                  </td>
                </tr><%
	rs.movenext
	loop %>
              </table>
            </form>
<% end if
   rs.close
end sub
sub addfl()   
%>
            <form name="form2" method="post" action="adminfl.asp?action=save">
              <input type="text" name="mapfl" size="20" class="buttonface">
              <input type="submit" name="Submit2" value="新增分类" class="buttonface">
            </form>
<% end sub
sub editfl()
sql="select * from mapfl where flid="&cstr(request("flid"))
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
            没有你要找的分类！
<% else %>
            <form name="form3" method="post" action="adminfl.asp?action=saveedit">
              <input type="text" name="mapfl" size="20" class="buttonface" value="<%=rs("mapfl")%>">
              <input type="submit" name="Submit3" value="修改分类" class="buttonface">
              <input type="hidden" name="flid" value="<%=rs("flid")%>">
            </form>
<% end if
   rs.close
end sub
sub savefl()
   if request.form("mapfl")="" then
   response.write "<script>alert('对不起!你还没填写文件分类!');history.back();</script>"
   response.end 
   else
   sql="select * from mapfl where (flid is null)"
	rs.open sql,conn,1,3
	rs.addnew
	rs("mapfl")=trim(request.form("mapfl"))
	rs.update
	response.write "分类添加成功！"
	end if
end sub
sub saveedit()
   if request.form("mapfl")="" then
   response.write "<script>alert('对不起!你还没填写文件分类!');history.back();</script>"
   response.end 
   else
   sql="select * from mapfl where flid="&cstr(request("flid"))
	rs.open sql,conn,1,3
	rs("mapfl")=trim(request.form("mapfl"))
	rs.update
	response.write "分类修改成功！"
	end if
end sub
%>
          </td>
        </tr>
      </table>
      
    </td>
  </tr>
  <tr> 
    <td colspan="2" bgcolor="#FFCC00" height="22" align="center"> 版权所有&nbsp;&copy;&nbsp;2003-2006&nbsp;<a href="http://www.wlong3d.com">www.wlong3d.com</a> 
    </td>
  </tr>
</table>
<% set rs=nothing 
   conn.close
   set conn=nothing
%>
⌨️ 快捷键说明

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