pinguren_detail.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 402 行 · 第 1/2 页
ASP
402 行
<TR></TR>
<TR>
</TR></TBODY></TABLE>
<div align="right">
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9> <font color="#FFFFFF"><b>评估师详细信息</b></font></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
</div>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=705 border=0>
<TBODY>
<TR>
<td width="705" align="center" valign="top">
<td width="578" align="center" valign="top">
<%
id=RtnReplaceInt(request("id"),0)
set rs=server.CreateObject("adodb.recordset")
sql="select * from pinguren where id="&id&""
rs.open sql,conn,1,1
if rs.eof then
response.write "该评估师的信息不存"
else
%>
<div align="center">
<table width="705" height="184" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9F2D7" class="main">
<tr bgcolor="#F9DE8E" class="p13">
<td height="25" colspan="4" bgcolor="#dcf3da"><font color="#FFFFFF"> <font color="#000000"> <font color="#FF711B">在线评估师资料</font></font></font></td>
</tr>
<tr class="p13">
<td width="77" height="25" bgcolor="#FFFFFF"> <div align="center">姓 名</div></td>
<td width="236" height="25" bgcolor="#FFFFFF"><%=trim(rs("youname"))%> </td>
<td width="63" bgcolor="#FFFFFF"> <div align="center">性 别</div></td>
<td width="211" bgcolor="#FFFFFF"><%=trim(rs("xb"))%></td>
</tr>
<tr bgcolor="#FEFAEE" class="p13">
<td height="25"> <div align="center">身份证号码</div></td>
<td height="25" bgcolor="#FEFAEE"><%=trim(rs("shenfenz"))%> </td>
<td> <div align="center">职 业</div></td>
<td><%=trim(rs("zhiye"))%></td>
</tr>
<tr class="p13">
<td height="25" bgcolor="#FFFFFF"> <div align="center">联系电话</div></td>
<td height="25" bgcolor="#FFFFFF"><%=trim(rs("tel"))%> </td>
<td bgcolor="#FFFFFF"> <div align="center">E-mail</div></td>
<td bgcolor="#FFFFFF"><a href="mailto:<%=trim(rs("email"))%>" class="linkone"><%=trim(rs("email"))%></a></td>
</tr>
<tr bgcolor="#FEFAEE" class="p13">
<td height="25"> <div align="center">公司名称</div></td>
<td height="25"><%=trim(rs("company"))%> </td>
<td> <div align="center">公司地址</div></td>
<td><%=trim(rs("coaddr"))%></td>
</tr>
<tr class="p13">
<td height="25" bgcolor="#FFFFFF"> <div align="center">公司电话</div></td>
<td height="25" bgcolor="#FFFFFF"><%=trim(rs("cotel"))%> </td>
<td bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"> </td>
</tr>
<tr bgcolor="#FEFAEE" class="p13">
<td height="26"> <div align="center">个人简介</div></td>
<td colspan="3"><%=trim(rs("jianjie"))%></td>
</tr>
</table>
</div>
<%
end if
rs.close
%>
<div align="center">
<table width="705" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" class="main" bordercolor="#7CB721">
<tr bgcolor="#F9DE8E">
<td height="25" colspan="7" class="p13" bgcolor="#dcf3da"> <font color="#FF711B">已评估的楼盘<strong>
</strong></font> </td>
</tr>
<tr>
<td width="56" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">物业名称</font></div></td>
<td width="111" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">地理位置</font></div></td>
<td width="117" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">户型</font></div></td>
<td width="112" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">价格（万元）</font></div></td>
<td width="69" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">提交时间</font></div></td>
<td width="61" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">评估师</font></div></td>
<td width="61" height="25" bgcolor="#D9F2D7" class="p13">
<div align="center"><font color="#FF711B">状态</font></div></td>
</tr>
<%
dim curpage
if request("curpage")="" then
curpage=1
else
curpage=request("curpage")
end if
const numperpage=15
opendataconn
set rs=server.createobject("adodb.recordset")
sql="select * from pinggu where ispingu='1' order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof then
'response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
' response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
If count mod 2=0 Then
bgcolor="#FEFAEE"
Else
bgcolor="#FFFFFF"
End If
%>
<tr onMouseOver="this.style.backgroundColor='#FEEAD3';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" bgcolor="<%=bgcolor%>">
<td height="20"> <div align="center"> <%=trim(rs("wuyename"))%></div></td>
<td height="20"> <div align="center"><%=trim(rs("area"))%></div></td>
<td height="20"> <div align="center"><%=trim(rs("huxing"))%></div></td>
<td height="20"> <div align="center"><%=trim(rs("price"))%></div></td>
<td height="20"> <div align="center">
<%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%>
</div></td>
<td height="20"> <div align="center"><%=trim(rs("pgren"))%></div></td>
<td height="20"> <div align="center">
<% if trim(rs("ispingu"))="1" then response.write "已评估" else response.write "未评估" end if%>
</div></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
closedataconn
%>
</table>
</div>
<div align="center">
<table width="705" height="48" border="0" cellpadding="0" cellspacing="0" class="main">
<tr>
<td align="center"> <% if cint(curpage)<>1 then %> <a href="pinguren_detail.asp?curpage=1&sort=<%=sort%>&id=<%=id%>" class="linkone">首页 </a>
<% else %>
首页 <% end if %> <% if cint(curpage)>1 then %> <a href="pinguren_detail.asp?curpage=<%=curpage-1%>&sort=<%=sort%>&id=<%=id%>" class="linkone">上一页 </a>
<% else %> 上一页
<% end if %> <% if cint(curpage)<>cint(totalpages) then %> <a href="pinguren_detail.asp?curpage=<%=curpage+1%>&sort=<%=sort%>&id=<%=id%>" class="linkone"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="pinguren_detail.asp?curpage=<%=totalpages%>&sort=<%=sort%>&id=<%=id%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a> 第<%=curpage%>页/共<%=totalpages%>页 </td>
</tr>
</table></div>
</td>
</div>
</div></td>
</div>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0>
<TBODY>
<TR>
<TD width=20>
<IMG height=27 src="../img/bomgreen1.gif"
width=13></TD>
<TD align=right>
</TD></TR></TBODY></TABLE></div>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?