liuyan.asp

来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 380 行 · 第 1/2 页

                                        <% else 
													response.Write""
													end if %>
                                      </TABLE>
                                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                        <TR> 
                                          <TD height=5 colspan="2"></TD>
                                        </TR>
                                        <TR bgcolor="#99CC99"> 
                                          <TD height=1 colSpan=3></TD>
                                        </TR>                                        <TR> 
                                          <TD height=5 colspan="2"></TD>
                                        </TR>
                                        <tr> 
                                          <td width="41%"><img src="images/L03.gif" width="16" height="16" border=0 align=absMiddle title=签写时间> 
                                            <% =rs("date") %>
                                          </td>
                                          <td width="59%"><div align="right"><a 
                                href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("qq")%>" 
                                target=_blank><img 
                                src="images/L04.gif" alt="<%=rs("fbr")%>的QQ是:<% =rs("qq") %>" 
                                border=0 ></a>&nbsp;<a 
                                href="mailto:<% =rs("email") %>"><img 
                                src="images/L05.gif" alt="给 <% =rs("fbr") %> 发送邮件" width="16" height="16" 
                                border=0 ></a>&nbsp; 
                                              <% if rs("homepage")<>"http://" then %>
                                              <a href="<% =rs("homepage") %>" target="_blank"><img src="images/L06.gif" width="16" height="16" border="0"></a> 
                                              <% else 
								 response.Write""
								 end if %>
                              </div></td>
                                        </tr>
                                      </table></TD>
                                  </TR>
                                </TABLE></td>
                            </tr>
                          </table></td>
                      </tr>
                    </table></TD>
                </TR>
              </TABLE></TD>
          </TR>
          <% 
         rs.movenext
         if rs.eof then exit for 
         next
         end if 
         %>
        </TABLE>
        <TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="98%" bgColor=#99CC99 border=1>
            <TR borderColor=#ededed bgColor=#ededed> 
              <TD align=middle height=25><div align="center"> 
                  <% set tj=conn.execute("Select count(*) as tj1 From liuyan ") %>
                  共有〖  
                  <% =tj("tj1") %>
                  〗条留言&nbsp;&nbsp;&nbsp;&nbsp;  
                  <%
	r=7
	 
	'总页数
	zys=round(clng(rs.pagecount)/r+0.5)
	
	'当前页数
	dqys=request.QueryString("dqys") 
	
	'开始页
	ksy=request.QueryString("ksy") 
	
	if dqys="" then dqys=1
	if ksy="" then ksy=1 
	 
	js=clng(dqys) * r '一个FOR语句结束
	if js > clng(rs.pagecount) then js=clng(rs.pagecount)
	
	newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
		
if clng(dqys) >1 then response.write "<a href=?dqys="& dqys-1 &">" &"上一页" &"</a>"

	  for t=newksy to js
	     response.write "<a href=?page=" &t&"&dqys="&dqys&">" &t& "</a>&nbsp;"
	  next
	  

if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &">" &"下一页" &"</a>"

	%>
                </div></TD>
            </TR>
        </TABLE>
        
      </div></td>
  </tr>
</table>
<% if request("del")<>"" then 
  del=request.QueryString("del")

  conn.execute ("delete from liuyan where id="&del)
  response.Redirect"liuyan.asp"
  
  else
  response.Write""
  end if 
  
  %>

</td>
<td width="1%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" background="imag/k-009-2.jpg">
<tr>
<td width="50%"><img border="0" src="imag/k-009-1.jpg"></td>
<td width="50%">
<p align="right"><img border="0" src="imag/k-009-3.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td><td><img src="images/spacer.gif" width="1" height="51" border="0" alt=""></td>
  </tr>
  <tr>
   <td><table width="153" height="120" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td align="left" valign="top"><!--#include file="huiyuan.asp"--></td>
     </tr>
   </table></td>
   <td><img src="images/spacer.gif" width="1" height="120" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="ok2_r7_c2" src="images/ok2_r7_c2.png" width="153" height="20" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="20" border="0" alt=""></td>
  </tr>
  <tr>
   <td><table width="153" height="170" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td align="left" valign="top"><!--#include file="shousuo.asp"--></td>
     </tr>
   </table></td>
   <td><img src="images/spacer.gif" width="1" height="170" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="ok2_r9_c2" src="images/ok2_r9_c2.png" width="153" height="21" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="21" border="0" alt=""></td>
  </tr>
  <tr>
   <td><table width="153" height="77" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td align="left" valign="top"><!--#include file="tongji.asp"--></td>
     </tr>
   </table></td>
   <td><img src="images/spacer.gif" width="1" height="77" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="ok2_r11_c2" src="images/ok2_r11_c2.png" width="153" height="19" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="19" border="0" alt=""></td>
  </tr>
  <tr>
   <td><table width="153" height="205" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td align="left" valign="top" bgcolor="#E9E7DB"><!--#include file="link.asp"--></td>
     </tr>
   </table></td>
   <td><img src="images/spacer.gif" width="1" height="205" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="2"><img name="ok2_r13_c2" src="images/ok2_r13_c2.png" width="757" height="97" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="97" border="0" alt=""></td>
  </tr>
</table>
<map name="Map">
  <area shape="rect" coords="180,15,210,30" href="index.asp">
  <area shape="rect" coords="229,14,280,31" href="gsjj.asp">
  <area shape="rect" coords="306,13,360,30" href="house.asp?lb=出售">
  <area shape="rect" coords="376,14,432,30" href="house.asp?lb=求购">
  <area shape="rect" coords="459,16,510,30" href="house.asp?lb=出租">
  <area shape="rect" coords="529,14,581,31" href="house.asp?lb=求租">
  <area shape="rect" coords="602,14,654,30" href="house.asp?lb=合租">
  <area shape="rect" coords="678,13,732,32" href="house.asp?lb=留言">
</map>
</body>

</html>