📄 sub.asp

📁 一个不错的个人商务网站的源码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="co.asp" -->
<%
if r(11)=1 then
response.write r(12)
response.end
end if
'title为页标题，description为页描述，keywords为关键字
sub head(title,description,keywords)
response.write "<html>"

response.write "<head>"
response.write "<title>"&title&"</title>"
response.write "<meta name=description content="&description&">"
response.write "<meta name=keywords content="&keywords&">"
response.write "<meta http-equiv=Content-Language content=zh-cn>"
response.write "<meta http-equiv=Content-Type content=""text/html; charset=gb2312"">"
response.write "<link href="&dbpath&"style/"&r(22)&".css rel=stylesheet type=text/css>"
response.write "</head>"
response.write "<body background="&dbpath&"upimg/"&background&">"
response.write "<div align=center>"
response.write "<table border=0 width=760 cellpadding=2 style=""border-collapse: collapse"">"
response.write "<tr>"
response.write "<td rowspan=2 width=189>"
response.write "<img border=0 src="&dbpath&"upimg/"&r(2)&"></td>"
response.write "<td>"
response.write "<p align=right><a href=# onclick=""javascript:window.open('"&dbpath&"Mycart.asp?id="&id&"','newwindow', 'height=500, width=600', 'toolbar=no', 'menubar=no', 'scrollbars=auto', 'resizable=yes', 'location=no', 'status=no')"">我的购物车</a>&nbsp; "
if session("chk_flag")=true then
response.write "欢迎您，"&session("chk_name")&"，&nbsp;"
if session("level")=0 then
response.write "普通会员&nbsp;"
else
response.write "VIP会员&nbsp;"
end if
response.write "<a href="&dbpath&"usercenter/loginout.asp>退出</a>&nbsp; "
response.write "<a href="&dbpath&"usercenter/usercenter.asp>会员中心</a>&nbsp; "
else
response.write "<a href=# onclick=""javascript:window.open('"&dbpath&"usercenter/mylogin.asp','newwindow', 'height=200, width=400', 'toolbar=no', 'menubar=no', 'scrollbars=auto', 'resizable=yes', 'location=no', 'status=no')"">会员登录</a>&nbsp;&nbsp;"
response.write "<a href="&dbpath&"reg.asp>注册</a>&nbsp; "
end if
response.write "<a href="&dbpath&"PubNewsList.asp>公告</a>&nbsp; "
response.write "<a href="&dbpath&"guestbook.asp>给我留言</a>&nbsp; "
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=right>"
response.write "<table border=0 width=457 cellpadding=0 style=""border-collapse: collapse"" height=25>"
response.write "<tr>"
                        for i=0 to 5
						response.write "<td width=72 class=topmanu_bg align=center>"
						response.write "<a href="&arrurl(i)&">"&arrtitle(i)&"</a></td>"
                        if i<>5 then response.write "<td width=5>　</td>"
                        next

response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<div align=center>"
response.write "<table border=0 width=760 cellpadding=0 style=""border-collapse: collapse"" height=34>"
response.write "<tr>"
response.write "<td class=search_bg_left width=5>"
response.write "</td>"
response.write "<form action="&dbpath&"p_search.asp method=post><td class=maincolor width=375 height=34>"
response.write "按商品名称查询：<input type=text name=proname size=20 maxlength=20>"
response.write "&nbsp;<input type=submit value=商品搜索 name=B1></td></form>"
response.write "<form action="&dbpath&"order_search.asp method=post><td class=maincolor width=375>&nbsp; 订单查询：<input type=text name=orderno size=20 maxlength=40>"
response.write "&nbsp;<input type=submit value=订单查询 name=B2></td></form>"
response.write "<td class=search_bg_right width=5 >"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=760 valign=top colspan=4 align=center height=3></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=760 valign=top colspan=4 align=center>"
call topad()
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"

response.write "<div align=center>"
response.write "<table border=0 width=760 cellpadding=0 style=""border-collapse: collapse"">"
response.write "<tr>"
response.write "<td height=10></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
end sub



'ar1 商品的种类(特价、推荐、最新)
'ar2 每排显示的商品数量
'ar3 显示的商品数量
'ar4 商品排序
'ar5 文字描述
'ar6  更多的连接

sub pro_list(ar1,ar2,ar3,ar4,ar5,ar6)
if IsNumeric(ar1)=False then
check="false"
end if
if IsNumeric(ar2)=False then
check="false"
end if
if IsNumeric(ar3)=False then
check="false"
end if
if check<>"false" then
arr1=cint(trim(ar1))
arr2=cint(trim(ar2))
arr3=cint(trim(ar3))
arr4=replace(trim(ar4),"'","")
arr5=replace(trim(ar5),"'","")
arr6=replace(trim(ar6),"'","")

response.write "<table border=0 width=563 cellpadding=0 style=""border-collapse: collapse"">"
response.write "<tr>"
response.write "<td width=72 class=topmanu_bg height=20>"
response.write "<p align=center>"&arr5&"</td>"
response.write "<td width=490 height=13>"
response.write "<p align=right><a href="&arr6&">更多...</a></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=563 colspan=2 class=right_nav height=3></td>"
response.write "</tr>"
response.write "</table>"

