📄 money.asp

📁 投资管理系统, asp+ mssql server
💻 ASP
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "b"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Date.asp"-->
<!--#include file="../../inc/RightsForOne.asp"-->
<%
ID=trim(request("ID"))
LoginName=Session("LoginName")
If RightsForOne(ID,LoginName)<3 Then
	Response.Write "<Script Language='JavaScript'>"
	Response.Write "alert('你没有编辑此项目的权限');"
	Response.Write "self.close();"
	Response.Write "</Script>"
	Response.End
End If
%>
<html>
<head>
<title>修改投资情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="../css/main.css" type="text/css">
</head>
<%
set rs=server.createobject("adodb.recordset")

if trim(request("submit"))="删除" then
	conn.execute("delete from tblMoney where ID="&trim(request("FID")))
	response.redirect("Money.asp?typet="&typet&"&ID="&trim(request("ID")))
end if

if trim(request("submit"))="确 定" then
	Source=replace(trim(request("Source")),"'","''")
	Unit=replace(trim(request("Unit")),"'","''")
	Money1=trim(request("Money1"))
	if Money1="" then
		Money1=0
	end if
	Money2=trim(request("Money2"))
	if Money2="" then
		Money2=0
	end if
	Rate=trim(request("Rate"))
	if Rate="" then
		Rate=1
	end if
	InputTime=now()

	rs.open "select * from tblMoney where ID is NULL",conn,1,2
	rs.addnew
	rs("ProjectID")=ID
	rs("Source")=Source
	rs("Unit")=Unit
	rs("Money1")=Money1
	rs("Money2")=Money2
	rs("Rate")=Rate
	rs("InputTime")=InputTime
	rs.update
	rs.close
end if

rs.open "select Name from tblBase where ID="&ID,conn,1,1
if not rs.eof then
	ProjectName=trim(rs("Name"))
end if
rs.close
%>
<BODY bgcolor="#FFCC33" leftmargin=0 topmargin=5>
  <table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
      <td valign="middle" align="center" style="border-left:1 solid #0047b0;border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">
      <table width="700" border="0" cellspacing="0" cellpadding="0">
          <tr valign="middle" align="left">
		  <%
		  	TMoney=0
			rs.open "select * from tblMoney where ProjectID="&ID,conn,1,1
			if not rs.eof then
				reTotal=rs.recordcount
				do while not rs.eof
					TMoney=TMoney+rs("Money1")
					rs.movenext
				loop
				rs.movefirst
			end if
		  %>
            <td width=60 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">项目名称</td>
            <td align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=ProjectName%></td>
	       </tr>
          <tr valign="middle" align="left"> 
            <td width=60 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">总投资</td>
            <td align="left" style="border-bottom:1 solid #0047b0"><input type=text name=TMoney value="<%=TMoney%>">万元</td>
	       </tr>
		   </table>
		   <br>
		  <table border=0 cellpadding=0 cellspacing=0 width=700>
			<tr valign="middle">
            <td align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">资金来源</td>
            <td align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">投资主体</td>
			<td align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">金额(万元)</td>
			<td align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">外汇金额</td>
            <td align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">汇率</td>
           <td valign="middle" align="center" style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;">&nbsp;</td>
		   </tr>
		  <%
			if not rs.eof then
				do while not rs.eof
		  %>
          <form method=post action="">
		  <tr valign="middle">			
            <td align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;<%=trim(rs("Source"))%></td>
            <td align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;<%=trim(rs("Unit"))%></td>
			<td align="center" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><%=trim(rs("Money1"))%></td>
			<td align="center" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><%if trim(rs("Source"))="国外商业贷款" or  trim(rs("Source"))="国外政府贷款" or trim(rs("Source"))="外商直接投资" then%><%=trim(rs("Money2"))%><%else%>&nbsp;<%end if%></td>
            <td align="center" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><%if trim(rs("Source"))="国外商业贷款" or  trim(rs("Source"))="国外政府贷款" or trim(rs("Source"))="外商直接投资" then%><%=trim(rs("Rate"))%><%else%>&nbsp;<%end if%></td>
           <td valign="middle" align="center" style="border-bottom:1 solid #0047b0;">
		   <input type=hidden name=ID value="<%=ID%>">
		    <input type=hidden name=FID value="<%=rs("ID")%>">
			<input type="hidden" name="typet" value="<%=typet%>">
		    <INPUT TYPE="submit" name="submit" value="删除">
		   </td>
          </tr>
		  </form>
		  <%
					rs.movenext
				loop
			end if
			rs.close
		  %>
		   </table>
		   <br>
		   <table border=0 cellpadding=0 cellspacing=0 width=700>
		<form name="SubmitForm" method="post" action="Money.asp">
  		 <input type="hidden" name="ID" value="<%=ID%>">
		 <input type="hidden" name="typet" value="<%=typet%>">
		   <tr valign="middle"> 
            <td width=120 align=center style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">资金来源</td>
            <td width=150 align=center style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">投资主体</td>
			<td width=80 align=center style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">金额(万元)</td>
			<td width=80 align=center style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">外汇金额</td>
            <td width=80 align=center style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">汇率</td>
            <td width=80 align="left" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;</td>
            <td valign="middle" align="center" style="border-top:1 solid #0047b0;">&nbsp;</td>
          </tr>
		   <tr valign="middle"> 
            <td width=120 align="center" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0">
			<select name="Source" onchange="Show()">
			 <option value="国债">国债</option>
			 <option value="西部债券">西部债券</option>
			 <option value="地方预算内">地方预算内</option>
			 <option value="开行贷款">开行贷款</option>
			 <option value="其它国内贷款">其它国内贷款</option>
			 <option value="外商直接投资">外商直接投资</option>
			 <option value="国外政府贷款">国外政府贷款</option>
			 <option value="国外商业贷款">国外商业贷款</option>
			 <option value="自筹资金">自筹资金</option>
			</select>
			</td>
            <td width=150 align="center" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0"><input type=text name=Unit value="" size=20></td>
			<td width=100 align="center" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0"><input type=text name=Money1 value="" size=10></td>
			<td width=80 align="center" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0"><span id=t style=<%if Source<>"国外商业贷款" and  Source<>"国外政府贷款" and Source<>"外商直接投资" then%>"display:none"<%end if%>><input type=text name=Money2 value="" size=8></span>&nbsp;</td>
			<td width=80 align="center" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0"><span id=tt style=<%if Source<>"国外商业贷款" and  Source<>"国外政府贷款" and Source<>"外商直接投资" then%>"display:none"<%end if%>><input type=text size=8 name=Rate value=""></span>&nbsp;</td>
            <td width=80 align="center" style="border-top:1 solid #0047b0;border-right:1 solid #0047b0"><span id=ttt style=<%if Source<>"国外商业贷款" and  Source<>"国外政府贷款" and Source<>"外商直接投资" then%>"display:none"<%end if%>><input type=button onclick="cal();" value="计算"></span>&nbsp;</td>
           <td width=80 valign="middle" align="center" style="border-top:1 solid #0047b0;">
		    <INPUT TYPE="submit" name="submit" onclick="return j();" value="确 定">
           </td>
          </tr>
	</form>   
  </table>
</BODY>
</HTML>
<script language="JavaScript">
function cal(){
	Money2=document.SubmitForm.Money2.value
	Rate=document.SubmitForm.Rate.value
	if(Rate==""){
		Rate=1
	}
	Money1=Money2*Rate
	document.SubmitForm.Money1.value=Money1
}
function Show(){
if (document.all("Source").value=="国外政府贷款"){	
	document.all("t").style.display = "";
	document.all("tt").style.display = "";
	document.all("ttt").style.display = "";
	}
else{
	if(document.all("Source").value=="国外商业贷款"){
		document.all("t").style.display = "";
		document.all("tt").style.display = "";
		document.all("ttt").style.display = "";
	}
	else{
		if(document.all("Source").value=="外商直接投资"){
			document.all("t").style.display = "";
			document.all("tt").style.display = "";
			document.all("ttt").style.display = "";
		}
		else{
			document.all("t").style.display = "none";
			document.all("tt").style.display = "none";
			document.all("ttt").style.display = "none";
		}
	}
}
}

function j(){
	s=document.SubmitForm.Money1.value
	if(s!==''){
		dot=0
		for(i=0;i<s.length;i++){
			if(s.charAt(i)>'9'){
				alert("请输入正确的数字。");
				return false;
			}
			if(s.charAt(i)<'0'){
				if(s.charAt(i)=='.'){
					dot=dot+1
						if(dot>1){
							alert("请输入正确格式的数字。");
							return false;
						}
				}
				if(s.charAt(i)!='.'){
					alert("请输入正确的数字。");
					return false;					
				}
			}
		}
	}
	s=document.SubmitForm.Money2.value
	if(s!==''){
		dot=0
		for(i=0;i<s.length;i++){
			if(s.charAt(i)>'9'){
				alert("请输入正确的数字。");
				return false;
			}
			else{
				if(s.charAt(i)<'0'){
					if(s.charAt(i)=='.'){
						dot=dot+1
							if(dot>1){
								alert("请输入正确格式的数字。");
								return false;
							}
					}
					if(s.charAt(i)!='.'){
						alert("请输入正确的数字。");
						return false;					
					}
				}
			}
		}
	}

}
</script>
<!--#include file="../inc/close.asp"-->
⌨️ 快捷键说明

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