<% '如果没有登录客户端，则创建conn 'response.write application("conn")&"****" 'response.end if isnull(application("conn")) or isempty(application("conn")) then set application("conn")=Server.CreateObject ("Adodb.connection") DSN="driver={Microsoft Access Driver (*.mdb)};Pwd=a1s2d3f4;dbq="&Server.MapPath ("/database/websitedata.mdb") application("conn").open dsn set application("conn2")=Server.CreateObject ("Adodb.connection") DSN="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath ("/database/zs.mdb") application("conn2").open dsn end if%> <% on error resume next session("pathinfoczc")=Request.ServerVariables("PATH_INFO") session("VAR")=request("id") l=len(request("id")) t=left(request("id"),4) iCount = Session("ItemCount") ARYshoppingcart = Session("MyShoppingCart") if request("shopbz")<>1 then If Request.QueryString("id") <> "" Then id=request.querystring("id") sql="update "&t&" set hitnumber=hitnumber+1 where sp_ida='" & id & "'" Application("conn").Execute(SQL) for i=0 to ubound(ARYshoppingcart,2) if ARYshoppingcart(cartProductCode,i)=id then 'Response.Write ARYshoppingcart(cartProductCode,i)&"
" 'Response.Write id&"
" ARYshoppingcart(cartItemQuantity,i)=ARYshoppingcart(cartItemQuantity,i)+1 'Response.Write ARYshoppingcart(cartProductName,i) session("bz")=1 end if next if session("bz")<>1 then If iCount < MaxShoppingCartItems Then iCount = iCount + 1 End if Session("ItemCount") = iCount sql="select csjg,sp_ida,sp_name,unitprice,jf_price from "&t&" where sp_ida='" & id & "' and shbz='1' and saler='北京沃芳林保健品' " Set RS = Application("conn").Execute(SQL) If Not IsEmpty(RS) Then ARYshoppingcart(cartCHECKED,iCount) = "CHECKED" ARYshoppingcart(cartProductCode,iCount) = RS("sp_ida") ARYshoppingcart(cartProductName,iCount) = RS("sp_name") ARYshoppingcart(cartProductDescription,iCount) = RS("lb") ARYshoppingcart(qx,iCount)=rs("lb") ARYshoppingcart(cartItemQuantity,iCount) = 1 ARYshoppingcart(countbz,iCount) = request("tempcount") ARYshoppingcart(csjg,iCount)=rs("csjg") ARYshoppingcart(jf,iCount) = rs("jf_price") 'If RS("OnSale") Then ' ARYshoppingcart(cartUnitPrice,iCount) = csng(RS("UnitPrice")) - (csng(RS("UnitPrice")) * 0.1) 'Else ' ARYshoppingcart(cartUnitPrice,iCount) = RS("UnitPrice") 'End If ARYshoppingcart(cartUnitPrice,iCount) = RS("UnitPrice") 'ARYshoppingcart(cartProductID,iCount) = RS("Companyname") ARYshoppingcart(csjg,iCount)=rs("csjg") Session("MyShoppingCart") = ARYshoppingcart RS.Close set rs=nothing End If End If end if end if Session("MyShoppingCart") = ARYshoppingcart session("bz")=0 SELECT CASE Request("Action") CASE "调整物品" For i = 1 to iCount Quantity = Request("Quantity" & CStr(i)) If IsNumeric(Quantity) Then ARYshoppingcart(cartItemQuantity,i) = abs(CLng(Quantity)) Else ARYshoppingcart(cartItemQuantity,i) = 1 End If Next For i = 1 to iCount If Request("Confirm" & CStr(i)) = "" Then iCount = iCount - 1 For x = 1 to UBound(ARYshoppingcart,1) ARYshoppingcart(x,i) = "" Next n = i while n < UBound(ARYshoppingcart,2) For x = 1 to UBound(ARYshoppingcart,1) ARYshoppingcart(x,n) = ARYshoppingcart(x,n + 1) ARYshoppingcart(x,n + 1) = "" Next n = n + 1 wend End If Next Session("MyShoppingCart") = ARYshoppingcart Session("ItemCount") = iCount Response.Redirect "/order/order.asp" CASE "决定购买" iSubtotal = 0 For i = 1 to iCount Quantity = Request("Quantity" & CStr(i)) If IsNumeric(Quantity) Then ARYshoppingcart(cartItemQuantity,i) = abs(CLng(Quantity)) Else ARYshoppingcart(cartItemQuantity,i) = 1 End If numtem1=FormatCurrency(ARYshoppingcart(cartUnitPrice,i)) numtem2=clng(ARYshoppingcart(cartItemQuantity,i)) num_tem=numtem1*numtem2 iSubTotal = iSubtotal + num_tem Next session("total")=isubtotal For i = 1 to iCount If Request("Confirm" & CStr(i)) = "" Then iCount = iCount - 1 For x = 1 to UBound(ARYshoppingcart,1) ARYshoppingcart(x,i) = "" Next n = i while n < UBound(ARYshoppingcart,2) For x = 1 to UBound(ARYshoppingcart,1) ARYshoppingcart(x,n) = ARYshoppingcart(x,n + 1) ARYshoppingcart(x,n + 1) = "" Next n = n + 1 wend End If Next Session("MyShoppingCart") = ARYshoppingcart Session("ItemCount") = iCount Response.Redirect "/order/getcustomer.asp" END SELECT%> Untitled Document
前言

