user_inc.asp

IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING

  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td height="52"> 
        <table width="100%" height="56" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr><form name="form2" method="post" action="usershopxp/huansuan.asp">
	<td height="26">
  把
      <input name="jifen" type="text" id="jifen" size="10">
积分换算成预存款
<input type="submit" name="Submit" value="换算">
<input name="act" type="hidden" id="act" value="jifen">
    </td></form>
	<form name="form2" method="post" action="usershopxp/huansuan.asp">
	<td>
  把
      <input name="cunkuan" type="text" id="cunkuan" size="10">
  元预存款换算成积分
  <input type="submit" name="Submit" value="换算">
  <input name="act" type="hidden" id="act" value="cunkuan">
            </td></form>
	</tr>
	        <tr>
	          <td height="30" colspan="2"><div align="center"><font color="#FF0000">换算:1元=1积分</font></div></td>
	          <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select sum(zonger) as sum_jine from shopxp_action where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai<=5",conn,1,1
	ky_jifen=shopxp("sum_jine")
	shopxp.close
	set shopxp=nothing%>
          </tr>
	</table>
    </td>
  </tr>
	
  <tr align="center"> 
    <td align=center><strong><font color=#FFFFFF>奖品清单</font></strong></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td> 
      <table width="95%" border="0">
        <tr align="center"> 
          <td height="24">奖品名称</td>
          <td height="24">需要积分</td>
          <td height="24">操作</td>
        </tr>
        <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select * from shopxp_jiangpin where xianshi=1",conn,1,1
	while not shopxp.eof%>
        <tr>
          <td height="24"><div align="center"><a href="xplistjp.asp?id=<%=shopxp("shopxpptid")%>" ><%=shopxp("shopxpptname")%></a></div></td>
          <td align="center" height="24"><%=shopxp("jifen")%></td>
          <td align="center" height="24"><a href="usershopxp/jifen.asp?id=<%=shopxp("shopxpptid")%>&action=add">选择此项</a></td>
        </tr>
        <%
	shopxp.movenext
	wend
	shopxp.close
	set shopxp=nothing%>
      </table>
    </td>
  </tr>
  <%
	set shopxp=server.CreateObject("adodb.recordset")
	shopxp.open "select * from shopxp_action_jp where username='"&request.Cookies("shopxp")("username")&"' and zhuangtai=7",conn,1,1
	if shopxp.recordcount>0 then%>
  <tr align="center"> 
    <td><strong><font color=#FFFFFF>您已选择的奖品清单</font></strong></td>
  </tr>
  <tr bgcolor="#FFFFFF" align="center"> 
    <td> 
      <table width="95%" border="0">
        <tr align="center"> 
          <td height="24">奖品名称</td>
          <td height="24">使用积分</td>
          <td height="24">操作</td>
        </tr>
        <%
	while not shopxp.eof%>
        <tr>
          <td height="24">
            <div align="center">
              <%
	set shopv81=server.CreateObject("adodb.recordset")
	shopv81.open "select * from shopxp_jiangpin where shopxpptid="&shopxp("shopxpptid"),conn,1,1
	if shopv81.recordcount=1 then
	response.write "<a href='xplistjp.asp?id="&shopxp("shopxpptid")&"' >"&shopv81("shopxpptname")&"</a>"
	end if
	shopv81.close
	set shopv81=nothing%>
            </div></td>
          <td align="center" height="24"><%=shopxp("jifen")%></td>
          <td align="center" height="24"><a href="usershopxp/jifen.asp?shopxpacid=<%=shopxp("shopxpacid")%>&action=del">删除此项</a></td>
        </tr>
        <%
	shopxp.movenext
	wend%>
      </table>
    </td>
  </tr>
  <%end if
	shopxp.close
	set shopxp=nothing%>
</table><br>
<%
end sub

sub sqvip()
if request.Cookies("shopxp")("username")="" or request.Cookies("shopxp")("reglx")=2 then
response.Redirect "xpuser.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align=center>
<td><strong><font color=#FFFFFF>申请VIP说明</font></strong></td>
</tr>
<tr> 
<td bgcolor=#FFFFFF>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%                            set rs=server.createobject("adodb.recordset")
                              rs.open "select vipsq from shopxp_setup ",conn,1,1
                              response.write rs("vipsq")
                              rs.close
                              set rs=nothing
                              %>
</td></tr>
</table></td></tr></table><br>

<%
end sub
sub myvip()
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align=center>
<td><strong><font color=#FFFFFF>VIP</font></strong></td>
</tr>
<tr> 
<td bgcolor=#FFFFFF>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
238/1/1/2 
</td></tr>
</table></td></tr></table><br>



<%
end sub

sub viphd()
if request.Cookies("shopxp")("username")="" or request.Cookies("shopxp")("reglx")=0 then
response.Redirect "xpuser.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align=center>
<td><strong><font color=#FFFFFF>VIP活动说明</font></strong></td>
</tr>
<tr> 
<td bgcolor=#FFFFFF>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%set rs=server.createobject("adodb.recordset")
                              rs.open "select viphd from shopxp_setup ",conn,1,1
                              response.write rs("viphd")
                              rs.close
                              set rs=nothing
                              %>
