📄 arealist.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../Conndb.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>地域管理</title>
<script language="javascript">
function form_onsubmit(obj) 
{   
  ValidationPassed = true;  
  if(obj.Areaid.selectedIndex <0) {
    alert("请选择一级地域");
    ValidationPassed = false;
    return ValidationPassed;
  }    
  if(obj.txttitle.value == "") {
    alert("请输入地域名称");
    ValidationPassed = false;
    return ValidationPassed;
  }    
}
function form_onsubmit1(obj) 
{   
  var ValidationPassed = true;  
  if(obj.txttitle.value == "") {
    alert("请输入地域名称");
    ValidationPassed = false;
    return ValidationPassed;
  }    
}
</script>
<base target="_self">
<link rel="stylesheet" type="text/css" href="../../style.CSS">
</head>
<body link="#000080" vlink="#080080" style="background-attachment: fixed">
<form id="form1" name="form1" method="POST">
<%
  '处理添加、修改和删除操作
  dim Soperate
  Soperate = Request.QueryString("oper")
  Operid = Request.QueryString("cid")
  '删除
  If Soperate="delete" Then
    '判断地域表中是否存在此地域
    sql = "SELECT * FROM Area WHERE AreaId=" & Operid
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      '判断此地域是否存在下级地域
      sql = "SELECT * FROM Area WHERE UpperId=" & Operid
      Set rs = Conn.Execute(sql)
      If Not rs.EOF Then
        Response.Write "此地域存在下级地域，不能删除！"
      Else
        '判断此地域下是否存在客户
        sql = "SELECT * FROM Customer WHERE AreaId=" & Operid
        Set rs = Conn.Execute(sql)
        If Not rs.EOF Then
          Response.Write "此地域包含客户信息，不能删除！"
        End If
      End If      
      sqldelt = "DELETE FROM Area WHERE AreaId=" & Operid
      Conn.Execute(sqldelt)
      Response.Write "地域已经成功删除！"
    End If
  '添加
  ElseIf Soperate = "add" then
    AreaName = Request("txttitle")
    UpId = Request("sUpperId")
    If UpId="0" Then
      UId = 0
    Else
      UId = Request("Areaid") 
    End If
 '   Response.Write AreaName&"||"&cstr(UpId)&"||"&cstr(UId)
    '判断是否已经存在此地域名称
    sql = "SELECT * FROM Area WHERE AreaName='" & AreaName & "'"
    'Response.Write sql
    Set rs = Conn.Execute(sql)
    '如果没有此地域名称，则创建新记录
    If Rs.EOF Then
      sql = "INSERT INTO Area VALUES('" & AreaName & "'," & UId & ")"
'      Response.Write sql
      Conn.Execute(sql)
      Response.Write"地域已经成功添加！"
    Else      
      Response.Write "已经存在此地域名称！"
    End If
    Set rs = Nothing
  ElseIf Soperate = "edit" Then
    AreaName = Request("txttitle")
    '如果新地域名称与旧名称不同，则判断是否存在此地域名称
    sql = "SELECT * FROM Area WHERE AreaName = '" & AreaName & "' And AreaId=" & Operid
    Set rs = conn.Execute(sql)
    If Rs.EOF Then  '如果原地域编号和新地域名称不存在，则表示地域名称发生变化
      Set rs = Nothing
     '此时判断是否存在此地域名称
      sql = "SELECT * FROM Area WHERE AreaName='" & AreaName & "'"
      Set rs = Conn.Execute(sql)
      If Rs.EOF Then '新地域不存在
        conn.Execute("UPDATE Area SET AreaName='" & AreaName & "' WHERE AreaId=" & Operid)
        Response.Write "地域已经成功修改！"
      Else
        Response.Write "已经存在此地域名称"
      End if
    End If
  End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>地 域 管 理</b></font></p>
<center>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
  <tr>
    <td width="30%" align="center" bgcolor="#FEEC85">
	<strong style="font-weight: 400">地域名称</font></strong></td>
    <td width="30%" align="center" bgcolor="#FEEC85">
	<strong style="font-weight: 400">子地域名称</font></strong></td>
    <td width="20%" align="center" bgcolor="#FEEC85">
	<strong style="font-weight: 400">修 改</font></strong></td>
    <td width="20%" align="center" bgcolor="#FEEC85">
	<strong style="font-weight: 400">删 除</font></strong></td>
  </tr>
