editworknet.asp

这是一个电子政务的源代码

<!--#include file="admintop.asp"-->
<!--#include file="../mzfunc.asp"-->
<!--#include file="isadmin.asp"-->
<%  dim id,action
     id=request.QueryString("id")
	 action=request.querystring("action")
	 if id="" or isnull(id) then
      response.write"<script>alert('对不起,操作符丢失\n请返回重试');history.back();</script>"
       end if
	if action="" or isnull(action) then
	 %>
<table width="350" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr> 
    <th height="30" colspan="2" bgcolor="#B1E1F3">网上事务文件编辑</th>
  </tr>
  <tr> 
    <td width="50%" height="21"><a href="editworknet1.asp?id=<%=id%>">标题,内容编辑</a></td>
    <td width="50%"><a href="editworknet.asp?id=<%=id%>&action=acs">附件管理</a></td>
  </tr>
  <tr> 
    <td colspan="2"><div align="center"><a href="admin_worknet.asp">【返回】</a></div></td>
  </tr>
</table>
   <% end if 
        if action="acs" then 
		dim filename,workfile
		%>
<table width="300" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr> 
    <th height="30" colspan="2" bgcolor="#B1E1F3"> 附件一览表</th>
  </tr>
  <%   sql="select filename,workfile from worknet where id="&id
            set rs=conn.execute(sql)
			if rs.eof then 
			response.write"<script>alert('对不起,你所要操作的对象并未找到\n请返回重试');history.back();</script>"
			  end if
			if rs("filename")<>"" and rs("workfile")<>"" then
			filename=split(rs("filename"),";")
			workfile=split(rs("workfile"),";")
			 application.Lock
		    application("all")=ubound(filename)
			for i=0 to ubound(filename)
             application("filename"&i)=filename(i)
			 application("workfile"&i)=workfile(i)
			%>
  <tr> 
    <td width="208"><%=application("filename"&i)%></td>
    <td width="82"><a href="delworkfile.asp?id=<%=id%>&i=<%=i%>">删除</a></td>
  </tr>
  <% next
     application.UnLock
     else 
	 response.write"<tr><td>没有附件</td></tr>"
	  end if
	 %>
  <tr> 
    <td colspan="2"><a href="addworkfile.asp?id=<%=id%>">点击此处添加附件</a></td>
  </tr>
</table>
<% end if
  %>
</body>
</html>