📄 plan.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/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>
<%
reTotal=0
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

rs.open "select * from tblPlan where ProjectID="&ID,conn,1,1
if not rs.eof then
	reTotal=rs.recordcount
end if

if trim(request("num"))="" then
	num=1
else
	num=trim(request("num"))
end if

for i=1 to num-1
	if not rs.eof then
		rs.movenext
	end if
next
FID=0
if trim(request("new"))<>"1" then
	if not rs.eof then	
		FID=rs("ID")
		Name=trim(rs("Name"))
		Money=trim(rs("Money"))
		Content=rs("Content")
		ShangbaoUnit=trim(rs("ShangbaoUnit"))
		ShangbaoNo=trim(rs("ShangbaoNo"))
		ShangbaoTime=trim(rs("ShangbaoTime"))
		ShenpiUnit=trim(rs("ShenpiUnit"))
		ShenpiNo=trim(rs("ShenpiNo"))
		ShenpiTime=trim(rs("ShenpiTime"))
		InputDate=trim(rs("InputDate"))
		InputTime=trim(rs("InputTime"))
	end if
end if
rs.close
for j=1 to reTotal
	if j=cint(num) then
		response.write "&nbsp&nbsp;<a href='Plan.asp?typet="&typet&"&ID="&ID&"&FID="&FID&"&ID="&ID&"&num="&j&"'><font color=red>["&j&"]</font></a>"
	else
		response.write "&nbsp&nbsp;<a href='Plan.asp?typet="&typet&"&ID="&ID&"&FID="&FID&"&ID="&ID&"&num="&j&"'>["&j&"]</a>"
	end if
next
%>
<BODY bgcolor="#FFCC33" leftmargin=0 topmargin=5>
<%if reTotal=0 then%>
&nbsp;&nbsp;没有记录
<%else%>
  <table width="500" 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="500" border="0" cellspacing="0" cellpadding="0">        
		 <input type=hidden name=Content1 value='<%=Content%>'>
          <tr valign="middle" align="left"> 
            <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">项目名称</td>
            <td colspan=3 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=ProjectName%></td>
	       </tr>
		  <tr valign="middle" align="left"> 
            <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">名称</td>
            <td colspan=3 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=Name%></td>
	       </tr>
			  <tr>
				<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年年份</td>
				<td width=160 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;<%=ThisYear%></td>
				<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年投资计划</td>
				<td width=160 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=Money%>万元</td>
			  </tr>
			  <tr>
				<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年考核形象<br>进度目标</td>
				<td colspan=3 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=Content%></td>
			  </tr>
		      <tr valign="middle" align="left"> 
               <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报单位</td>
               <td width=160 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;<%=ShangbaoUnit%></td>
               <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报文号</td>
               <td width=160 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=ShangbaoNo%></td>
	          </tr>
		      <tr valign="middle" align="left"> 
               <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报时间</td>
               <td colspan=3 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=ShangbaoTime%></td>
	          </tr>
		      <tr valign="middle" align="left"> 
                <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批单位</td>
                <td width=160 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">&nbsp;<%=ShenpiUnit%></td>
                <td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批文号</td>
                <td width=160 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=ShenpiNo%></td>
	          </tr>
			  <tr valign="middle" align="left"> 
				<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批时间</td>
				<td colspan=3 align="left" style="border-bottom:1 solid #0047b0">&nbsp;<%=ShenpiTime%></td>
	          </tr>
		      <tr valign="middle" align="left"> 
               <td width=89 align=center style="border-right:1 solid #0047b0">数据录入时间</td>
               <td colspan=3 align="left">&nbsp;<%=InputDate%></td>
	          </tr>
		   </table>
      </td>
    </tr>
  </table>
 <%end if%>
</BODY>
</HTML>

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

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