response.write "<table border=0 width=563 id=table2 cellpadding=4 style=""border-collapse: collapse"">"
response.write "<tr>"
sql="select top "&arr3&" id,small_pic,p_name,p_spec,p_mmoney,vip_mmoney from yqj_product where issale=1 and InStr(1,flag,"&arr1&") order by "&arr4&" desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<span>对不起，没有要找的数据</span>"
response.write "<tr>"
else
i=1
while not rs.eof and i<=ar3
set id=rs("id")
set small_pic=rs("small_pic")
set p_name=rs("p_name")
set p_spec=rs("p_spec")
set p_mmoney=rs("p_mmoney")

response.write "<td width=143>"
response.write "<table border=0 width=100% cellpadding=2 style=""border-collapse: collapse"">"
response.write "<tr>"
response.write "<td>"
response.write "<p align=left>"
response.write "<a target=_blank href="&dbpath&"product/ProductDetail.asp?id="&id&">"
response.write "<img height=100 src=upimg/"&trim(small_pic)&" width=100 border=0></a></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><font color=#666666>货号：</font>"&p_spec&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"&p_name&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><font color=#666666>价格：</font><font color=#FF0000>"&FormatNumber(p_mmoney,2,-1)&"</font>元</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><font color=#666666>vip价格：</font><font color=#FF0000>"&FormatNumber(vip_mmoney,2,-1)&"</font>元</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
				
if i mod arr2 = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
end if
response.write "</table>"
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub


sub boot()
response.write "<div align=center>"
response.write "<table border=0 width=760 cellpadding=4 style=""border-collapse: collapse"">"
response.write "<tr>"
response.write "<td><hr noshade size=1 color=#D1D7DC></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<p align=center>"
for p=0 to 4
response.write "<a href="&arrendurl(p)&">"&arrend(p)&"</a>&nbsp; "
next
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<p align=center>Copyright 2006, 版权所有 <a href="&r(1)&" target=_blank>"&r(0)&"</a>"
if r(23)<>"" then
response.write "&nbsp;<a href=http://www.miibeian.gov.cn/ target=_blank>"&r(23)&"</a>"
end if
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</body>"
response.write "</html>"
end sub



sub listpro(fid,nums,p_nums,url)
if IsNumeric(fid)=false then
check="false"
end if
if IsNumeric(nums)=false then
check="false"
end if
if IsNumeric(p_nums)=false then
check="false"
end if

if fid=8 then
sql="select id,p_name,p_spec,p_mmoney,small_pic,vip_mmoney from yqj_product where issale=1 "&ord
else
sql="select id,p_name,p_spec,p_mmoney,small_pic,vip_mmoney from yqj_product where issale=1 and InStr(1,flag,"&fid&") "&ord
end if

if check<>"false" then
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<span>对不起，没有要找的数据</span>"
    else


	rs.PageSize =nums '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
response.write "<table border=0 width=563 cellpadding=0 style=""border-collapse: collapse"">"
response.write "<tr>"
response.write "<td width=72 class=topmanu_bg height=20>"
response.write "<p align=center>商品列表</td>"
response.write "<td width=490 height=13>"
response.write "<p align=left>&nbsp;</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=563 colspan=2 class=right_nav height=3></td>"
response.write "</tr>"
response.write "</table>"
response.write "<table border=0 width=563 cellpadding=4 style=""border-collapse: collapse"" bordercolor=#CCCCCC>"
response.write "<tr>"
response.write "<td bgcolor=#EEEEEE width=123>"
response.write "<p align=right>共有 <font color=#FF6600>"&iCount&"</font> 个商品&nbsp;</td>"
response.write "<td bgcolor=#EEEEEE>"
response.write "<p align=right>"
response.write "<select onchange=""if (this.options[this.selectedIndex].value==3) {void(null)} else {location=this.options[this.selectedIndex].value;}"" onChange=""openCopartner(copartner)"" name=ShowType>"
response.write "<option value=3 selected>显示方式</option>"
response.write "<option value="&url&"?flag=1>列表方式</option>"
response.write "<option value="&url&"?flag=2>图片方式</option>"
response.write "</select>"
response.write "<select onchange=""if (this.options[this.selectedIndex].value==3) {void(null)} else {location=this.options[this.selectedIndex].value;}"" onChange=""openCopartner(copartner)"" name=OrderStyle>"
response.write "<option value=3 selected>排序方式</option>"
response.write "<option value="&url&"?flagp=4>时间从先到后</option>"
response.write "<option value="&url&"?flagp=5>时间从后到先</option>"
response.write "<option value="&url&"?flagp=6>价格从低到高</option>"
response.write "<option value="&url&"?flagp=7>价格从高到低</option>"
response.write "</select></td>"
response.write "</tr>"
response.write "</table>"

response.write "<table border=0 width=563 cellpadding=4 style=""border-collapse: collapse"">"
response.write "<tr>"

i=1
while not rs.eof and i<=rs.pagesize
set id=rs("id")
set small_pic=rs("small_pic")
set p_name=rs("p_name")
set p_spec=rs("p_spec")
set p_mmoney=rs("p_mmoney")
set vip_mmoney=rs("vip_mmoney")
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -