📄 101.asp
字号:
PageSize = 25
Product_Class=request("Product_Class")
Product_Class=FomaID(Product_Class)
Product_Name=request("Product_Name")
Product_Name=FomaID(Product_Name)
set rs=server.createobject("adodb.recordset")
sqltext="select * from Product where P_shop='"&shop_name&"'"
if Product_Class="所有类别" then
sqltext="select * from Product where P_shop='"&shop_name&"' and Product_Name like '%"& request("Product_Name") &"%' "
else
sqltext="select * from Product where P_shop='"&shop_name&"'and Product_Name like '%"& request("Product_Name") &"%' and Classification like '%"&Product_Class&"%'"
end if
rs.open sqltext,conn,1,1
rs.PageSize=PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
'假如没有商品时
If rs.eof and rs.bof then
response.write "<tr bgcolor=#CCCCCC><td height=23 colspan=5 align=center>没有商品资料</td></tr> </table>"
else
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<tr>
<td width="13%" align="center" height="28"><%=rs("Product_Id")%></td>
<td width="38%" align="center" height="28" ><a href="default.asp?sb=product&Product_id=<%=rs("Product_id")%>"><%=rs("Product_Name")%></a></td>
<td width="16%" align="center" height="28"><%=rs("P_NewPrice")%></td>
<td width="18%" align="center" height="28"><span class="main1"><strike><%=rs("P_OldPrice")%>元</strike></span><font color="#cc0000"> </font></td>
<td width="15%" align="center" height="28"><a href="javascript:openbag('../check.asp?cpbm=<%=rs("Product_Id")%>&shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="../images/che1.gif" width="56" align="absMiddle" border="0"></a></td>
</tr>
<%
rs.movenext
count=count+1
loop
%>
</table>
<div align="center"><br>
[<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=1">首 页</a>] [<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=<%=page-1%>">上一页</a>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=<%=page+1%>">下一页</a>] [<a href="default.asp?sb=search&Product_Class=<%=Product_Class%>&Product_Name=<%=Product_Name%>&page=<%=rs.pagecount%>">尾
页</a>]
<%end if%>
<!-- 最新商品结束-------------------------------------------------- -->
</div>
<%end if%>
</td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
</table>
<%end sub%>
<%sub book%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页：客户留言</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><form name="book" method="post" action="?sb=word_save">
<table width="559" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#3366cc" bordercolordark="#FFFFFF" bgcolor="#ECECFF">
<tr>
<td width="51"> <div align="center">标 题</div></td>
<td width="217"> <input type="text" name="bk_top"> </td>
<td width="58"><div align="center">姓 名</div></td>
<td width="199"><input type="text" name="bk_Name"></td>
</tr>
<tr>
<td height="205" valign="top"> <div align="center">内 容</div></td>
<td colspan="3" valign="top"><textarea name="bk_content" cols="65" rows="15"></textarea></td>
</tr>
</table>
<br>
<div align="center">
<input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit2" value="重置">
</div>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%sub word_save
if request.form("bk_top")="" then
Response.Write ("<script>alert('对不起！标题不能为空！');javascript:history.back(1)</script>")
elseif request.form("bk_Name")="" then
Response.Write ("<script>alert('对不起！姓名不能为空！');javascript:history.back(1)</script>")
elseif request.form("bk_content")="" then
Response.Write ("<script>alert('对不起！内容不能为空！');javascript:history.back(1)</script>")
response.end()
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from book"
rs.open sqltext,conn,3,3
rs.addnew
rs("bk_top")=replace(request.form("bk_top"),"<","〈")
rs("bk_Name")=replace(request.form("bk_Name"),"<","〈")
rs("bk_content")=replace(request.form("bk_content"),"<","〈")
rs("shop_name")=shop_name
rs("bk_IP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
response.write"<script>alert('留言提交成功，谢谢你对我们的支持！');window.location.href='default.asp?sb=word'</script>"
end sub
%>
<%sub send%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页：配送信息</td>
</tr>
<tr>
<td><br>
<br>
<table width="516" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#6699FF">
<tr>
<TD width="552" height="25" align="center"><font color="#FFFFFF"><strong>功能限制</strong></font></TD>
</tr>
</table>
<table width="516" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#6699FF">
<tr>
<td width="512" height="196" bgcolor="#F0F5FF"><table border="0" cellpadding="0" cellspacing="0" width="100%" height="73">
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td height="20" colspan="2"><span class=p9orange><strong> 特区商城系统</strong></span></td>
</tr>
<tr>
<td width="33%" height="50" align="center"><a href="http://www.tequshop.com/SoftBuy/index.htm" target="_blank"><img src="../IMAGES/tequshop.jpg" width="149" height="123" border="0"></a></td>
<td width="67%"> 您好，您现在使用的是特区商城的测试版,有一部分功能将受到限制，在您试用后如果觉得满意，欢迎您与我们联系购买正式版使用。<br>
<br>
深圳市玉龙网络技术有限公司 <br>
http://www.dns100.cn <br>
Tel:(0755)61321320 Fax:(0755)82414037 <br>
公司地址:深圳市泥岗路万年青大楼502室 <br>
PostCode:518000 Email:web@dns100.cn</td>
</tr>
<tr>
<td height="63" colspan="2"><TABLE
width="98%" border=0 align="center" cellPadding=0 cellSpacing=0 class=p9gray>
<TBODY>
<TR>
<TD vAlign=left><SPAN
class=p9orange> </SPAN> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right"><strong><font color="#FF9900">进入特区商城系统正式版</font></strong><font color="#FF9900">--</font> <a href="http://www.tequshop.com/SoftBuy/index.htm" target="_blank">简介</a>
| <a href="http://www.tequshop.com/SoftBuy/index1.htm" target="_blank">演示</a>
| <a href="http://www.tequshop.com/SoftBuy/index2.htm" target="_blank">安装</a>
| <a href="http://www.tequshop.com/SoftBuy/index3.htm" target="_blank">购买</a>
| <a href="http://www.tequshop.com/SoftBuy/index4.htm" target="_blank">升级</a>
| <a href="http://www.tequshop.com/SoftBuy/index5.htm" target="_blank">服务</a>
| <a href="http://www.tequshop.com/SoftBuy/index6.htm" target="_blank">成功案例</a>
</div></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5" > </td>
</tr>
</table> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%sub pay%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>首页：支付方式</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from payment where sp_name='"&shop_name&"' "
rs.open sqltext,conn,1,1
if not rs.eof then
if rs("pay1")<>"" then
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="4%">☉</td>
<td width="96%"><strong><font color="#0000FF"><%=rs("pay1")%></font></strong></td>
</tr>
<tr>
<td> </td>
<td><%=Fomathtm(rs("pay1_a"))%></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
end if
if rs("pay2")<>"" then
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="4%">☉</td>
<td width="96%"><strong><font color="#0000FF"><%=rs("pay2")%></font></strong></td>
</tr>
<tr>
<td> </td>
<td><%=Fomathtm(rs("pay2_a"))%></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
end if
if rs("pay3")<>"" then
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="4%">☉</td>
<td width="96%"><strong><font color="#0000FF"><%=rs("pay3")%></font></strong></td>
</tr>
<tr>
<td> </td>
<td><%=Fomathtm(rs("pay3_a"))%></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<%
end if
if rs("pay4")<>"" then
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td width="4%">☉</td>
<td width="96%"><strong><font color="#0000FF"><%=rs("pay4")%></font></strong></td>
</tr>
<tr>
<td> </td>
<td><%=Fomathtm(rs("pay4_b"))%></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<% end if%>
<%
else
response.write "本店还没有设置支付方式"
end if
rs.close:set rs=nothing
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -