history.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

<%if request.Cookies("BOB")("username")="" and request.cookies("BOB")("shjianame")="" then%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0 background="image/block_2_2.gif">
<tr>
<td height="38" bgcolor="f1f1f1" background="image/left-01-1.gif"><div align="center"><strong><font color="#75710A">会 员 登 陆</font></strong></div></td>
</tr>
<tr>
  <td height="120" valign="top"><table width="95%" 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" class=wenbenkuang name="username" size="14">
        </td>
      </tr>
      <tr>
        <td align="center">密　码：
            <input type="password" class=wenbenkuang name="userpassword" size="14">
        </td>
      </tr>
      <tr>
        <td align="center">验证码：
            <input class=wenbenkuang name=verifycode type=text value="<%If GetCode=9999 Then Response.Write "9999"%>" maxLength=4 size=6>
            <img src=GetCode.asp> </td>
      </tr>
      <tr>
        <td align="center">
          <INPUT class=go-wenbenkuang name="imageField" value="登 陆" type=submit onFocus="this.blur()">
          <INPUT class=go-wenbenkuang onclick="window.location='reg.asp'" type=reset value="注 册" name=Submit2>
          <INPUT class=go-wenbenkuang onclick="window.location='getpwd.asp'" type=button value="忘 密" name=Submit3>
        </td>
      </tr>
    </form>
    <tr>
      <td></td>
    </tr>
  </table></td>
</tr>
<tr> 
<td height="16" valign="top" background="image/block_3_3.gif">&nbsp; 
</td>
</tr>
</table>
<%else%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="image/block_2_2.gif">
<td height="38" bgcolor="f1f1f1" background="image/left-01-1.gif"><div align="center" class="style1"><font color="#75710A"><strong>最 近 浏 览</strong></font></div></td>
<%set rs=server.createobject("adodb.recordset")
		rs.open "select * from shop_his where username='"&request.Cookies("BOB")("username")&"' and lx=1 order by ltime desc",conn,1,1
		while not rs.eof%>
<tr>
  <td height="24" class="table-xia" align="left">&nbsp;&nbsp;&nbsp;<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" >"
				if len(trim(rs("bookname")))>16 then
				response.write left(trim(rs("bookname")),14)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%></td>

<%rs.movenext
	wend
	rs.close
	%></tr>
<tr><td width="85%" height="16" background="image/block_3_3.gif" class="table-xia">　
</td>
</tr>
</table>
<br>
<%end if%>