⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 view_lyb.asp

📁 使用asp开发的一个标准的房地产管理系统。有销售登记
💻 ASP
字号:
<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_system.asp-->
<!--#include file=../system/include/function.asp-->
<!--#include file=../system/include/access_zj.asp-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<style> body{ scrollbar-face-color:fd9035; scrollbar-shadow-color:ffffff;  scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff;  scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffefd7;  scrollbar-arrow-color:ffffff;} 
.rightkuan {  border-color: black #FFFFFF black black; border-style: solid; border-top-width: 0px; border-right-width: 2px; border-bottom-width: 0px; border-left-width: 0px}
.leftkuan {  border-color: black black black #FFFFFF; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 2px}
.textinput2 {  border: 1px #9c9a9c solid;BACKGROUND: #ffffff;FONT-SIZE: 9pt; FONT-FAMILY: arial}
</style>
 <script language="JavaScript">
 function openwin(page,size)
{
window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,"+ size);
} 
function mOvr(src,clrOver) { if (!src.contains(event.fromElement)){ src.bgColor = clrOver; }}function mOut(src,clrIn){ if (!src.contains(event.toElement)) { src.style.cursor = 'default'; src.bgColor = clrIn; }} function mClk(src) { if(event.srcElement.tagName=='TD'){src.children.tags('A')[0].click();} }

 </script>
 <script language="vbScript">
 <!--
 sub del()
 m=msgbox("您是否要删除此留言?",1+32,"删除记录")
 if m=1 then
 window.top.location.href="view_lyb.asp"
 end if
 end sub
 -->
 </script>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<!--#include file="../share/gg_top.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="left" valign="top"> 
    <td width="198"><img src="images/zjuser_r2_c1.gif" width="198" height="139"></td>
    <td width="184"><img src="images/zjuser_r2_c8.gif" width="201" height="139"></td>
    <td width="396" background="images/zjuser_r2_c13.jpg"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="379" height="139">
        <param name="movie" value="../images/member.swf">
		<param name=WMODE value=Transparent>
        <param name="quality" value="high">
        <embed src="../images/member.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="379" height="139"></embed></object></td>
  </tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="left" valign="top"> 
  <form name="form4" method="post" >
    <td width="10" height="406" background="../images/member_r6_c1.jpg"><img src="../images/member_r3_c1.gif" width="10" height="28"></td>
    <td width="584" align="left" height="406"> 
      <table width="582" height="28" border="0" cellpadding="0" cellspacing="0">
        <tr>
            <td width="582" height="28" align="left" valign="bottom" background="../images/member_r3_c2.gif" class="font"><a href="index.asp" class="menu">首  页 
              </a>&gt;&gt;&gt; <a href="index.asp" class="menu">房产中介管理</a> &gt;&gt;&gt; 
              查看留言信息</td>
        </tr>
      </table>
      <br>
        <table width="565" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="18" height="35">&nbsp;</td>
            <td width="490" height="35" valign="middle" align="left"><span class="font"><font color="#999999">以 
              下 是 客 户 给 您 的 留 言</font></span></td>
            <td width="57" height="35" valign="middle" align="center">&nbsp; </td>
          </tr>
        </table>
        <%
	dim strSql,rs,i,PageNo
	strSql="select * from [lyb]  where zj_id='" & session("zj_id") & "' order by ly_id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
	rs.PageSize=8
	PageNo=request("PageNo")
	if PageNo<1 or not isnumeric(PageNo) then
		PageNo=1
	end if
	if cint(PageNo)>rs.PageCount then
		PageNo=rs.PageCount
	end if
	
   dim yy
		if rs.recordcount>0 then
		   rs.AbsolutePage =PageNo
		   for i=1 to rs.pageSize
		   if not rs.eof then
  %>
        <center>
          <table width="546" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFCC99">
            <tr> 
              <td bgcolor="#FFEAB3" width="79" align="center" valign="middle" height="20" class="font"><font color="#FF6600">留 
                言 人</font></td>
              <td bgcolor="#fff9e1" width="191" align="left" valign="middle" class="font">&nbsp;<font color="#FF6600"><%=rs("ly_man")%></font></td>
              <td bgcolor="#FFEAB3" width="78" align="center" valign="middle" class="font"><font color="#FF6600" class="font">留言时间</font></td>
              <td bgcolor="#fff9e1" width="137" align="left" valign="middle" class="font">&nbsp;<%=rs("ly_date")%></td>
              <td bgcolor="#FF8000" width="55" align="center" valign="middle" class="font"><a href="del_lyb.asp?id=<%=rs("ly_id")%>" class="ffbyfont2" ><font color="#FFFFFF">删除</font></a></td>
            </tr>
            <tr> 
              <td bgcolor="#FFEAB3" width="79" align="center" valign="middle" height="20" class="font"><font color="#FF6600">电  话</font></td>
              <td bgcolor="#fff9e1" width="191" align="left" valign="middle" class="font">&nbsp;<%=rs("ly_tel")%></td>
              <td bgcolor="#FFEAB3" width="78" align="center" valign="middle" class="font"><font color="#FF6600" class="font">E-mail</font></td>
              <td bgcolor="#fff9e1" align="left" valign="middle" class="font" colspan="2">&nbsp;<%=rs("ly_email")%></td>
            </tr>
            <tr> 
              <td bgcolor="#FFEAB3" width="79" align="center" valign="middle" height="20" class="font"><font color="#FF6600">留言内容</font></td>
              <td colspan="4" bgcolor="#fff9e1" align="left" valign="top" class="font">&nbsp;<%=rs("ly_bz")%></td>
            </tr>
          </table>
		  <br>
          <%

				rs.movenext
		  end if
			next
  %>
          <table width="546" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFCC99" class="xu_kuan">
            <tr align="right" valign="middle" bgcolor="#FFE7CE"> 
              <td height="28" colspan="5" class="font" align="center" > 
                <%
				session("pagecount")=rs.pagecount
			out("<font color=#929292>当前页次:</font><font color=red>" & PageNo & "/" & rs.pagecount & "</font> &nbsp;&nbsp;")
			out("<font color=#929292>共</font><font color=red>" & rs.pagecount & "</font><font color=#929292>页</font> &nbsp;&nbsp;")
			out("<font color=#929292>共</font><font color=red>" & rs.recordcount & "</font><font color=#929292>条记录</font> &nbsp;&nbsp;")
			out("<a href=""view_lyb.asp?PageNo=1"" class=""menu1"">[首页]</a>&nbsp;")
		    out("<a href=""view_lyb.asp?PageNo=" & (PageNo-1) & """ class=""menu1"">[上一页]</a>&nbsp;")
		    out("<a href=""view_lyb.asp?PageNo=" & (PageNo+1) & """ class=""menu1"">[下一页]</a>&nbsp;")
			out("<a href=""view_lyb.asp?PageNo=" & rs.pagecount & """ class=""menu1"">[尾页]</a>&nbsp;")
	  dim pag
	  %>
                <select name="jump" class="textinput" onchange="javascript:window.open('view_lyb.asp?pageno='+this.options[this.selectedIndex].value,'_self')">
                  <% for pag=1 to rs.pagecount
				if int(pageno)=pag then %>
                  <option value=<%=pageno%> selected><%=pageno%></option>
                  <%else%>
                  <option value="<%=pag%>"><%=pag%></option>
                  <%
				end if
				next %>
                </select>
               </td>
            </tr>
</table>
</center>
            <% else %>
			<center>
			<table width="546" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFCC99" class="xu_kuan">
            <tr bgcolor="#fff9e1"> 
              <td height="112" > 
                <div align="center" class="font">客 户 还 未 给 您 下 留 言!</div>
              </td>
            </tr>
			</table>
            <%
		end if 
		rs.close
		set rs=nothing
  %>

          <br>
        </center>
    </td>
    <td width="184" align="center" valign="top" background="../images/member_r4_c6.gif" height="406"><img src="../images/member_r3_c6.gif" width="186" height="13"><br>
      <br><!--#include file="share_menu.htm"-->
<br>
    </td>
	</form>
  </tr>
</table>
<!--#include file="../share/gg_foot.htm"-->
</body>
</html>
<!--#include file=../system/include/foot.asp-->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -