📄 splb.asp
字号:
if (fucCheckLength(document.FORM1.uid.value) <4 )
{
alert("会员帐号必须至少4位");
document.FORM1.uid.focus();
return false;
}
}
</script>
<!--webbot bot="HTMLMarkup" endspan -->
</font></p>
<form language=javascript name=FORM1 onSubmit="return FORM1_onsubmit()"
action=orderloginsb.asp method=post>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#B0E8F8"><br>
<br>
<br>
帐号
<input maxlength=16 size=14
name=uid>
</font> </p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><font color="#B0E8F8">密码
<input maxlength=16 size=14
name=pwd type="password">
<br>
<br>
</font> </p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<font color="#B0E8F8">
<input type=submit size=3 value=登录 name=Submit2>
<input type="button" value="注册会员" name="B1" onClick="window.location.href='reguser.htm';" >
<br>
<br>
<br>
</font> </p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<font color="#B0E8F8"> 注册为我们的会员<br>
<br>
可以买会员价格</font> </p>
</form></td>
</tr>
</tbody>
</table>
</div>
<p>
</td>
</center>
<td width="100%" height="1" valign="top" bgcolor="#336699">
<table border=0 cellspacing=0 cellpadding=0 width="100%">
<tr align=center>
<td width=25><img src=images/left.gif></td>
<td width=86 background="images/bgguide.gif"><a href="index.asp" class="guide">首 页</a></td>
<td background="images/bgguide.gif"><img src=images/guide.gif></td>
<td width=86 background="images/bgguide.gif"><a href="zxsp.asp" class="guide">最新商品</a></td>
<td background="images/bgguide.gif"><img src=images/guide.gif></td>
<td width=86 background="images/bgguide.gif"><a href="reguser.htm" class="guide">会员注册</a></td>
<td background="images/bgguide.gif"><img src=images/guide.gif></td>
<td width=86 background="images/bgguide.gif"><a href="javascript:openbag()">察看购物车</a></td>
<td background="images/bgguide.gif"><img src=images/guide.gif></td>
<td width=86 background="images/bgguide.gif">购物帮助</td>
<td background="images/bgguide.gif"><img src=images/guide.gif></td>
<td width=86 background="images/bgguide.gif"><a href="book.asp">顾客留言</a></td>
<td width=25><img src=images/right.gif></td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
</center>
<td width="100%" height="1" valign="top">
<table border="0" width="596" height="2" bordercolor="#C0C0C0" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
<tr>
<td width="298" height="1">
<form method='POST' action='orderofind.asp' target="_blank">
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="center">订单查询填入订单号码<input type='text' name='Form_Id' size='8'><input type='submit' value='查询' name='djB1' class='a' style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT-SIZE: 12px; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; BACKGROUND-COLOR: #ffcc44">
</form>
</td>
<td width="298" height="1">
<form method='POST' action='spss.asp' target="_blank">
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
商品查询<input type='text' name='Product_Name' size='10' class='a' style="font-size: 14px"><select name='Product_Class' size='1' tabindex='0' class='a' style="font-size: 14px">
<option value='娱乐用品'>娱乐用品</option>
<option value='古玩书画'>古玩书画</option>
<option value='邮票邮品'>邮票邮品</option>
<option value="电脑软件">电脑软件</option>
</select><input type="image" height="20" cache width="52" src="images/go.gif" align="absMiddle" value="GO" border="0" name="I56"></p>
</form>
</td>
</tr>
</table>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="left"> <a href="index.asp"><br>
首页＞＞</a><%=request("ProductClass_1")%> （<%=spxl%>）<br>
<br>
</p>
<center>
<div align="center">
</div>
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" width="95%" height="33" >
<tr>
<td width="100%" height="70"> <div align="center">
<table border="0" cellspacing="1" width="100%" height="148" bgcolor="#336699" >
<tr>
<%
'假如没有商品时
If rs.eof and rs.bof then
response.write "<td><p align='center'><font color='#ff0000'>还没任何商品资料</font></p></td>"
response.end
End if %>
<%row_count=1
'显示帖子的子程序
Sub list()%>
<%i=0
Do While Not rs.EOF%>
<td width="552" valign="bottom" align="center" bgcolor="#FFFFFF">
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0" align="center">
<img border="0" src="<% =rs("p_pic")%>">
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><a href=javascript:winopen('spjj.asp?ProductNO=<%=rs("Product_No")%>')><b><font color="#000000"><%=rs("Product_name")%></font></b></a></p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">市场价：<strike><%=rs("P_OldPrice")%>元</strike></p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">会员价：
<% =rs("P_NewPrice")%>
元</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><a href=javascript:winopen('spjj.asp?ProductNO=<%=rs("Product_No")%>')>[详细介绍]</a>
<a href="javascript:openbag(<%=rs("Product_Id")%>)"><img border="0" src="images/mybuy.gif"></a></p>
<p> <b>[<font color="#cc0000">商品简介</font>]</b><%=rs("Product_Intro")%></p></td>
<%if row_count mod 2 =0 then%>
</tr>
<tr>
<%end if%>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
row_count=row_count+1
Loop
end Sub
%>
<% call list
If Rs.recordcount > MaxPerPage then
call showpages
end if%>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
</center>
</td>
</tr>
</table>
</div>
<%
'显示翻页的子程序
sub showpages()%>
<div align="center">
<center>
<table border="0" cellPadding="0" cellSpacing="0" width="400" >
<tr><td >
<form method="POST" action="splb.asp">
<INPUT type=hidden value=<%=spxl%> name=spxl>
<table border="0" cellPadding="0" cellSpacing="0" width="583" height="30">
<tr>
<td width="510">
<font color="#000000">
<p align="center">
<%
Response.write "<font color='#000000'>页面-> </font>"
If currentpage > 1 Then
response.write "<a href='splb.asp?&page="+cstr(1)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='splb.asp?page="+Cstr(currentpage-1)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"
Else
Response.write "<font color='#000000'>首页-</font>"
Response.write "<font color='#000000'>前页-</font>"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='splb.asp?page="+Cstr(currentPage+1)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>后页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href='splb.asp?page="+Cstr(Rs.PageCount)+"&spxl="+Cstr(spxl)+"'><font color='#000000'>尾页</font></a> "
Else
Response.write "<font color='#000000'>后页-</font>"
Response.write "<font color='#000000'>尾页</font> "
End if
Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font> "
Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>种商品/页 " & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>种商品</font> "
response.write "</td><td align='right'>"
response.write "<font color='#000000' >到：</font><input type='text' name='page' size=2 maxlength=3 class=smallInput value="&Currentpage&"> "
response.write "<input class=buttonface type='submit' value='Go' name='cndok'></span>"
%>
</font>
</td>
</tr>
</table>
</td></tr>
</table>
</center>
</div>
</form>
<%end sub%>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=764 height="122" bgcolor="#FFFFFF">
<TBODY>
<TR>
<TD class=unnamed1 height=122 width=100%> <DIV align=center>
<hr size="1" color="#000000">
<p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0">版权信息
| 关于我们 | 隐私保护 | 合作事项 | 广告刊登 | 联系方式 | </p>
<p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><br>
www.eshop.net.cn 版权所有 Email:<a href="web@dginfo.com">web@dginfo.com</a></p>
</DIV></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -