title.asp

this a program about talent web database used asp and VB.

<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--

function B2_onclick() {
window.location="register.asp"
}

//-->
</script>
<table class="shuang" height="54" cellSpacing="0" cellPadding="0" width="778" align="center" border="0">
  <tbody>
  <tr background="images/bg4.gif">
  <form method="POST" action="default.asp" id="forml" name="forml"> 
    <td class="zzz" vAlign="bottom" width="280" height="80" rowSpan="2">
    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" id="_1" width="280" height="80">
  <param name="movie" value="1.swf">
  <param name="quality" value="high">
  <param name="bgcolor" value="#FFFFFF">
  <embed name="_1" src="1.swf" quality="high" bgcolor="#FFFFFF" width="280" height="80" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
  
</object>
    </td>
      <td class="zzz" vAlign="bottom" width="291" align="center">
             
      <%
      uid=Request.Cookies("uid")
      if uid<>"" then
      strsql="select * from tblids where uid=" & sqlstr(uid)
      set rsd=server.CreateObject("adodb.recordset")
      rsd.Open strsql,conn
      tbl=rsd("tblname")
      Response.Cookies("uid")=uid
      Response.Cookies("tbl")=tbl
      set rsd=nothing
      end if
      
      if Request.Form("b1")="提交" then
      uid=trim(Request.Form("uid"))
      pwd=trim(Request.Form("pwd"))
      strsql="select * from tblids where uid=" & sqlstr(uid) & " and pwd=" & sqlstr(pwd)
      set rsd=server.CreateObject("adodb.recordset")
      rsd.Open strsql,conn
      if rsd.EOF and rsd.BOF then
      set rsd=nothing
      %>
      
帐号：
<input type="text" name="uid" size="5" class="box1">
密码：
<input type="password" name="pwd" size="5" class="box1">
<input type="submit" value="提交" name="B1" class="box1">
<input type="button" value="注册" name="B2" class="box1" LANGUAGE="javascript" onclick="return Br_onclick()">
      </td></form>
      <script LANGUAGE="javascript">
<!--
window.alert('登陆错误，请重新输入');
window.forml.uid.focus();
//-->
</script>
           <%else
                tname=rsd("tblname")
                Response.Cookies("uid")=uid
                Response.Cookies("tbl")=tname
                end if
           elseif uid="" then%>
<form method="POST" action="#" id="form1" name="form1">
帐号：
<input type="text" name="uid" size="5" class="box1">
密码：
<input type="password" name="pwd" size="5" class="box1">
<input type="submit" value="提交" name="B1" class="box1">
<input type="button" value="注册" name="B2" class="box1" LANGUAGE="javascript" onclick="return B2_onclick()">
      </td></form>
      <%end if%>
      
      <%
      uid=Request.Cookies("uid")
      tbl=Request.Cookies("tbl")
      
      if tbl="tblUsers" then
      Response.Write "欢迎 " & uid
      elseif tbl="tblMembers" then
      Response.Write "<a href=addhouse.asp>添加二手房</a>&nbsp;&nbsp;<a href=addlhouse.asp>添加出租房</a>&nbsp;&nbsp;<a href=addnhouse.asp>添加新房</a>&nbsp;&nbsp;<a href=delhouse.asp>删除房源</a>"
      end if
      %>
    </td>
      </form>
    <td class="zzz" vAlign="bottom" align="middle" width="207">
      <%
      if tbl="tblUsers" then
      %>
         &nbsp;&nbsp;&nbsp;&nbsp;
      <a href="loginout.asp">退出登陆</a>
      <%elseif tbl="tblMembers" then
      Response.Write "<a href=updatepwd.asp>更改密码</a>&nbsp;&nbsp;"
      %>
      &nbsp;&nbsp;&nbsp;&nbsp;
      <a href="loginout.asp">退出登陆</a>
      <%end if%>
      </td></tr>
      
   <tr>
    <td class="zzz" vAlign="bottom" align="middle" colSpan="2" height="60">
      <script src=http://mysms.163.com/person?username=yquan7208&type=1></script>
      <!--<img src="images/ad.gif">--></td></tr>
      
  </tbody></table>
  
  
<table class="shuang" height="15" cellSpacing="0" cellPadding="2" width="778" align="center" border="0">
  <tbody>
  <tr align="middle">
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a1','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="default.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a1"> 
      本站首页</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a2','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="fyxx.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a2"> 
      房源信息</a></td>
      <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a7','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="kfgs.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a7"> 
      新开楼盘</a></td>
    <td width="80" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a3','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="zjgs.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a3"> 
      二手房信息</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a8','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="moreczhouse.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a8">自助房源</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a4','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="fitment.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a4"> 
      装潢园地</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a5','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="policy.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a5"> 
      政策法规</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a8','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="morenews.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a8">行业新闻</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a9','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="bbs.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a9"> 
      房产论坛</a></td>
    <td width="74" background="images/xddx001_r1_c3.gif" height="13"><a class="zzz" onmouseover="MM_swapImage('a10','','images/kk2.gif',1)" onmouseout="MM_swapImgRestore()" href="fbbs.asp"><img height="10" src="images/kk1.gif" width="10" border="0" name="a10"> 
      装潢论坛</a></td>
</tr></tbody></table>