📄 money.asp

📁 投资管理系统, asp+ mssql server
💻 ASP
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "d"
%>
<!--#include file="inc/permission.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/RightsForOne.asp"-->
<%
ID=trim(request("ID"))
LoginName=Session("LoginName")
If RightsForOne(ID,LoginName)<2 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")
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"-->
⌨️ 快捷键说明

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