<%
session("S[CART_COUNT]")=0
if session("user_xxx_name")<>"" then
username=trim(session("user_xxx_name"))
else
	if request.Cookies("shopxp")("dingdanusername")="" then
		username=now()
		username=replace(trim(username),"-","")
		username=replace(username,":","")
		username=replace(username," ","")
		username=username
		response.Cookies("shopxp")("dingdanusername")=username
	
		set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from [com_user] ",conn,1,3
		rs.addnew
		rs("username")=username
		rs("niming")=1
		rs.update
		rs.close
		set rs=nothing
	
	else
		username=request.Cookies("shopxp")("dingdanusername")
		set rss=server.CreateObject("adodb.recordset")
		rss.open "select * from [com_user] where username='"&username&"'",conn,1,3
			if rss.bof or rss.eof then
				set rs=server.CreateObject("adodb.recordset")
				rs.open "select * from [com_user] ",conn,1,3
				rs.addnew
				rs("username")=username
				rs("niming")=1
				rs.update
				rs.close
				set rs=nothing
			end if
		rss.close
		set rss=nothing
	end if
end if


%>