jindu.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 109 行
ASP
109 行
<%
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>
<%
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 tblJindu 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"))
Money=trim(rs("Money"))
Content=trim(rs("Content"))
CountDate=trim(rs("CountDate"))
InputDate=trim(rs("InputDate"))
end if
end if
rs.close
for j=1 to reTotal
if j=cint(num) then
response.write "  <a href='Jindu.asp?typet="&typet&"&ID="&ID&"&num="&j&"'><font color=red>["&j&"]</font></a>"
else
response.write "  <a href='Jindu.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=120 style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">进度项目</td>
<td width=380 align="left" style="border-bottom:1 solid #0047b0"> <%=Item%></td>
</tr>
<tr valign="middle" align="left">
<td width=120 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">项目名称</td>
<td width=380 align="left" style="border-bottom:1 solid #0047b0"> <%=ProjectName%></td>
</tr>
<tr id=t style=<%if Item<>"当年形象进度" and Item<>"到去年底累计形象进度" then%>"display:none"<%end if%>>
<td width=120 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">形象进度</td>
<td width=380 align="left" style="border-bottom:1 solid #0047b0"> <%=Content%></td>
</tr>
<tr id=tt style=<%if Item="当年形象进度" or Item="到去年底累计形象进度" then%>"display:none"<%end if%>>
<td width=120 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0">金额</td>
<td width=380 align="left" style="border-bottom:1 solid #0047b0"> <%=Money%> 万元</td>
</tr>
<tr valign="middle" align="left">
<td width=120 align=center style="border-bottom:1 solid #0047b0;border-right:1 solid #0047b0"><span id=ti style=<%if Item="当年形象进度" or Item="到去年底累计形象进度" then%>"display:none"<%end if%>>资金到位时间</span><span id=tii style=<%if Item<>"当年形象进度" and Item<>"到去年底累计形象进度" then%>"display:none"<%end if%>>进度完成时间</span></td>
<td width=380 align="left" style="border-bottom:1 solid #0047b0"> <%=CountDate%></td>
</tr>
<tr valign="middle" align="left">
<td width=120 align=center style="border-right:1 solid #0047b0">数据录入时间</td>
<td width=380 align="left"> <%=InputDate%></td>
</tr>
</table>
<%end if%>
</BODY>
</HTML>
<!--#include file="inc/close.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?