提起“伟哥”估计没有几个人不知道。据悉，全球每秒钟就开出7粒“伟哥”。
　 “伟哥”是英文Viagra音译。原是由美国辉瑞（Pfizer）制药公司研制生产的一种治疗心绞痛的药物。在临床试验中发现其治疗心绞痛的效果一般，而对治疗阳痿却有特殊效果，这一意外发现，促使厂家干脆以治疗阳痿的药物申报。美国食品和药品管理局（FDA）于1997年3月27日正式批准该药作为治疗阳痿的专用药物。
　　 与其它救死扶伤的药物不同，伟哥是一种“生活方式”药(life style drug)，它涉及的是性这个人类生活中的重要主题。这种风靡全球的蓝色小药丸一度给人们带来无限惊喜，几乎成了“性”福的代名词，因为它专治男人的那个毛病。
最新报道
   餐桌上的伟哥

众里寻它千百度!!! 处方药，适应症范围只限于患有男性勃起功能障碍(ED)的患者。谨慎购买！ 从痿哥到伟哥，挺立的不仅仅只是某一器官，还有男人的尊严与夫妻生活的快乐。据现代婚姻专家推测，离婚男女有三分之一因于性关系的失败与冷漠。伟哥能点燃卧室里的生命之火，让病理性禁欲的人们重新享受到性的快乐，对个人，对家庭，确实功德不小。 男人的性能幻想在相互攀比中不断提升，就像一场田径赛，追逐着更高、更快、更强的境界。历史上的纵欲主义一半是现世快活体验，一半是自大与自信感的强化。 而随着商业文明的日益繁荣，越来越快的生活节奏正在销蚀着男性的性能力。 因此，“伟哥”的出现，犹如一声发令枪，重新启动了男人对性英雄梦想的追逐。 它不只是扶起跌倒的失败者（阳萎患者），而且帮助强者的夺冠竞赛。 因此，在美国，许多服用者并不把它视为药品，而是视为性的福利品、强化剂。 伟哥的社会意义一半是扶弱，一半是助强。

蜂蜜：蜂蜜中含有生殖腺内分泌素。
果仁：在某些经常大吃南瓜子的民族。
海藻：海藻含磺量超过其他动植物。
鱼类：沿海地区的居民常是子孙满堂。
韭菜：又名起阳草、壮阳草、长生韭菜
大葱：葱一直被人们看作是爱情和性欲的化身。
鸡蛋：鸡蛋是人体性功营养最强的载体。
还有麦芽油、辣椒、桑椹、干果、蘑菇、黑麦饼、虾、驴肉等。

美国伟哥订购方式说明:
在线订购：快速注册激点商城会员，即可激点商城为你提供快捷安全的网络购物,一分钟完成购物!

 

订购如下数量：赠送精品催情“性欲伟哥”一盒

4粒装 3盒以上
8粒装 2盒以上
30粒装 1盒

假一赔十，无效退款
 
温馨提示
购 买 方 式

购买伟哥一定要注意，购买北京的站安全放心，目前广东地区出现了假冒伟哥产

品，网站风格一样，但是提供几个价格，伟哥是属于国家管制性处方药，我们单

位是与医药部分直接合作的,产品质量与供货渠道都是可以得到完全的保障。 请

大家尽量选择北京的网站，安全放心上门购买地址：点击查看地址

全国订购电话:010-51663573

 电话订购：全国24小时订购热线:010-51663573
传真订购：010-80754022

货到付款：送货上门,零风险购物,
Email购买：x1998@qmwl.cn
QQ订购:100881998
保密递送:保护隐私：点击查看保密递送承诺

商品名称:澳版伟哥伟哥（4粒/盒)
商品介绍:它不只是扶起跌倒的失败者（阳萎患者），而且帮助强者的夺冠竞赛。因此，在美国，许多服用者并不把它视为药品，而是视为性的福利品、强化剂。

市场价：￥342元 商城价：￥288元

北京地区，广州地区的顾客可以享受3-5小时到货服务

青梅特别提醒:原装进口美国伟哥包装精致，粒粒光滑，效

果显著；假冒商品包装粗燥，极不规范，每粒大小不一，非

常粗燥。请您认准原装正品购买,凡在本商城购买的‘正宗

美国原装伟哥’,保证原厂正品,假一赔十,无效退款!

激点商城提醒广大顾客朋友购伟哥一定要选择正规公司购买,最

好是北京的网站，品质有保障!在我公司订购的顾客,欢迎上门

购买,产品可以拿到当地药监局鉴定,我们承诺:假一赔十!

商品名称:原装美国伟哥（4粒/瓶)
商品介绍:迅速补充性爱电能，满足男人对性英雄梦想的追逐!!?众里寻它千百度!!!?
处方药，适应症范围只限于患有……

市场价：￥512元 商城价：￥178元

商品名称:原装美国伟哥（8粒/瓶)
男人的性能幻想在相互攀比中不断提升，就像一场田径赛，追逐着更高、更快、更强的境界。历史上的纵欲主义一半是现世快活体验，一半是自大与自信感的强化。

市场价：￥694元 商城价：￥350元

商品名称:原装美国伟哥（30粒/瓶)
商品介绍:处方药，适应症范围只限于患有男性勃起功能障碍(ED)的患者。谨慎购买！（整瓶出售，100mg/粒×30粒）美国原装进口……

市场价：￥2500元 商城价：￥880元

 服用“伟哥”的注意事项：   详细内容>>

万艾可的副作用通常轻微而且不会持续很久。有些副作用在服用高剂量万艾可时常发生。 1、常见的副作用是头痛、面部潮红、消化不良。 2、比较不常见的副作用包括暂时性视觉色彩改变(如无法区别蓝色和绿色物体或看这类物品有蓝色色晕)、眼睛对光敏感度增加、视物模糊。 3、极少数情况下，可能会发生勃起达数小时之久。若勃起超过4小时，请立刻找医师就诊。 4、万艾可绝对不能与任何形式的硝酸酯类药物混用。如果伟哥与硝酸類药物混服，可能会使您血压降低，导致生命危险。 5、服用“万艾可”不能引起性欲，其作用只是在出现性欲冲动时，帮助ED患者恢复正常的勃起功能。另外，无论是规律或间断服用硝酸酯类药物的病人，都绝对忌服“万艾可”，否则将会发生致命的低血压。许多治疗冠心病的药物中都含有硝酸酯类物质，所以在您准备服用“万艾可”前，一定要咨询相关医务人员，以确定是否会有这种危险成分。 …

伟哥订购青梅特别提示(非常重要)
　
近日不断有顾客向我们反应,有众多顾客在广东地区买的伟哥产品很贵而且吃后没有任何作用，有些老客户反馈说吃一粒没有任何反应，对此我们对那些出售假冒伪劣产品的奸商深表谴责,同时告诉大家一些方法可以很大程度上识别这些骗子的伎俩,以减少上当受骗:
　 1.首先骗子利用从从皆有的心理,在网上承诺很多服务,比如一些网站向顾客说什么，假一赔十，也可以到医药部门验证，这类网站一定是骗子，因为他们从来都不为自己的言论付任何责任，看别的正规公司对顾客有什么承诺就照扫照搬，而不会去管能不能做到，验证这类公司的办法很简单，大家可以让其提供单位营业执照信息，在工商局查一下就清楚了，同时一定要其出具可报销的税控发票，而且发票还必须是以其网上注明公司的名义开的，见票付款，另外一点也可以参考，一些网页做得粗糙，大量仿造或抄袭我站风格或内容的这类网站十之八九是假货的！ 。2.一些不法网站或个人为了给自己出售伟哥找各种理由,比如:他说自己全国有分部啊,提供上门啊，但是说到上门的时候就找各种理由推脱，其实根本就没有哪个地址，伟哥是属于国家管制性处方药，我们单位是与医药部分直接合作的,产品质量与供货渠道都是可以得到完全的保障请大家尽量选择北京的网站，安全放心。