📄 yezhu.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "b"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Date.asp"-->
<!--#include file="../../inc/RightsForOne.asp"-->
<%
ID=trim(request("ID"))
LoginName=Session("LoginName")
If RightsForOne(ID,LoginName)<3 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">
<script language="JavaScript" src="../../Script/CommFunc.js"></script>
</head>
<%
set rs=server.createobject("adodb.recordset")
if trim(request("Del"))="1" then
conn.execute("delete from tblYezhu where ID="&trim(request("FID")))
response.redirect("Yezhu.asp?typet="&typet&"&ID="&trim(request("ID")))
end if
if trim(request("submit"))="确 定" then
FID=trim(request("FID"))
Yezhu_Unit=replace(trim(request("Yezhu_Unit")),"'","''")
Yezhu_Zerenren=replace(trim(request("Yezhu_Zerenren")),"'","''")
Yezhu_Lianxiren=replace(trim(request("Yezhu_Lianxiren")),"'","''")
Yezhu_Tel=replace(trim(request("Yezhu_Tel")),"'","''")
Yezhu_Add=replace(trim(request("Yezhu_Add")),"'","''")
Yezhu_PostCode=replace(trim(request("Yezhu_PostCode")),"'","''")
Yezhu_Fax=replace(trim(request("Yezhu_Fax")),"'","''")
Yezhu_Email=replace(trim(request("Yezhu_Email")),"'","''")
Zhuguan_Unit=replace(trim(request("Zhuguan_Unit")),"'","''")
Zhuguan_Zerenren=replace(trim(request("Zhuguan_Zerenren")),"'","''")
Zhuguan_Lianxiren=replace(trim(request("Zhuguan_Lianxiren")),"'","''")
Zhuguan_Tel=replace(trim(request("Zhuguan_Tel")),"'","''")
Zhuguan_Add=replace(trim(request("Zhuguan_Add")),"'","''")
Zhuguan_PostCode=replace(trim(request("Zhuguan_PostCode")),"'","''")
Zhuguan_Fax=replace(trim(request("Zhuguan_Fax")),"'","''")
Zhuguan_Email=replace(trim(request("Zhuguan_Email")),"'","''")
InputDate=replace(trim(request("InputDate")),"'","''")
InputTime=now()
if trim(request("FID"))="0" then
rs.open "select * from tblYezhu where ID is NULL",conn,1,2
rs.addnew
rs("ProjectID")=ID
rs("Yezhu_Unit")=Yezhu_Unit
rs("Yezhu_Zerenren")=Yezhu_Zerenren
rs("Yezhu_Lianxiren")=Yezhu_Lianxiren
rs("Yezhu_Tel")=Yezhu_Tel
rs("Yezhu_Add")=Yezhu_Add
rs("Yezhu_PostCode")=Yezhu_PostCode
rs("Yezhu_Fax")=Yezhu_Fax
rs("Yezhu_Email")=Yezhu_Email
rs("Zhuguan_Unit")=Zhuguan_Unit
rs("Zhuguan_Zerenren")=Zhuguan_Zerenren
rs("Zhuguan_Lianxiren")=Zhuguan_Lianxiren
rs("Zhuguan_Tel")=Zhuguan_Tel
rs("Zhuguan_Add")=Zhuguan_Add
rs("Zhuguan_PostCode")=Zhuguan_PostCode
rs("Zhuguan_Fax")=Zhuguan_Fax
rs("Zhuguan_Email")=Zhuguan_Email
rs("InputDate")=InputDate
rs("InputTime")=InputTime
rs.update
rs.close
response.write " 添加成功！ <a href=# onclick='javascript:window.close();'>[关闭窗口]</a> "
else
rs.open "select * from tblYezhu where ID="&FID,conn,1,2
rs("Yezhu_Unit")=Yezhu_Unit
rs("Yezhu_Zerenren")=Yezhu_Zerenren
rs("Yezhu_Lianxiren")=Yezhu_Lianxiren
rs("Yezhu_Tel")=Yezhu_Tel
rs("Yezhu_Add")=Yezhu_Add
rs("Yezhu_PostCode")=Yezhu_PostCode
rs("Yezhu_Fax")=Yezhu_Fax
rs("Yezhu_Email")=Yezhu_Email
rs("Zhuguan_Unit")=Zhuguan_Unit
rs("Zhuguan_Zerenren")=Zhuguan_Zerenren
rs("Zhuguan_Lianxiren")=Zhuguan_Lianxiren
rs("Zhuguan_Tel")=Zhuguan_Tel
rs("Zhuguan_Add")=Zhuguan_Add
rs("Zhuguan_PostCode")=Zhuguan_PostCode
rs("Zhuguan_Fax")=Zhuguan_Fax
rs("Zhuguan_Email")=Zhuguan_Email
rs.update
rs.close
response.write " 修改成功！ <a href=# onclick='javascript:window.close();'>[关闭窗口]</a> "
end if
LoginName=trim(request("LoginName"))
conn.execute("update tblBase set YeZhu='"&LoginName&"' where ID="&ID)
end if
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"))
Yezhu_Fax=trim(rs("Yezhu_Fax"))
Yezhu_Email=trim(rs("Yezhu_Email"))
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"))
Zhuguan_Fax=trim(rs("Zhuguan_Fax"))
Zhuguan_Email=trim(rs("Zhuguan_Email"))
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
if cint(FID)<>0 then
response.write " <a href='Yezhu.asp?typet="&typet&"&ID="&ID&"&FID="&FID&"&Del=1'>删除当前记录</a>"
end if
if FID="" then
response.write " <a href='Yezhu.asp?typet="&typet&"&ID="&ID&"&new=1'>添加新记录</a>"
end if
%>
<BODY bgcolor="#FFCC33" leftmargin=0 topmargin=5>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="Yezhu.asp">
<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">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="hidden" name="FID" value="<%=FID%>">
<input type="hidden" name="num" value="<%=num%>">
<input type="hidden" name="typet" value="<%=typet%>">
<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=4 style="BORDER-BOTTOM: #996600 1px solid;BORDER-RIGHT: #996600 1px solid" vAlign=center width="6%">项目<br>业主<br>
<input type="button" value="选择" onClick="OpenNewWin('SelectYeZhu.asp','SelectYeZhu','width=356,height=510,top=15,left=100,scrollbars')"><br>
<input type="button" value="清除" onClick="JavaScript:form1.LoginName.value='';
form1.YeZhu_Unit.value='';
form1.Yezhu_Zerenren.value='';
form1.YeZhu_Lianxiren.value='';
form1.Yezhu_Tel.value='';
form1.Yezhu_Add.value='';
form1.Yezhu_PostCode.value='';
form1.Yezhu_Fax.value='';
form1.Yezhu_Email.value='';"></TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="18%">单位名称</TD>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="25%"><input type="hidden" name="LoginName" readonly="readonly" size=17 value="">
<input type="text" name="YeZhu_Unit" readonly="readonly" size=17 value="<%=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%"><INPUT type=text name="Yezhu_Zerenren" size=17 value="<%=Yezhu_Zerenren%>" readonly="readonly"> </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%"><INPUT type=text name="YeZhu_Lianxiren" size=17 value="<%=YeZhu_Lianxiren%>" readonly="readonly"> </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%"><INPUT type=text name=Yezhu_Tel size=17 value="<%=Yezhu_Tel%>" readonly="readonly"> </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%"><INPUT type=text name=Yezhu_Add size=17 value="<%=Yezhu_Add%>" readonly="readonly"> </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%"><INPUT type=text name=Yezhu_PostCode size=17 value="<%=Yezhu_PostCode%>" maxlength=10 readonly="readonly"></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%"><INPUT type=text name=Yezhu_Fax size=17 value="<%=Yezhu_Fax%>" readonly="readonly"> </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%"><INPUT type=text name=Yezhu_EMail size=17 value="<%=Yezhu_Email%>" maxlength=10 readonly="readonly"></TD></TR>
<TR>
<TD align=middle rowSpan=4 style="BORDER-BOTTOM: #996600 1px solid; BORDER-RIGHT: #996600 1px solid" vAlign=center width="6%">行业<br>主管<br>部门</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%"><INPUT type=text name=Zhuguan_Unit size=17 value="<%=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%"><INPUT type=text name=Zhuguan_Zerenren size=17 value="<%=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%"><INPUT type=text name=Zhuguan_Lianxiren size=17 value="<%=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%"><INPUT type=text name=Zhuguan_Tel size=17 value="<%=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%"><INPUT type=text name=Zhuguan_Add size=17 value="<%=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%"><INPUT type=text name=Zhuguan_PostCode size=17 value="<%=Zhuguan_PostCode%>" maxlength=10>
</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%"><INPUT type=text name=Zhuguan_Fax size=17 value="<%=Zhuguan_Fax%>"> </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%"><INPUT type=text name=Zhuguan_Email size=17 value="<%=Zhuguan_Email%>" maxlength=10>
</TD></TR>
<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"><%if InputDate<>"" then%> <%=InputDate%> <%else%><input type=text name=InputDate value="<%=date2%>" size=32><%end if%><font color=red> * 请注意时间格式</font></td>
</tr>
<tr align="center" valign="middle">
<td colspan="5" valign="middle" align="center">
<INPUT TYPE="submit" name="submit" value="确 定">
<input type="reset" name="exit" value="重 写">
</td>
</tr>
</form>
</table>
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -