pgren_more.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 326 行 · 第 1/2 页
ASP
326 行
<tr height="1">
<td height="1" background="../ima/back.gif" class="p13"></td>
</tr>
<tr>
<td height="22" class="p13"><a href="pingu_more.asp?pgtype=%B9%A4%D2%B5%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone"><font color="#FFFFFF">3、工业物业评估</font></a></td>
</tr>
<tr height="1">
<td height="1" background="../ima/back.gif" class="p13"></td>
</tr>
<tr>
<td height="22" class="p13"><a href="pingu_more.asp?pgtype=%CD%C1%B5%D8%C6%C0%B9%C0" class="linkone"><font color="#FFFFFF">4、土地评估</font></a></td>
</tr>
<tr height="1">
<td height="1" background="../ima/back.gif" class="p13"></td>
</tr>
<tr>
<td height="22" class="p13"><a href="pingu_more.asp?pgtype=%C6%E4%CB%FC%CE%EF%D2%B5%C6%C0%B9%C0" class="linkone"><font color="#FFFFFF">5、其它物业评估</font></a></td>
</tr>
<tr height="1">
<td height="1" background="../ima/back.gif" class="p13"></td>
</tr>
<tr height="10">
<td class="p13" height="10"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<TR>
<TD></TD></TR>
<tr>
<form name="form1" method="get" action="house/hs.asp">
</form></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<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">
<table width="705" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9F2D7" class="main">
<tr bgcolor="#F9DE8E">
<td width="56" height="25" class="p13" bgcolor="#D9F2D7"> <div align="center"><font color="#FF711B">姓名</font></div></td>
<td width="111" height="25" class="p13" bgcolor="#D9F2D7"> <div align="center"><font color="#FF711B">性别</font></div></td>
<td width="117" height="25" class="p13" bgcolor="#D9F2D7"> <div align="center"><font color="#FF711B">职业</font></div></td>
<td width="112" height="25" class="p13" bgcolor="#D9F2D7"> <div align="center"><font color="#FF711B">联系电话</font></div></td>
<td width="69" height="25" class="p13" bgcolor="#D9F2D7"> <div align="center"><font color="#FF711B">E-mail</font></div></td>
<td width="61" height="25" class="p13" bgcolor="#D9F2D7"> <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
pgtype=trim(request("pgtype"))
sql="select * from pinguren where ok=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("youname"))%></div></td>
<td height="20"> <div align="center"><%=trim(rs("xb"))%></div></td>
<td height="20"> <div align="center"><%=trim(rs("zhiye"))%></div></td>
<td height="20"> <div align="center"><%=trim(rs("tel"))%></div></td>
<td height="20"> <div align="center"> <a href="mailto:<%=trim(rs("email"))%>" class="linkone"><%=trim(rs("email"))%></a> </div></td>
<td height="20"> <div align="center"> <a href="pinguren_detail.asp?id=<%=trim(rs("id"))%>" class="linkone">详细信息</a>
</div></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
%>
</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="pgren_more.asp?curpage=1" class="linkone">首页 </a>
<% else %>
首页 <% end if %> <% if cint(curpage)>1 then %> <a href="pgren_more.asp?curpage=<%=curpage-1%>" class="linkone">上一页 </a>
<% else %> 上一页
<% end if %> <% if cint(curpage)<>cint(totalpages) then %> <a href="pgren_more.asp?curpage=<%=curpage+1%>" class="linkone"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="pgren_more.asp?curpage=<%=totalpages%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a> 第<%=curpage%>页/共<%=totalpages%>页 </td>
</tr>
</table>
</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 + -
显示快捷键?