sub.asp

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

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)&"元</font><br>vip价格：<font color=#FF0000><b>￥</b>"&FormatNumber(vip_mmoney,2,-1)&"元</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 item(fid,nums,p_nums,url,fbid)
if IsNumeric(nums)=false then
check="false"
end if
if IsNumeric(p_nums)=false then
check="false"
end if

if fbid=""  or isnull(fbid) then
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic,vip_mmoney from yqj_product where issale=1 and bid="&fid&" "&ord
else
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic,vip_mmoney from yqj_product where issale=1 and sid="&fbid&" "&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&bids="&fid&"&sids="&fbid&">列表方式</option>"
response.write "<option value="&url&"?flag=2&bids="&fid&"&sids="&fbid&">图片方式</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="&fbid&">时间从先到后</option>"
response.write "<option value="&url&"?flagp=5&bids="&fid&"&sids="&fbid&">时间从后到先</option>"
response.write "<option value="&url&"?flagp=6&bids="&fid&"&sids="&fbid&">价格从低到高</option>"
response.write "<option value="&url&"?flagp=7&bids="&fid&"&sids="&fbid&">价格从高到低</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")

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 rearch_p(keyword)
if keyword="" or isnull(keyword) then
keywords="为空"
keyword="  "
else
keywords=keyword
end if
sql="select id,p_name,p_spec,p_cmoney,p_mmoney,small_pic from yqj_product where issale=1 and p_name like '%"&keyword&"%' order by addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
response.write "<span>对不起，没有要找的数据</span>"
    else
iCount=rs.RecordCount

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;搜索关键字：<font color=#FF0000>"&keywords&"</font></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 "</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")

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 "</table>"

response.write "</td>"
if i mod 4 = 0 then
response.write "</tr>"
end if
rs.movenext
i=i+1
wend
response.write "</table>"
rs.close
set rs=nothing
end if
end sub

sub ulink(ssort,nums)
sql="select * from weblink where flag="&ssort
set rs=conn.execute (sql)
if rs.eof then
response.write "暂无任何信息"
else
i=1
do while not rs.eof
set webname=rs("webname")
set imgpath=rs("imgpath")
set url=rs("url")
if ssort=0 then
response.write "<a href="&url&" target=_blank>"&webname&"</a>&nbsp;|&nbsp;"
else
response.write "<a href="&url&" target=_blank><img src=upimg/"&imgpath&" border=0></a>&nbsp;&nbsp;"
end if
if i mod nums=0 then
response.write "<br>"
end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
end if
end sub

sub topad()
if Sadindexs(0)=2 then
response.write "<object classid=""clsid:D27CDB6E-AE6D-11CF-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"" border=0>"
response.write "<param name=movie value="&Sadindexs(1)&">"
response.write "<param name=quality value=High>"
response.write "<embed src="&Sadindexs(1)&" pluginspage=http://www.macromedia.com/go/getflashplayer type=""application/x-shockwave-flash"" quality=High></object>"
elseif Sadindexs(0)=1 then
if Sadindexs(2)="" then
urllink="#"
else
urllink=Sadindexs(2)
end if
response.write "<a href="&urllink&"><img src="&dbpath&"upimg/"&Sadindexs(1)&" border=0 align=absmiddle></a>"
else
end if
end sub

sub left_class()
set rs1=conn.execute("SELECT id,txt_big_class,isopen FROM [big_class] ORDER BY id")
counter=1
Do until rs1.Eof

if rs1("isopen")=1 then
disp=""
pic=dbpath&"images/minus.gif"
else
disp="none"
pic=dbpath&"images/plus.gif"
end if

response.write "<IMG ID=img_"&counter&" SRC="&pic&" border=0 onClick='javascript: Meny("&counter&");'>"

response.write "<a href='#' class='Meny' onClick='javascript: Meny("&counter&");'>"&rs1("txt_big_class")&"</a><br>"

response.write "<span id='ktg_"&counter&"' style='display:"&disp&";'>"

set rs2=conn.execute("SELECT id,txt_small_class FROM small_class where iid = " & rs1("id") & " ORDER BY id")
Do until rs2.Eof
response.write "<IMG SRC="&dbpath&"images/plus2.gif border=0 align=absmiddle>"
response.write "<a href="&dbpath&"Itemlistsmall.asp?bids="&rs1(0)&"&sids="&rs2(0)&" target=_blank>"
response.write rs2("txt_small_class")
response.write "</a><br>"
counter=counter+1
rs2.Movenext
Loop
Rs2.Close
response.write "</span>"
rs1.Movenext
Loop
Rs1.Close
end sub
%>