huiyuan.asp

功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员不能查看房主的相系方法的功能； 3.增加了不是会员不能发布的功能； 4.完善了会员中心信息等功能； 5.新增了一个

<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E7DB">
<tr>
              <TD width="100%" height=121 align=left valign="top"> 
                <TABLE cellSpacing=0 cellPadding=0 border=0>
                  <% if session("uid")="" then %>
                  <form name="userLogin" action="login.asp" method="post">
                    <TR height=30> 
                      <TD>名称：</TD>
                      <TD><INPUT name=uid id="uid" size=10 maxLength=20></TD>
                    </TR>
                    <TR height=26> 
                      <TD>密码：</TD>
                      <TD><INPUT 
                        name=pwd type=password id="pwd" size=10 maxLength=20></TD>
                    </TR>
                    <TR height=26> 
                      <TD align=middle colSpan=2> <TABLE cellSpacing=0 cellPadding=0 border=0>
                            <TR vAlign=bottom align=middle> 
                              <TD><A href="zc.asp" target="_blank">注册</A></TD>
                                <TD width=60> <A href="forgotpwd.asp?gn=forgotpwd" target="_blank">忘记密码</A></TD>
                              <TD><INPUT name="submit" type=submit value="登 录"></TD>
                            </TR>
                        </TABLE></TD>
                    </TR>
                  </FORM>
                </TABLE>
                <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
                  <% else %><TR height=30>
                      <TD align=middle>你好，<font color="#FF0000">
                        <%if session("VIP")=999 then
						response.Write"管理员"
                        elseif session("VIP")=888 then
						response.Write"VIP会员"
                        elseif session("VIP")=777 then
					    response.Write"注册会员"
						end if %>
                      </font><B><FONT class=blue> 
                        <% =session("uid") %>
                        </FONT></B></TD>
                    </TR>
                    <TR height=30> 
                      <% uid=session("uid")
						 set message=conn.execute("Select count(*) as message1 From message where jsr='"&uid&"' and ok='1'") %>
                      <TD height="18" align=middle><IMG src="imag/001.gif"><A href="user.asp?gn=message" target="_blank">
                      <% if message("message1")="0" then %>&nbsp;短信箱 （<FONT class=gray>0&nbsp;新</FONT>）            
                        <% else %>
                        &nbsp;短信箱 （<FONT class=red> <% =message("message1") %>&nbsp;新</FONT>）            
                        <embed src="images/mail.wav" width="0" height="0">  
                        <% end if %></A>          
                      </TD></TR>
                      <TR> 
                      
                <TD height="26" align=middle>
                  <p align="center"><a href="logout.asp">退出登陆</A>&nbsp;|&nbsp;<A href="user.asp?gn=ziliao" target="_blank">用户中心</A><br><a href="fb.asp" target="_blank">发布房源</a></p>                </TD>
                    </TR>
                    <% end if %>
    </TABLE></TD>
</tr>
</table>