shenpi.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 139 行
ASP
139 行
<%
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>
<%
reTotal=0
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
rs.open "select * from tblShenpi 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")
Item=trim(rs("Item"))
Name=trim(rs("Name"))
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"))
InvestPlan=trim(rs("InvestPlan"))
Xinxiangmubiao=trim(rs("Xinxiangmubiao"))
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 "  <a href='Shenpi.asp?typet="&typet&"&ID="&ID&"&num="&j&"'><font color=red>["&j&"]</font></a>"
else
response.write "  <a href='Shenpi.asp?typet="&typet&"&ID="&ID&"&num="&j&"'>["&j&"]</a>"
end if
next
%>
<BODY bgcolor="#FFCC33" leftmargin=0 topmargin=5>
<%if reTotal=0 then%>
没有记录
<%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">
<tr valign="middle">
<td align=center width=90 style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">审批对象</td>
<td width=410 align="left" style="border-bottom:1 solid #0047b0"> <%=Item%></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=410 align="left" style="border-bottom:1 solid #0047b0"> <%=ProjectName%></td>
</tr>
<tr valign="middle" align="left" id=n1 style="<%if Item="项目备案" then%>display:none<%end if%>">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">名称</td>
<td width=410 align="left" style="border-bottom:1 solid #0047b0"> <%=Name%></td>
</tr>
<tr valign="middle" align="left">
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><span id=x1 style="display:<%if Item="项目备案" then%>none<%end if%>">内容</span><span id=b1 style="<%if Item<>"项目备案" then%>ndisplay:one<%end if%>">备案情况</span></td>
<td width=410 align="left" style="border-bottom:1 solid #0047b0"> <%=Content%></td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width="500" align=center id=t style=<%if Item<>"年度计划" then%>"display:none"<%end if%>>
<tr>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年投资计划</td>
<td width=410 align="left" style="border-bottom:1 solid #0047b0"> <%=InvestPlan%> 万元</td>
</tr>
<tr>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">当年考核形象进度目标</td>
<td width=410 align="left" style="border-bottom:1 solid #0047b0"> <%=Xinxiangmubiao%></td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width="500" align=center id=sb style=<%if Item="项目备案" then%>"display:none"<%end if%>>
<tr valign="middle" align="left">
<td width=91 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">上报单位</td>
<td width=159 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"> <%=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"> <%=ShangbaoNo%></td>
</tr>
<tr valign="middle" align="left">
<td width=91 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"> <%=ShangbaoTime%></td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=0 width="500" align=center>
<tr valign="middle" align="left">
<td width=91 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><span id=xx style=<%if Item="项目备案" then%>"display:none"<%end if%>>审批单位</span><span id=bb style=<%if Item<>"项目备案" then%>"display:none"<%end if%>>备案单位</span></td>
<td width=159 align="left" style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"> <%=ShenpiUnit%></td>
<td width=90 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><span id=xxx style=<%if Item="项目备案" then%>"display:none"<%end if%>>审批文号</span><span id=bbb style=<%if Item<>"项目备案" then%>"display:none"<%end if%>>备案文号</span></td>
<td width=160 align="left" style="border-bottom:1 solid #0047b0"> <%=ShenpiNo%></td>
</tr>
<tr valign="middle" align="left">
<td width=91 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><span id=xxxx style=<%if Item="项目备案" then%>"display:none"<%end if%>>审批时间</span><span id=bbbb style=<%if Item<>"项目备案" then%>"display:none"<%end if%>>备案时间</span></td>
<td colspan=3 align="left" style="border-bottom:1 solid #0047b0"> <%=ShenpiTime%></td>
</tr>
</table>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle" align="left">
<td width=89 align=center style="border-right:1 solid #0047b0">数据录入时间</td>
<td width=411 align="left"> <%=InputDate%></td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%>
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?