📄 types.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.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		' 保存当前执行的操作
  dim TypeName		' 保存当前编辑的记录名称
  dim Operid		' 保存当前编辑的记录编号
 ' dim flag			' 保存当前编辑的记录类型
  Soperate = Request.QueryString("oper")
  Operid = Request.QueryString("tid")
  '接受当前编辑的类型信息
  flag = Request.QueryString("flag")   
  '删除数据
  If Soperate="delete" Then
    '判断表Types中是否存在此数据
    sql = "SELECT * FROM Types WHERE TypeId=" & Operid
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      '判断此数据是否在表AssetsInfo中使用
      sql = "SELECT * FROM AssetsInfo WHERE TypeId=" & Operid & " OR AddWayId=" & Operid
      Set rs = Conn.Execute(sql)
      If Not rs.EOF Then
        Response.Write "固定资产信息中存在此数据，不能删除！"
        Response.End
      End If
      '判断此数据是否在表AssetsAlter中使用
      sql = "SELECT * FROM AssetsAlter WHERE AltTypeId=" & Operid
      Set rs = Conn.Execute(sql)
      If Not rs.EOF Then
        Response.Write "资产变更表中存在此数据，不能删除！"
        Response.End
      End If
      '通过上述判断后,才可以删除数据
      sqldelt = "DELETE FROM Types WHERE TypeId=" & Operid
      Conn.Execute(sqldelt)
      Response.Write "成功删除！"
    End If
  '添加
  ElseIf Soperate = "add" then
    TypeName = Request("txttitle")	'接受用户输入的名称数据
    '判断表Types中是否已经存在此数据
    sql = "SELECT * FROM Types WHERE TypeName='" & TypeName & "'"
    Set rs = Conn.Execute(sql)
    '如果没有此名称，则创建新记录
    If Rs.EOF Then
      sql = "INSERT INTO Types VALUES('" & TypeName & "'," & flag & ")"
      Conn.Execute(sql)
      Response.Write "添加成功！"
    Else      
      Response.Write "已经存在此数据！"
    End If
    Set rs = Nothing
  '修改
  ElseIf Soperate = "edit" Then
    TypeName = Request("txttitle")
    '如果新名称与旧名称不同，则判断是否存在此数据
    sql = "SELECT * FROM Types WHERE TypeName = '" & TypeName & "' And TypeId=" & Operid
    Set rs = conn.Execute(sql)
    If Rs.EOF Then  '如果原编号和新名称不存在，则表示数据名称发生变化
      Set rs = Nothing
     '此时判断是否存在此名称
      sql = "SELECT * FROM Types WHERE TypeName='" & TypeName & "'"
      Set rs = Conn.Execute(sql)
      If Rs.EOF Then '新数据不存在
        conn.Execute("UPDATE Types SET TypeName='" & TypeName & "' WHERE TypeId=" & Operid)
        Response.Write "修改成功！"
      Else
        Response.Write "已经存在此数据"
      End if
    End If
  End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>
<% If flag = 12 Then %>
固定资产类别管理
<% ElseIf flag = 13 Then %>
资产增加方式设置
<% Else%>
资产变更方式设置
<% End If %>
</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="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 Types WHERE flag=" & flag & " ORDER BY TypeId"
  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("TypeName")%></td>
    <td align="center"><a href="Types.asp?Oper=update&tid=<%=rs("TypeId")%>&name=<%=rs("TypeName")%>&flag=<%=flag%>">
	修 改</a></td>
    <td align="center"><a href="Types.asp?Oper=delete&tid=<%=rs("TypeId")%>&name=<%=rs("TypeName")%>&flag=<%=flag%>">
	删 除</a></td>
  </tr>
<%
	  rs.MoveNext 
    Loop 
%>  
</table>	
<%
  End If
%>
</form>		
<p align="center">
<% 
  '如果当前状态为修改，则显示修改的表单，否则显示添加的表单
  If Soperate = "update" Then
	sTitle = Request.QueryString("name")
%>
    <form name="UForm" method="post" action="Types.asp?tid=<%=Operid%>&Oper=edit&flag=<%=flag%>" onsubmit="return form_onsubmit(UForm)">
	  <div align="center">
		<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="Types.asp?Oper=add&flag=<%=flag%>" onsubmit="return form_onsubmit(AForm)">
	  <p align="center">
		<font color="#FFFFFF"><b><font color="#000000">名称：</font></b></font> 
		<input type="text" name="txttitle" size="20">
		<input type="submit" name="Submit" value=" 添 加 ">
	  </p>
	  </form>
<%End If%>
</BODY>
</HTML>
⌨️ 快捷键说明

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