<%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '读取一级地域数据到记录集rs中
  sql = "SELECT * FROM Area WHERE UpperId=0 ORDER BY AreaId"
  rs.Open sql, conn, 1, 1
  If rs.EOF Then
    '如果记录集为空，则显示“目前还没有记录”
    Response.Write "<tr><td colspan=4 align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
  Else
    '在表格中显示地域名称
    Do While Not rs.EOF
%>
  <tr>
    <td><%=rs("AreaName")%></td>
    <td>--　</td>
    <td align="center"><a href="AreaList.asp?Oper=update&cid=<%=rs("AreaId")%>&name=<%=rs("AreaName")%>">
	修 改</a></td>
    <td align="center"><a href="AreaList.asp?Oper=delete&cid=<%=rs("AreaId")%>&name=<%=rs("AreaName")%>">
	删 除</a></td>
  </tr>
<%
      Set RsArea = Server.CreateObject("ADODB.RecordSet")
      '读取此地域下所有地域信息
      sql1 = "SELECT * FROM Area WHERE UpperId=" & rs("AreaId") &" ORDER BY AreaId"
      RsArea.Open sql1, conn,1,4
      Do While Not RsArea.EOF 
        %>
  <tr>
    <td>--　</td>
    <td><%=RsArea("AreaName")%></td>
    <td align="center"><a href="AreaList.asp?Oper=update&cid=<%=RsArea("AreaId")%>&name=<%=RsArea("AreaName")%>">
	修 改</a></td>
    <td align="center"><a href="AreaList.asp?Oper=delete&cid=<%=RsArea("AreaId")%>&name=<%=RsArea("AreaName")%>">
	删 除</a></td>
  </tr>      
        <%
        RsArea.MoveNext()
      Loop
      Set RsArea = Nothing
      rs.MoveNext()
    Loop
%>
</table>
		<p align="center">	
<%
  End If
%>
</form>
<% 
  '如果当前状态为修改，则显示修改的表单，否则显示添加的表单
  If Soperate = "update" Then
	sTitle = Request.QueryString("name")
%>
    <form name="UForm" method="post" action="AreaList.asp?cid=<%=Operid%>&Oper=edit" onsubmit="return form_onsubmit1(UForm)">
	  <div align="center">
		<input type="hidden" name="sOrgTitle" value="<%=sTitle%>">
		<font color="#FFFFFF"><b><font color="#000000">地域名称</font></b></font> 
		<input type="text" name="txttitle" size="20" value="<%=sTitle%>">
		<input type="submit" name="Submit" value=" 修 改 ">
		</div>
	</form>
<%Else%>
	<form name="AForm" method="post" action="AreaList.asp?Oper=add" onsubmit="return form_onsubmit1(AForm)">
	  <p align="center">
		<font color="#FFFFFF"><b><font color="#000000">添加一级地域：</font></b></font> 
		&nbsp;&nbsp;地域名称：&nbsp;&nbsp;<input type="text" name="txttitle" size="20">
		<input type="hidden" name="sUpperId" value="0">&nbsp;&nbsp;
		<input type="submit" name="Submit" value=" 添 加 ">
	  </p>
	  </form>
	<%  
	'判断存在地域信息
    sql = "SELECT * FROM Area"
    Set rs = Conn.Execute(sql)
    If Not rs.Eof Then %>
	<form name="BForm" method="post" action="AreaList.asp?Oper=add" onsubmit="return form_onsubmit(BForm)">
	  <p align="center">
	  <select name="Areaid">
		<%
		  Set rs = Server.CreateObject("ADODB.RecordSet")
		  '将地域装入下拉菜单中
		  sql = "SELECT * FROM Area WHERE UpperId=0 ORDER BY AreaId"
		  Set rsArea = Conn.Execute(sql)
		  Do While Not rsArea.EOF
		    sname = rsArea("AreaName")
		    did = rsArea("AreaId")
		%>
		    <option value="<%=did%>"><%=sname%></option>
		<%
		     rsArea.movenext
		  Loop
		%>
		</select>

		<font color="#FFFFFF"><b><font color="#000000">添加二级地域：</font></b></font> 
		&nbsp;&nbsp;地域名称：&nbsp;&nbsp;<input type="text" name="txttitle" size="20">
		<input type="hidden" name="sUpperId" value="1">&nbsp;&nbsp;
		<input type="submit" name="Submit" value=" 添 加 " onclick="return form_onsubmit(this.form)">
	  </p>
	</form>
	<% End If%>
<%End If%>
</BODY>
</HTML>
⌨️ 快捷键说明

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