|
|
|
|
<%
dim productlist,products,zl,sum, Quatity,zl1
ProductList = Session("ProductList")
if productlist = "" then
zl = 0
sum = "0.00"
else
products = split(session("productlist"), ", ")
zl1= ubound(products)
zl = zl1+1
' response.write products(0)
for i = 0 to zl1
set rs=server.createobject("adodb.recordset")
sql="select * from book where id = " & products(i)
' response.write sql
rs.open sql,conn,1
'trueprice(i)= CInt(rs("trueprice"))
Quatity= CInt(Session(rs("ID")))
sum = sum + CDbl(rs("truePrice")) * Quatity
next
end if
%>
|
|
·第一章 总则
·第二章 业务范围
·第三章 会员
·第四章 组织机构和负..
·第五章 资产管理、使..
·第六章 章程的修改程序
·第七章 终止程序及终..
·第八章 附则 |
|
<%
dim productlist,products,zl,sum, Quatity,zl1
ProductList = Session("ProductList")
if productlist = "" then
zl = 0
sum = "0.00"
else
products = split(session("productlist"), ", ")
zl1= ubound(products)
zl = zl1+1
' response.write products(0)
for i = 0 to zl1
set rs=server.createobject("adodb.recordset")
sql="select * from book where id = " & products(i)
' response.write sql
rs.open sql,conn,1
'trueprice(i)= CInt(rs("trueprice"))
Quatity= CInt(Session(rs("ID")))
sum = sum + CDbl(rs("truePrice")) * Quatity
next
end if
%>
| 会员名录 |
·会长单位：
天津日报
·副会长单位： 太原日报 哈尔滨日报
沈阳日报 南京日报
济南日报 合肥晚报
广州日报 长江日报
洛阳日报 重庆日报
成都日报 西安日报
北京青年报
上海广播电视报 |
|
|
   |
<%
dim productlist,products,zl,sum, Quatity,zl1
ProductList = Session("ProductList")
if productlist = "" then
zl = 0
sum = "0.00"
else
products = split(session("productlist"), ", ")
zl1= ubound(products)
zl = zl1+1
' response.write products(0)
for i = 0 to zl1
set rs=server.createobject("adodb.recordset")
sql="select * from book where id = " & products(i)
' response.write sql
rs.open sql,conn,1
'trueprice(i)= CInt(rs("trueprice"))
Quatity= CInt(Session(rs("ID")))
sum = sum + CDbl(rs("truePrice")) * Quatity
next
end if
%>
|
| |
| 天津日报 |
太原日报 |
哈尔滨日报 |
沈阳日报 |
南京日报 |
| 济南日报 |
合肥晚报 |
广州日报 |
长江日报 |
洛阳日报 |
| 重庆日报 |
成都日报 |
西安日报 |
北京青年报 |
上海广播电视报 |
| 石家庄日报 |
长春日报 |
杭州日报 |
青岛日报 |
海口晚报 |
| 深圳报业 |
湖北日报 |
长沙晚报社 |
宁夏日报 |
|
|
|
本网站由天津日报报业集团每日新传媒发展有限公司制作
版权所有 全国报纸自办发行协会
联系电话：022-28202766
津ICP备07500185号 |
|
<%
dim productlist,products,zl,sum, Quatity,zl1
ProductList = Session("ProductList")
if productlist = "" then
zl = 0
sum = "0.00"
else
products = split(session("productlist"), ", ")
zl1= ubound(products)
zl = zl1+1
' response.write products(0)
for i = 0 to zl1
set rs=server.createobject("adodb.recordset")
sql="select * from book where id = " & products(i)
' response.write sql
rs.open sql,conn,1
'trueprice(i)= CInt(rs("trueprice"))
Quatity= CInt(Session(rs("ID")))
sum = sum + CDbl(rs("truePrice")) * Quatity
next
end if
%>
