history.asp

商业网站开发有源代码可以运行

 
<%if request.cookies("songxf")("username")="" and request.cookies("songxf")("shjianame")="" then%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr>
    <td bgcolor="#EDECEC"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td width=5>&nbsp;</td>
          <td> 
            <div align="center"></div>
             &nbsp;会员注册</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
    <td height=41 > 
      <div align=center> 
        <SCRIPT LANGUAGE="JavaScript">
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

  function checkuu()
{
    if(checkspace(document.userlogin.username.value)) {
	document.userlogin.username.focus();
    alert("用户名不能为空！");
	return false;
  }
    if(checkspace(document.userlogin.userpassword.value)) {
	document.userlogin.userpassword.focus();
    alert("密码不能为空！");
	return false;
  }
	
  }
</script>
        <table width="90%" border="0" cellspacing="0" cellpadding="1" align="center">
          <form name="userlogin" method="post" action="checkuserlogin.asp">
            <tr> 
              <td align="center" height="22"><font color="#999999">顾客您好，购买商品请先登录</font></td>
            </tr>
            <tr> 
              <td align="center">用户名： 
                <input type="text" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #ffffff"; name="username" size="10">
              </td>
            </tr>
            <tr> 
              <td align="center">密　码： 
                <input type="password" style="BORDER-RIGHT: #ffffff 1px groove; BORDER-TOP: #ffffff 1px groove; BORDER-LEFT: #ffffff 1px groove; COLOR: #333333; BORDER-BOTTOM: #ffffff 1px groove; HEIGHT: 18px; BACKGROUND-COLOR: #ffffff"; name="userpassword" size="10">
              </td>
            </tr>
            <tr> 
              <td align="center"> 
                <input name="imageField" type="image" src="images/login_bt_login.gif" width="45" height="19" border="0" onFocus="this.blur()">
                <a href="reg.asp"><img src="images/login_bt_zc.gif" width="45" height="19" border="0"></a> 
                <a href="getpwd.asp"> <img src="images/login_bt_wm.gif" border="0"></a> 
              </td>
            </tr>
          </form>
        </table>
        
      </div>
    </td>
  </tr>
  <tr> 
    <td height=3>&nbsp;</td>
  </tr>
</table>
<%else%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="22" colspan="2"> <b><font color="#FF9900">最近的浏览历史</font></b> </td>
  </tr>
  <%set rs=server.createobject("adodb.recordset")
		    rs.open "select * from shop_his where username='"&request.cookies("songxf")("username")&"' and lx=1 order by ltime desc",conn,1,1
			while not rs.eof%>
  <tr> 
    <td height="22" align="right" width="19%"> 
      <div align="center"><img src="images/image001.gif"></div>
    </td>
    <td height="22" align="left" width="81%"><a href='list.asp?id=<%=rs("bookid")%>' target=_blank><%=rs("bookname")%></a></td>
  </tr>
  <%rs.movenext
		    wend
		    rs.close
		  %>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="22" colspan="2"> <b><font color="#FF6600">搜索关键词</font></b></td>
  </tr>
  <%set rs=server.createobject("adodb.recordset")
		    rs.open "select * from shop_his where username='"&request.cookies("songxf")("username")&"' and lx=2 order by ltime desc",conn,1,1
			while not rs.eof%>
  <tr> 
    <td height="22" align="right" width="19%"> 
      <div align="center"><img src="images/image002.gif" width="15" height="15"></div>
    </td>
    <td height="22" align="left" width="81%"><a href='research.asp?<%=rs("searchkey")%>' target=_blank><%=rs("bookname")%></a></td>
  </tr>
  <%rs.movenext
		    wend
		    rs.close
			set rs=nothing%>
</table>
<%end if%>