money.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<%
response.expires=-1
%>
<!--#include file="inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<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>
<%
ID=trim(request("ID"))
set rs=server.createobject("adodb.recordset")
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="516" 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-right:1 solid #0047b0">
      <table width="516" 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">&nbsp;<font color=red><%=TMoney%></font> 万元</td>
	       </tr>
		   </table>
		   <br>
		  <table border=0 cellpadding=0 cellspacing=0 width=516>
			<tr valign="middle">
            <td width=100 align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">资金来源</td>
            <td width=200 align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">投资主体</td>
			<td width=88 align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">金额(万元)</td>
			<td width=88 align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">外汇金额</td>
            <td width=40 align=center style="border-top:1 solid #0047b0;border-bottom:1 solid #0047b0;">汇率</td>
		   </tr>
		  <%
			if not rs.eof then
				do while not rs.eof
		  %>
		  <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">&nbsp;<%=trim(rs("Money1"))%></td>
			<td align="center" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;<%=trim(rs("Money2"))%></td>
            <td align="center" style="border-bottom:1 solid #0047b0;">&nbsp;<%=trim(rs("Rate"))%></td>
          </tr>
		  <%
					rs.movenext
				loop
			end if
			rs.close
		  %>
		   </table>
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->

money.asp - 源码说明

本页面展示了「投资管理系统, asp+ mssql server」中的 money.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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