shoppingxp为网上商城系统

源代码在线查看: info_denglu.asp

软件大小: 1497 K
上传用户: xiaoyunwang
关键词: shoppingxp 网上商城
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				  
				    
				  
				  
				    
				      
				      
				        
				          
				              
				                用户名:
				                    
				                
				                    
				                
				              
				              
				                密 码:
				                  
				              
				          
				        
				        
				          
				            
				              验证码:
				              
				              
				            
				          
				        
				        
				          
				        
				      
				      
				        				set rs=server.createobject("adodb.recordset")
				rs.open "select jifen,yucun,reglx,vipdate from [Dv_User] where username='"&request.Cookies("shopxp")("username")&"'",conn,1,3
				if rs("vipdate")"" then 
				'看是不是过期VIP
				if rs("vipdate")				rs("reglx")=1
				rs.update
				end if
				end if
				response.Cookies("shopxp")("yucun")=rs("yucun")
				response.Cookies("shopxp")("jifen")=rs("jifen")
				response.Cookies("shopxp")("reglx=")=rs("reglx")
				rs.close
				set rs=nothing
				if request.Cookies("shopxp")("reglx")=2 then
				response.write ""&request.Cookies("shopxp")("username")&" 贵宾您好您目前有"&request.Cookies("shopxp")("jifen")&"积分,预存款"&request.Cookies("shopxp")("yucun")&"元 "
				else
				response.write ""&request.Cookies("shopxp")("username")&" 您好您目前有"&request.Cookies("shopxp")("jifen")&"积分,预存款"&request.Cookies("shopxp")("yucun")&"元 "
				end if
				response.write "进入会员中心"
				response.write "注销退出"
				end if
				%>
				      
				    
				  
				  
				    
				        
				          
				            
				              
				              
				            
				          
				        
				      
				  
				
							

相关资源