</td></tr>
</table></td></tr></table><br>
<%
end sub

sub shoucang()
if request.Cookies("shopxp")("username")="" then
response.Redirect "xpuser.asp"
response.End
end if
%>
<script language="JavaScript">
<!--
var newWindow = null
function windowOpener(loadpos)
{	
  newWindow = window.open(loadpos,'newwindow','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');
	newWindow.focus();
}

//-->
</script>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr><td align=right><strong><font color=#FFFFFF>您最多只能收藏十种商品</font></strong></td></tr></table>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select shopxp_action.shopxpacid,shopxp_action.shopxpptid,shopxp_product.shopxpptname,shopxp_product.shichangjia,shopxp_product.shopxphyjia,shopxp_product.shopxpvjia,shopxp_product.dazhe from shopxp_product inner join  shopxp_action on shopxp_product.shopxpptid=shopxp_action.shopxpptid where shopxp_action.username='"&request.Cookies("shopxp")("username")&"' and shopxp_action.zhuangtai=6",conn,1,1 
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
  <form action="usershopxp/sctogw.asp" target="newwindow" method=post name=form1 onsubmit="windowOpener('')">
    <tr bgcolor="#FFFFFF" align="center"> 
      <td width=8%>选择</td>
      <td width=42%>商品名称</td>
      <td width=14%>市场价</td>
      <td width=14%>会员价</td>
      <td width=14%>VIP 价</td>
      <td width=8%>删除</td>
    </tr>
    <%do while not rs.eof%>
    <tr bgcolor="#ffffff" align=center> 
      <td><input name=shopxpptid type=checkbox checked value="<%=rs("shopxpptid")%>" ></td>
      <td align=left><a href=productshopxp.asp?id=<%=rs("shopxpptid")%> ><%=rs("shopxpptname")%></a></td>
      <td><s><%=rs("shichangjia")%></s>元</td>
      <td><%=rs("shopxphyjia")%>元</td>
      <td><%=rs("shopxpvjia")%>元</td>
      <td><a href=usershopxp/shoucang.asp?action=del&shopxpacid=<%=rs("shopxpacid")%>&ll=1><img src=img_shopxp/trash.gif width=15 height=17 border=0></a>
      </td>
    </tr>
    <%
rs.movenext
loop
rs.close
set rs=nothing
%>
	<tr bgcolor="#ffffff" align=center>
	<td height=25 colspan=6> 
	<input class="go-wenbenkuang" onFocus="this.blur()" type=submit name="submit" value=" 加入购物车 ">
	</td>
	</tr>
  </form>
</table><br>
<%
end sub

sub savepass()
if request.Cookies("shopxp")("username")="" then
response.Redirect "xpuser.asp"
response.End
end if
%>
<script language=JavaScript>
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}
function passcheck()
{
    if(document.userpass.userpassword.value.length < 6 || document.userpass.userpassword.value.length >20) {
	document.userpass.userpassword.focus();
    alert("密码长度不能不能这空，在6位到20位之间，请重新输入！");
	return false;
  }
   if(document.userpass.userpassword.value!==document.userpass.userpassword2.value) {
	document.userpass.userpassword.focus();
    alert("对不起，两次密码输入不一样！");
	return false;
  }
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [Dv_User] where username='"&request.Cookies("shopxp")("username")&"' ",conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
  <form name="userpass" method="post" action="usershopxp/saveuserinfo.asp?action=savepass">
    <tr> 
      <td colspan=2 align="center"><strong><font color=#FFFFFF>尊敬的用户，我们向您承诺：以下信息将被严格保密，绝对不提供给第三方或用作它用!</font></strong></td>
    </tr>
    <tr> 
      <td width="30%" bgcolor=#ffffff align="right">用 户 名：</td>
      <td width="70%" bgcolor=#ffffff><font color=#FF6600><%=request.Cookies("shopxp")("username")%></font></td>
	</tr>
    <tr> 
      <td bgcolor=#ffffff align="right">新 密 码：</td>
      <td bgcolor=#ffffff><input name="userpassword" class="wenbenkuang"; type="password" value="" size="18">
	  <font color="#FF0000">**</font> 不修改请为空</td>
    </tr>
    <tr> 
      <td bgcolor=#ffffff align="right">密码确认：</td>
      <td bgcolor=#ffffff><input name="userpassword2" class="wenbenkuang" type="password" value="" size="18">
	  <font color="#FF0000">**</font></td>
    </tr>
    <tr align="center"> 
      <td height=25 bgcolor=#ffffff colspan="2">
	  <input class="go-wenbenkuang" onclick="return passcheck();" type="submit" name="submit" value=" 提交保存 ">
	  <input class="go-wenbenkuang" onclick="ClearReset()" type=reset name="Clear" value=" 重新填写 ">