l_user.asp

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

ASP
453 行
字号
12
<!--#include file="conn.asp"-->
<%
sql="select * from counst"
set rs=conn.execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><% =rs("W_name") %></title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" leftmargin="0" bgcolor="#EEEEEE"><table width="779" border="0" align="center" cellpadding="0" cellspacing="0">
<!-- fwtable fwsrc="1 ??±′.png" fwbase="ok2.png" fwstyle="Dreamweaver" fwdocid = "1365122013" fwnested="0" -->
  <tr>
   <td><img src="images/spacer.gif" width="12" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="153" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="604" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="10" height="1" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>

  <tr>
   <td rowspan="13"><img name="ok2_r1_c1" src="images/ok2_r1_c1.png" width="12" height="956" border="0" alt=""></td>
   <td colspan="2"><img name="ok2_r1_c2" src="images/ok2_r1_c2.png" width="757" height="12" border="0" alt=""></td>
   <td rowspan="13"><img name="ok2_r1_c4" src="images/ok2_r1_c4.png" width="10" height="956" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="12" border="0" alt=""></td>
  </tr>
  <tr>
   <td colspan="2"><img name="ok2_r2_c2" src="images/ok2_r2_c2.png" width="757" height="94" border="0" alt=""></td>
   <td><img src="images/spacer.gif" width="1" height="94" border="0" alt=""></td>
  </tr>
  <tr>
    <td colspan="2"><img src="images/ok2_r3_c2.png" width="757" height="38" border="0" usemap="#Map"></td>
    <td><img src="images/spacer.gif" width="1" height="38" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="ok2_r4_c2" src="images/ok2_r4_c2.png" width="153" height="32" border="0" alt=""></td>
   <td bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="1">
    <tr>
      <td width="4%"><img border="0" src="imag/002.gif"> 
      </td>
      <td width="96%"><MARQUEE onmouseover="if (document.all!=null){this.stop()}" onmouseout="if (document.all!=null){this.start()}"
                scrollAmount=2 scrollDelay=5 color=#000000><% =rs("W_bulletin") %></MARQUEE></td>    
    </tr>
  </table></td>
   <td><img src="images/spacer.gif" width="1" height="32" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="ok2_r5_c2" src="images/ok2_r5_c2.png" width="153" height="51" border="0" alt=""></td>
   <td rowspan="8" valign="top"><!--#include file="UBB.asp"-->
<table border="0" width="100%" cellpadding="5">
<tr>
<td width="50%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%"><img border="0" src="imag/k-001.jpg"></td>
<td width="98%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="50%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" bgcolor="#5F5F5F">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%" bgcolor="#606060">
<p align="center"><b><font style="font-size: 14px" color="#FFFFFF">详细信息</font></b></td>
<td width="34%" bgcolor="#606060"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
<td width="50%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr bgcolor="#606060">
    <td width="50%">
    </td>
    <td width="50%">
<p align="right"><img border="0" src="imag/k-008.jpg"></td>
  </tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="1%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="98%">
<table border="0" width="100%">
  <tr>
              <TD height="210" valign="top"> 
 <%
if session("uid")="" then
response.Redirect"error.asp"
end if
pname=request("pname")
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from puser where uid='"& pname &"'"
rs2.open sql2,conn,1,3
if rs2.bof and rs2.eof then
response.Write"<div align=""center""><font color=""#FF0000"" size=""3""><strong>对不起！本站无此用户</strong></font></div>"
else
%>
<SCRIPT language="javascript">
<!--
function del_space(s)
{
	for(i=0;i<s.length;++i)
	{
	 if(s.charAt(i)!=" ")
		break;
	}

	for(j=s.length-1;j>=0;--j)
	{
	 if(s.charAt(j)!=" ")
		break;
	}

	return s.substring(i,++j);
}

function VerifySubmit()
{
	jsr = del_space(document.all("jsr").value);
     if (jsr.length == 0)
     {
        alert("你忘了填写接收人姓名");
	return false;
     }
	 
	fbr = del_space(document.all("fbr").value);
     if (fbr==jsr)
     {
        alert("不允许自己给自己发信件");
	return false;
     }
	 
	 bt = del_space(document.all("bt").value);
     if (bt.length == 0)
     {
        alert("您忘了填写信件标题");
        return false;
     }
	 
	 nr = del_space(document.all("nr").value);
     if (nr.length == 0)
     {
        alert("您忘了填写信件内容");
        return false;
     }

	nr = del_space(document.all("nr").value);
     if (nr.length > 300)
     {
        alert("内容不能大于300字");
        return false;
     }

	return true;
}
//-->
</SCRIPT>
                <DIV align=center>
                  <table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#569800">
                    <tr> 
                      <td height="23" align="right" bgcolor="#F5F5F5"><div align="center">真实姓名：</div></td>
                      <td height="23" bgcolor="#F5F5F5"> &nbsp;              
                        <% =rs2("uname") %>
                      </td>
                    </tr>
                    <tr> 
                      <td width="23%" height="23" align="right" bgcolor="#CCEECC"><div align="center">性              
                          别： </div></td>
                      <td width="77%" height="23" bgcolor="#CCEECC">&nbsp;              
                        <% =rs2("xb") %>
                      </td>
                    </tr>
                    <tr> 
                      <td height="23" align="right" bgcolor="#F5F5F5"><div align="center">Email：</div></td>
                      <td height="23" bgcolor="#F5F5F5">&nbsp;              
                        <a href="mailto:<% =rs2("email") %>"><% =rs2("email") %></a>
                      </td>
                    </tr>
                    <tr> 
                      <td height="23" align="right" bgcolor="#CCEECC"><div align="center">联系电话：</div></td>
                      <td height="23" bgcolor="#CCEECC">&nbsp;              
                        <% if session("VIP")< 888 or session("VIP")="" then
					  response.Write"<font color=""#FF0000"">对不起！您的权限不够</font>"
					  else%>
                        <% =rs2("tel") %>             
                        <% end if %>             
                      </td>
                    </tr>
                    <tr> 
                      <td height="23" align="right" bgcolor="#F5F5F5"><div align="center">发布信息数量：</div></td>
                      <td height="23" bgcolor="#F5F5F5">&nbsp;              
                        <% set uhouse=conn.execute("Select count(*) as uhouse1 From house where fw_uid='"&pname&"'") %>
                        <font color="#FF0000">&nbsp;              
                        <% =uhouse("uhouse1") %>
                        </font>&nbsp;条</td>
                    </tr>
                  </table>
				 
                  <TABLE width="100%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#569800>
12

l_user.asp - 源码说明

本页面展示了「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员不能查看房主的相系方法的功能； 3.增加了不是会员不能发布的功能； 4.完善了会员中心信息等功能； 5.新增了一个」中的 l_user.asp 源码文件，采用 ASP 编程语言编写，共 453 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web应用相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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