l_user.asp

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

                    <form name="regform" onSubmit="return VerifySubmit()" method="post" action="user_messageWR.asp">
                      <TR align=middle borderColor=ffffff bgColor=a3e0a3> 
                        <TD colspan="2" width="100%">
                          <p align="center"><b><font color="#34560F">给  
                          <font color="#FF0000"><% =rs2("uid") %></font>
                          发送站内信件</font></b></p> 
                        </TD>
                      </TR>
                      <TR bgcolor="#FFFFFF"> 
                        <TD width="15%" align=right class=htd><div align="left">
                            <p align="right">接  
                            收 人：</div></TD> 
                        <TD width="85%" align=middle class=htd><div align="left"> 
                            <input name="jsr" type="text" id="jsr" value="<% =rs2("uid") %>">
                            &nbsp;<font color="#FF0000">*</font></div></TD>             
                      </TR>
                      <TR bgcolor="#FFFFFF"> 
                        <TD align=right class=htd width="15%"><div align="left">
                            <p align="right">信件主题：</div></TD>
                        <TD align=middle class=htd width="85%"><div align="left"> 
                            <input name="bt" type="text" id="bt2">
                            &nbsp;<font color="#FF0000">*</font></div></TD>             
                      </TR>
                      <TR bgcolor="#FFFFFF"> 
                        <TD align=center class=htd width="15%"><div align="left">
                            <p align="right">信件内容： 
                            <br>
                            <br>
                            ≤300 </div></TD>
                        <TD align=middle class=htd width="85%"><div align="left"> 
                            <textarea name="nr" cols="50" rows="8" id="textarea"></textarea>
                            &nbsp;<font color="#FF0000">*</font> </div></TD>             
                      </TR>
                      <TR> 
                        <TD colspan="2" align=middle bgColor=#ededed class=htd width="100%"><div align="center"> 
                            <input type="submit" name="Submit" value="发送信件">
                            <input name="fbr" type="hidden" id="fbr" value="<% =session("uid") %>">
                          </div></TD>
                      </TR>
                    </form>
                  </TABLE>
                  <br>
                  <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 background="images/c-b.gif" style="BORDER-COLLAPSE: collapse">
                    <TR> 
                      <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="1%"><img src="images/cent_01.gif" width="37" height="20"></td>
                            <td width="95%" valign="bottom" background="images/cent_02.gif">该用户所发布的信息</td>
                            <td width="4%"><img src="images/cent_03.gif" width="51" height="20"></td>
                          </tr>
                        </table></TD>
                    </TR>
                    <TR> 
                      <TD><DIV align=center>
                          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <% ppname=request("pname")
				   set rs=server.createobject("adodb.recordset")
                   sql="select * from house where fw_uid='"& ppname &"' order by id desc"
                   rs.open sql,conn,1
				   rs.pagesize=15 '每页显示多少条
                   pagecount=rs.pagecount '总页数
                   if rs.bof and rs.eof then
                   response.write "此用户暂无发布任何信息"
                   else
  
  page=clng(request.querystring("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  rs.absolutepage=page  '跳到多少页
  
  for i=1 to rs.pagesize
  %>
                            <TR> 
                              <TD width="11%">&nbsp;<img src="images/006.gif" width="8" height="10"><font size="2"> 
                                <% =rs("mytype")%>
                                </font></TD>
                              <TD align=right width="13%"><div align="center"><font size="2"> 
                                  <% =rs("fw_quyu")%>
                                  </font></div></TD>
                              <TD align=left width="16%"><div align="center"><font size="2"> 
                                  <% =rs("fw_jiegou")%>
                                  </font></div></TD>
                              <TD align=middle width="20%"> <div align="center"><font size="2"> 
                                  <% =rs("fw_jiage") %><% =rs("fw_jiageLX") %>
                                  </font></div></TD>
                              <TD align=left width="10%"><div align="center"><font color="#666666" size="2"> 
                                  <% =rs("fw_lls") %>
                                  </font></div></TD>
                              <TD align=left width="18%"><div align="center"><font color="#666666" size="2"> 
                                  <% =rs("fw_fbri") %>
                                  </font></div></TD>
                              <TD align=left width="12%"><div align="center"><a href="h_open.asp?id=<%=rs("id")%>">查看</a> 
                                </div></TD>
                            </TR>
                            <% 
  rs.movenext
  if rs.eof then exit for 
  next
  end if 
  %>
                          </TABLE>
                        </DIV></TD>
                    </TR>
                    <TR>
                      <TD><div align="center"><img src="images/more_01.gif" width="29" height="9">&nbsp;&nbsp;         
                          <%
	r=30
	 
	'总页数
	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 &"&pname="&ppname&">" &"上一页" &"</a>"

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

if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &"&pname="&ppname&">" &"下一页" &"</a>"
%>
                        </div></TD>
                    </TR>
                  </TABLE>
                </DIV><%end if%></TD>
  </tr>
</table>
</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>