📄 yezhu.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 tblYezhu 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")
Yezhu_Unit=trim(rs("Yezhu_Unit"))
Yezhu_Zerenren=trim(rs("Yezhu_Zerenren"))
Yezhu_Lianxiren=trim(rs("Yezhu_Lianxiren"))
Yezhu_Tel=trim(rs("Yezhu_Tel"))
Yezhu_Add=trim(rs("Yezhu_Add"))
Yezhu_PostCode=trim(rs("Yezhu_PostCode"))
Zhuguan_Unit=trim(rs("Zhuguan_Unit"))
Zhuguan_Zerenren=trim(rs("Zhuguan_Zerenren"))
Zhuguan_Lianxiren=trim(rs("Zhuguan_Lianxiren"))
Zhuguan_Tel=trim(rs("Zhuguan_Tel"))
Zhuguan_Add=trim(rs("Zhuguan_Add"))
Zhuguan_PostCode=trim(rs("Zhuguan_PostCode"))
InputDate=trim(rs("InputDate"))
end if
end if
rs.close
for j=1 to reTotal
if j=cint(num) then
response.write "  <a href='Yezhu.asp?typet="&typet&"&ID="&ID&"&num="&j&"'><font color=red>["&j&"]</font></a>"
else
response.write "  <a href='Yezhu.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 #996600;border-top:1 solid #996600;border-bottom:1 solid #996600;border-right:1 solid #996600">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle" align="left">
<td colspan=2 align=center style="border-bottom:1 solid #996600;border-right:1 solid #996600">项目名称</td>
<td colspan=3 align="left" style="border-bottom:1 solid #996600"> <%=ProjectName%></td>
</tr>
<TR>
<TD align=middle rowSpan=3 style="BORDER-BOTTOM: #996600 1px solid;BORDER-RIGHT: #996600 1px solid" vAlign=center width="6%">项目业主</TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">单位名称</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="25%"> <%=Yezhu_Unit%></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">责任人</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid" width="25%"> <%=Yezhu_Zerenren%></TD></TR>
<TR>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">联系人</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="25%"> <%=Yezhu_Lianxiren%></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid;; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">联系电话</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid" width="25%"> <%=Yezhu_Tel%></TD></TR>
<TR>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">通信地址</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="25%"> <%=Yezhu_Add%></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">邮政编码</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid" width="25%"> <%=Yezhu_PostCode%></TD></TR>
<TR>
<TD align=middle rowSpan=3 style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="6%">行业主管部门</TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">单位名称</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="25%"> <%=Zhuguan_Unit%></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">责任人</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid" width="25%"> <%=Zhuguan_Zerenren%></TD></TR>
<TR>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">联系人</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="25%"> <%=Zhuguan_Lianxiren%></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">联系电话</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid" width="25%"> <%=Zhuguan_Tel%></TD></TR>
<TR>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">通信地址</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" width="25%"> <%=Zhuguan_Add%></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">邮政编码</TD>
<TD style="BORDER-BOTTOM: #996600 1px solid" width="25%"> <%=Zhuguan_PostCode%></TD></TR>
<tr valign="middle" align="left">
<td colspan=2 align=center style="border-right:1 solid #996600">数据录入时间</td>
<td colspan=3 align="left"> <%=InputDate%></td>
</tr>
</table>
<%end if%>
</BODY>
</HTML>
<!--#include file="inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -