user_inc.asp

这是惠州城市超市购物管理系统的源代码

          <td height="22" align="center" ><a href="jifen.asp?actionid=<%=snsn("actionid")%>&action=del">删除此项</a></td>
        </tr>
        <%
	snsn.movenext
	wend%>
      </table></td>
  </tr>
  <%end if
	snsn.close
	set snsn=nothing%>
</table>
<%
end sub

sub sqvip()
if request.cookies("snsn")("username")="" or request.cookies("snsn")("reglx")=2 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=0 class="table-zuoshang">
  <tr class="a1"> 
    <td height=22 > 
     <br> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>
            <%set rs=server.createobject("adodb.recordset")
                              rs.open "select vipsq from shop_config ",conn,1,1
                              response.write rs("vipsq")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table>
    <br></td>
  </tr>
  <tr> 
    <td height=22 bgcolor=#FFFFFF >&nbsp;</td>
  </tr>
  <tr> 
    <td height=28 bgcolor=#FFFFFF align=center > 
      <%set rs=server.createobject("adodb.recordset")
	rs.open "select vipid from shop_sys ",conn,1,1
	vipid=rs("vipid")
	rs.close
   %>
      <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select jifen from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' ",conn,1,1
	ky_jifen=snsn("jifen")
	snsn.close
	set snsn=nothing%><table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr>
          <td>
            <%if Request.Cookies("snsn")("reglx")=2 then%>
            你已经是本站VIP会员 
            <%else%>
            您当前积分为：<%=ky_jifen%> 申请VIP所需要积分为：<%=vipid%> </td>
  </tr>
  <tr>
          <td> 
            <%if ky_jifen<vipid then%>
            您的积分不够，暂时不能申请成为VIP会员 
            <%else%>
            <a href="?action=vipsq">立即申请VIP会员</a> 
            <%end if%>
          </td>
  </tr>
  <tr>
          <td><font color="#FF0000">注意：如时申请了，会从您的积分中减少<%=vipid%>积分</font> 
            <%end if%>
          </td>
  </tr>
</table>

      <%						  set rs=nothing%>
    </td>
  </tr>
</table>
<%
end sub

sub vipsq()
if request.cookies("snsn")("username")="" or request.cookies("snsn")("reglx")=2 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=0 class="table-zuoshang">
  <tr class="a1"> 
    <td > 
      <%set rs=server.createobject("adodb.recordset")
	rs.open "select vipid from shop_sys ",conn,1,1
	vipid=rs("vipid")
	rs.close
   %>
      <%           set rssq=server.createobject("adodb.recordset")
                        rssq.open "select * from [shop_user] where username='"&request.cookies("snsn")("username")&"'",conn,1,3
						if rssq("reglx")=2 then
						else
                        rssq("reglx")=2
						rssq("jifen")= rssq("jifen")-vipid
						end if
                       rssq.update
                        rssq.close
                        set rssq=nothing
                        %>
      <%
	set snsn=server.CreateObject("adodb.recordset")
	snsn.open "select jifen from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' ",conn,1,1
	ky_jifen=snsn("jifen")
	snsn.close
	set snsn=nothing%>
      <table width="95%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>您当前积分为：<%=ky_jifen%></td>
        </tr>
        <tr> 
          <td>您已经成为本站VIP会员了，请不要再申请!</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <%						  set rs=nothing%>
    </td>
  </tr>
</table>
<%
end sub

sub viphd()
if request.cookies("snsn")("username")="" or request.cookies("snsn")("reglx")=1 then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=0 class="table-1">
  <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 shop_config ",conn,1,1
                              response.write rs("viphd")
                              rs.close
                              set rs=nothing
                              %>
          </td>
        </tr>
      </table>
    </td>
</tr>
</table>
<%
end sub

sub shoucang()
if request.cookies("snsn")("username")="" then
response.Redirect "user.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=98% border=0 align=center cellpadding=2 cellspacing=2><tr>
    <td width=7% > </td>
    <td width=93% valign=baseline> 
      <div align=right>您最多只能收藏十种商品</div></td></tr></table>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.shopid,shop_snsn.shopname,shop_snsn.shichangjia,shop_snsn.huiyuanjia,shop_snsn.vipjia,shop_snsn.dazhe from shop_snsn inner join  shop_action on shop_snsn.shopid=shop_action.shopid where shop_action.username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and shop_action.zhuangtai=6",conn,1,1 
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="#CCCCCC" class="table-zuoshang">
  <form action="sctogw.asp" target="newwindow" method=post name=form1 onsubmit="windowOpener('')">
    <tr bgcolor="f1f1f1"  class="a1"> 
      <td width=8% height="22" > <div align=center>选择</div></td>
      <td width=42% height="22" > <div align=center>商品名称</div></td>
      <td width=14% height="22" > <div align=center>市场价</div></td>
      <td width=14% height="22" > <div align=center>会员价</div></td>
      <td width=14% height="22" > <div align=center>VIP 价</div></td>
      <td width=8% height="22" > <div align=center>删除</div></td>
    </tr>
    <%do while not rs.eof%>
    <tr bgcolor="#FFFFFF"> 
      <td height="22" > <div align=center> 
          <input name=shopid type=checkbox checked value="<%=rs("shopid")%>" >
        </div></td>
      <td STYLE='PADDING-LEFT: 5px' height="22" > <div align=left><a href=list.asp?id=<%=rs("shopid")%> target=_blank><%=rs("shopname")%></a></div></td>
      <td height="22" > <div align=center><s><%=rs("shichangjia")%></s>元</div></td>
      <td height="22" > <div align=center><%=rs("huiyuanjia")%>元</div></td>
      <td height="22" > <div align=center><%=rs("vipjia")%>元</div></td>
      <td height="22" > <div align=center><a href=shoucang.asp?action=del&actionid=<%=rs("actionid")%>&ll=1><img src=images/trash.gif width=15 height=17 border=0></a></div></td>
    </tr>
    <%
rs.movenext
loop
rs.close
set rs=nothing
%>
    <tr bgcolor="#FFFFFF"> 
      <td height=25 colspan=6 > <div align="center"> 
          <input name="Submit" type="submit" class="go-wenbenkuang" value="放入购物车" onFocus="this.blur()">
        </div></td>
    </tr>
  </form>
</table>
<%
end sub

sub savepass()
if request.cookies("snsn")("username")="" then
response.Redirect "user.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;
  }
   if(checkspace(document.userpass.quesion.value)) {
	document.userpass.quesion.focus();
    alert("对不起，请填写密码提问！");
	return false;
  }
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_user] where username='"&request.cookies("snsn")("username")&"' ",conn,1,1
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="#CCCCCC" class="table-zuoshang">
  <form name="userpass" method="post" action="saveuserinfo.asp?action=savepass">
    <tr bgcolor="f1f1f1" class="a1"> 
      <td height="23" colspan=2 > 尊敬的用户，我们向您承诺：以下信息将被严格保密，绝对不提供给第三方或用作它用。</td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff > <div align="right">用 
          户 名： </div></td>
      <td height=22 bgcolor=#ffffff ><%=request.cookies("snsn")("username")%></td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff > <div align="right">新 
          密 码： </div></td>
      <td height=22 bgcolor=#ffffff > <input name=userpassword class="wenbenkuang" type=password value="" size="10">
        (不修改请为空) </td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff > <div align="right">密码确认： 
        </div></td>
      <td height=22 bgcolor=#ffffff > <input name=userpassword2 class="wenbenkuang" type=password value="" size="10"> 
      </td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff > <div align="right">密码提问： 
        </div></td>
      <td height=22 bgcolor=#ffffff > <input name=quesion class="wenbenkuang" value="<%=trim(rs("quesion"))%>">
        * </td>
    </tr>
    <tr> 
      <td height=22 bgcolor=#ffffff > <div align="right">密码答案： 
        </div></td>
      <td height=22 bgcolor=#ffffff > <input name=answer class="wenbenkuang" type=text value="" size="18">
        (不修改请为空) </td>
    </tr>