📄 detailw.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "e"
%>
<!--#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>
<%
SearchText=trim(request("SearchText"))
if trim(request("ID"))<>"" then
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from tblYeZhuBase where ID='"&cint(trim(request("ID")))&"'",conn,1,1
if rs.eof then
rs.close
Set rs=Nothing
response.write "记录不存在。<a href=# onclick='javascript:window.close();'>【关闭窗口】</a>"
response.end
else
Name=rs("Name")
Zerenren=rs("Zerenren")
Lianxiren=rs("Lianxiren")
Tel=rs("Tel")
Address=rs("Address")
PostCode=rs("PostCode")
Fax=rs("Fax")
EMail=rs("EMail")
LoginName=rs("LoginName")
rs.close
Set rs=Nothing
end if
%>
<BODY BGCOLOR="#FFFFFF">
<table border=0 cellpadding=0 cellspacing=0 width=560 align=center>
<form name="SubmitForm" method="post" action="">
<tr>
<td width="80" align=center class=tdlt>单位名称</td>
<td width="200" align=left class=tdrt> <%=replace(Name,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
<td width="80" align=center class=tdrt>责 任 人</td>
<td width="200" align=left class=tdrt> <%=replace(Zerenren,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
</tr>
<tr>
<td width="80" align=center class=tdl>联 系 人</td>
<td align=left class=tdr> <%=replace(Lianxiren,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
<td width="80" align=center class=tdr>联系电话</td>
<td align=left class=tdr> <%=replace(Tel,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
</tr>
<tr>
<td width="80" align=center class=tdl>通信地址</td>
<td align=left class=tdr> <%=Address%></td>
<td width="80" align=center class=tdr>邮政编码</td>
<td align=left class=tdr> <%=replace(PostCode,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
</tr>
<tr>
<td width="80" align=center class=tdl>传 真</td>
<td align=left class=tdr> <%=replace(Fax,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
<td width="80" align=center class=tdr>电子邮箱</td>
<td align=left class=tdr> <%=replace(EMail,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
</tr>
<tr>
<td width="80" align=center class=tdl>用 户 名</td>
<td align=left class=tdr> <%=replace(LoginName,SearchText,"<font color=red>"&SearchText&"</font>")%></td>
<td align=center class=tdr colspan=2> </td>
</tr>
<tr>
<td align=center colspan=4 height=30 valign=middle><a href=# onclick="javascript:window.close();">【关闭窗口】</a></td>
</tr>
</table>
</BODY>
<%end if%>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -