history.asp

php 语言写的c2c商城网站程序

<%if request.cookies("godbook")("username")="" and request.cookies("godbook")("shjianame")="" then%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="images/menu_01.gif"></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>
</table>
</td>
</tr>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<td height="35" bgcolor="f1f1f1" background="images/menu_15.gif"></td>
<%set rs=server.createobject("adodb.recordset")
		rs.open "select * from shop_his where username='"&request.cookies("godbook")("username")&"' and lx=1 order by ltime desc",conn,1,1
		while not rs.eof%>
<tr><td height="24" class="table-xia" width="85%">　<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank>"
				if len(trim(rs("bookname")))>12 then
				response.write left(trim(rs("bookname")),10)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				%>
</td>
</tr>
<%rs.movenext
	wend
	rs.close
	%>
</table>
<br>
<%end if%>