sub.asp

一个不错的个人商务网站的源码

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><a target=_blank href="&dbpath&"product/ProductDetail.asp?id="&id&">"&p_name&"</a></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 p_nums = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
response.write "</table>"
else
response.write "参数错误"
end if
rs.close
set rs=nothing
end sub

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


if fid=8 then
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic,vip_mmoney from yqj_product where issale=1 "&ord
else
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic,vip_mmoney from yqj_product where issale=1 and InStr(1,flag,"&fid&") "&ord
end if
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
if check<>"false" then
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 cellspacing=4>"
response.write "<tr>"
response.write "<td width=40>序号</td>"
response.write "<td width=100>图&nbsp;&nbsp;&nbsp;&nbsp;片</td>"
response.write "<td width=187>简单介绍</td>"
response.write "<td width=170>售 价</td>"
response.write "<td width=53>支付宝</td>"
response.write "<td width=41>购 买</td>"
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_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")
set vip_mmoney=rs("vip_mmoney")

response.write "<tr>"
response.write "<td width=40 valign=middle align=left>"
response.write ""&((page-1)*nums+i)&"</td>"
response.write "<td width=100>"
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 "<td width=187 valign=top style=""line-height: 150%"">货号："&p_spec&"<br>"
response.write "名称：<a target=_blank href="&dbpath&"product/ProductDetail.asp?id="&id&">"&p_name&"</a><br>"
response.write "市场价：<s>￥"&p_cmoney&"</s><br>"
response.write "网上价：￥"&p_mmoney&"<br>"
response.write "vip网上价：￥"&vip_mmoney&"<br>"
response.write "</td>"
response.write "<td><font color=#FF0000>普通会员：<b>￥</b>"&FormatNumber(p_mmoney,2,-1)&"元<br>vip价格：<b>￥</b>"&vip_mmoney&"</font></td>"
response.write "<td width=53 valign=middle>"
response.write "<p align=center><a href=# onclick=""javascript:window.open('alpay.asp?id="&id&"','newwindow', 'height=500, width=600', 'toolbar=no', 'menubar=no', 'scrollbars=auto', 'resizable=yes', 'location=no', 'status=no')"" title=使用支付宝购买>"
response.write "<img alt=使用支付宝购买 src=images/icon_alipay_small.gif border=0></a></td>"
response.write "<td width=41 align=middle><a href=# onclick=""javascript:window.open('buy.asp?id="&id&"','newwindow', 'height=500, width=600', 'toolbar=no', 'menubar=no', 'scrollbars=auto', 'resizable=yes', 'location=no', 'status=no')""><img src=images/cart.gif border=0 title=其他购买方式></a></td>"
response.write "</tr>"

rs.movenext
i=i+1
wend
call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")
else
response.write "参数错误"
end if
response.write "</table>"
rs.close
set rs=nothing
end sub

sub ad(nums)
dim jj,title,flag
set rs=conn.execute ("select id,title,flag from info_list order by addtime desc")
if rs.eof then
response.write "·暂时没有公告"
else
jj=1
do while not rs.eof and jj<=nums
id=rs(0)
title=rs(1)
flag=rs(2)
if Len(title)>11 then title2=left(title,11)+"…" else title2=title
response.write "·<a href="&dbpath&"ad/pubNewsDetail.asp?id="&id&"><font color="&flag&">"&title2&"</font></a><br>"
rs.movenext
jj=jj+1
loop
rs.close
set rs=nothing
end if
end sub

sub hot()
dim sqlr,rsr,q
sqlr="select id,p_name,titlecolor from yqj_product where issale=1 and InStr(1,flag,4) order by addtime desc"
set rsr=conn.execute (sqlr)
if rsr.eof then
response.write "没有热门商品"
else
q=1
do while not rsr.eof and q<=10
id=rsr(0)
p_name=rsr(1)
titlecolor=rsr(2)
response.write q&".<a href="&dbpath&"product/ProductDetail.asp?id="&id&" target=_blank><font color="&titlecolor&">"&p_name&"</font></a><br>"
rsr.movenext
q=q+1
loop
end if
rsr.close
set rsr=nothing
end sub

sub item2(fid,nums,url,ffid)
if IsNumeric(nums)=false then
check="false"
end if
if ffid=""  or isnull(ffid) then
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic,vip_mmoney from yqj_product where bid="&fid&" and issale=1 "&ord
else
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic,vip_mmoney from yqj_product where sid="&ffid&" and issale=1 "&ord
end if
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
if check<>"false" then
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&bids="&fid&"&sids="&ffid&">列表方式</option>"
response.write "<option value="&url&"?flag=2&bids="&fid&"&sids="&ffid&">图片方式</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&bids="&fid&"&sids="&ffid&">时间从先到后</option>"
response.write "<option value="&url&"?flagp=5&bids="&fid&"&sids="&ffid&">时间从后到先</option>"
response.write "<option value="&url&"?flagp=6&bids="&fid&"&sids="&ffid&">价格从低到高</option>"
response.write "<option value="&url&"?flagp=7&bids="&fid&"&sids="&ffid&">价格从高到低</option>"
response.write "</select></td>"
response.write "</tr>"
response.write "</table>"
response.write "<table border=0 width=563 cellspacing=4>"
response.write "<tr>"
response.write "<td width=40>序号</td>"
response.write "<td width=100>图&nbsp;&nbsp;&nbsp;&nbsp;片</td>"
response.write "<td width=187>简单介绍</td>"
response.write "<td width=170>售 价</td>"
response.write "<td width=53>支付宝</td>"
response.write "<td width=41>购 买</td>"
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_cmoney=rs("p_cmoney")
set p_mmoney=rs("p_mmoney")
set vip_mmoney=rs("vip_mmoney")

response.write "<tr>"
response.write "<td width=40 valign=middle align=left>"
response.write ""&((page-1)*nums+i)&"</td>"
response.write "<td width=100>"
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 "<td width=187 valign=top style=""line-height: 150%"">货号："&p_spec&"<br>"
response.write "名称：<a target=_blank href="&dbpath&"product/ProductDetail.asp?id="&id&">"&p_name&"</a><br>"