⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_bumeng.asp

📁 政府网站集成OA办公考勤新闻发布网站信息管理会员管理
💻 ASP
字号:
🔍 
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 &gt;&gt; 部门管理</title>
<link href="../HXinclude/HX_Style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin='20' leftmargin='0' bottommargin='0'>
<%
if WS_S.MemberPriv("WS_FrontSetDepartment")<>1 then HX_GoBack "对不起,您的权限不够!",""
dim CurPage,StartPageNum,EndPageNum,P,lingdao,jigou,banshi,lianxi,piccatid,way
Set rs = Server.CreateObject("ADODB.Recordset")

if request("action")="Edit" then
Id=request.querystring("Id")
rs.Open "Select * From HX_Department where WS_Did="&Id, conn,3,3
%>
<table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
 <table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>修改部门</font></td></tr></table>
 <table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
  <form action="Admin_bumeng.asp?Action=Modify&id=<%=id%>" method="POST" name="HX_Department" Id="HX_Department" >   
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td width="114" height="23"> 
<div align="center">标题:</div></td>
<td width="365" height="23"> <%=rs("WS_DepartmentName")%>
</td></tr> 
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
      <td width="114" height="23"><div align="center">显示方式：</div></td>
      <td align=left><input name="way" type="radio" id="way" value="2" <% if rs("way")=2 then%>checked <% end if %> style=border:0px>
        网站链接 
        <input name="way" type="radio" id="way" value="1" <% if rs("way")=1 then%>checked <% end if %> style=border:0px>
        站内介绍
        <input name="way" type="radio" id="way" value="0" <% if rs("way")=0 then%>checked <% end if %> style=border:0px>
        不显示
        </td>
    </tr>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td height="20"> 
<div align="center">url网址:</div></td>
<td> <textarea name="url" rows="1" cols="78" class='bgLine'><%=rs("url")%></textarea>
*显示方式选“<font color="red">网站链接</font>”时使用 格式http://www.125a.net
</td>
</tr>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td height="147"> 
<div align="center">部门介绍:</div></td>
<td> <textarea name="content" rows="10" cols="78" class='bgLine'><%=rs("content")%></textarea> 
</td>
</tr>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td height="147"> 
<div align="center">领导班子:</div></td>
<td> <textarea name="lingdao" rows="10" cols="78" class='bgLine'><%=rs("lingdao")%></textarea> 
</td>
</tr>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td height="147"> 
<div align="center">内设机构:</div></td>
<td> <textarea name="jigou" rows="10" cols="78" class='bgLine'><%=rs("jigou")%></textarea> 
</td>
</tr>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td height="147"> 
<div align="center">办事项目:</div></td>
<td> <textarea name="banshi" rows="10" cols="78" class='bgLine'><%=rs("banshi")%></textarea> 
</td>
</tr>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
<td height="147"> 
<div align="center">联系方式:</div></td>
<td> <textarea name="lianxi" rows="10" cols="78" class='bgLine'><%=rs("lianxi")%></textarea> 
</td>
</tr>
    <tr bgcolor='#115F8F'> 
      <td height="24" colspan=2 align=center> 
        <input type="submit" name="Submit" value="提交" onClick="return doSubmit()"> 
      <input type="reset" name="reset" value="清除"></td>
  </tr></form></table></td></tr></table></br>

<% end if %>
<%
    if request("action") = "" then
    If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
    CurPage = 1
    Else
    CurPage = CINT(Request.QueryString("CurPage"))
    End If
    
   if WS_S.MemberPriv("WS_FrontSetadmin")=1 then
    rs.Open "Select WS_DepartmentName,WS_Did From HX_Department Order By WS_Did DESC", conn, 1,1
   else
    rs.Open "Select WS_DepartmentName,WS_Did From HX_Department where writerid="&LOGINUid&" Order By WS_Did DESC", conn, 1,1    
   end if
    if rs.eof and rs.bof then
    Response.Write("<p align='center'>暂时没有任何记录！</p>")
    else
    RS.PageSize=16 '设置每页记录数
    Dim TotalPages
    TotalPages = RS.PageCount
    If CurPage>RS.Pagecount Then
    CurPage=RS.Pagecount
    end if
    RS.AbsolutePage=CurPage
    rs.CacheSize = RS.PageSize'设置最大记录数
    Dim Totalcount
    Totalcount =INT(RS.recordcount)
    StartPageNum=1
    do while StartPageNum+10<=CurPage
    StartPageNum=StartPageNum+10
    Loop
    EndPageNum=StartPageNum+9
    If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
%>
<table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
 <table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>部门列表</font></td></tr></table>
 <table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
    <tr bgcolor='#A1BBE0' class='td4'>
    <td width="258" height="20"><div align="center" >&nbsp;部门标题</div></td> 
    <td width="110" height="23"><div align="center" >操 作</div></td>
  </tr>
 <%
    I=0
    p=RS.PageSize*(Curpage-1)
    do while (Not RS.Eof) and (I<RS.PageSize)
    p=p+1
%>
 <tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'> 
    
<td height="19" align=left bordercolorlight="#C0C0C0">&nbsp;<img src="../images/a125_doc.gif">&nbsp;<%=left(rs("WS_DepartmentName"),40)%></td>

    <td height="23" align=middle bordercolorlight="#c0c0c0" bgcolor="#FFFFFF"><div align="center"><a href="Admin_bumeng.asp?Action=Edit&Id=<%=rs("WS_Did")%>">修改</a> 
</div></td>
  </tr>
<%
    I=I+1
    RS.MoveNext
    Loop
%>
  <tr bgcolor="#FFFFFF"> 
    <td height="23" colspan=4 align="center" bordercolorlight="#C0C0C0">页次： <font color="#CC0000"><%=CurPage%></font>/<%=TotalPages%> 
      页数： <a href="Admin_bumeng.asp?CurPage=<%=StartPageNum-1%>">&lt;&lt;</a> 
      <% For I=StartPageNum to EndPageNum
      if I<>CurPage then %>
      <a href="Admin_bumeng.asp?CurPage=<%=I%>"><%=I%></a> 
      <% else %>
      <%=I%>
      <% end if %>
      <% Next %>
      <% if EndPageNum<RS.Pagecount then %>
      <a href="Admin_bumeng.asp?CurPage=<%=EndPageNum+1%>">下页</a> 
      <%end if%>
|<a href="Admin_bumeng.asp">刷 新</a></td>
  </tr>
</table></td></tr></table><br>
</body>
</html>
<%
    end if
    rs.close
    set rs=nothing
    end if

    if request("Action")="Modify" then
    Id=request("Id")
    way=request("way")
    content=WS_s.HX_Replace(request("content"))
    lingdao=WS_s.HX_Replace(request("lingdao"))
    jigou=WS_s.HX_Replace(request("jigou"))
    banshi=WS_s.HX_Replace(request("banshi"))
    lianxi=WS_s.HX_Replace(request("lianxi"))
    url=WS_s.HX_Replace(request("url"))
     rs.open "select * from HX_Department where WS_Did="&Id, conn,3,2
    rs("content")=content
    rs("lingdao")=lingdao
    rs("jigou")=jigou
    rs("banshi")=banshi
    rs("lianxi")=lianxi
    rs("url")=url
    rs("way")=way
    rs.update 
    rs.close 
    response.Redirect("Admin_bumeng.asp")
    end if 
%>

⌨️ 快捷键说明

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