user_inc.asp

购物系统(本版为正式商业版

  </tr><tr>
                        <td height="1" background="images/xian_001.gif"></td>
                      </tr>
  <tr>
          <td><font color="#FF0000">注意：如时申请了，会从您的积分中减少<%=vipid%>积分</font> 
            <%end if%>
          </td>
  </tr><tr>
                        <td height="1" background="images/xian_001.gif"></td>
                      </tr>
</table>

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

sub vipsq()
if session("username")="" or session("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_vipcount ",conn,1,1
	vipid=rs("vipid")
	rs.close
   %>
      <%           set rssq=server.createobject("adodb.recordset")
                        rssq.open "select * from [shop_user] where username='"&nosql(session("username"))&"'",conn,1,3
						if rssq("reglx")=2 then
						else
                        rssq("reglx")=2
						rssq("jifen")= rssq("jifen")-vipid
						rssq("vipdate")=date()+365
						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(session("username"))&"' ",conn,1,1
	ky_jifen=snsn("jifen")
	snsn.close
	set snsn=nothing%>
      <table width="95%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="22">您当前积分为：<%=ky_jifen%></td>
        </tr><tr>
                        <td height="1" background="images/xian_001.gif"></td>
                      </tr>
        <tr> 
          <td height="22">您已经成为本站VIP会员了，请不要再申请!</td>
        </tr><tr>
                        <td height="1" background="images/xian_001.gif"></td>
                      </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <%						  set rs=nothing%>
    </td>
  </tr>
</table>
<%
end sub

sub viphd()
if session("username")="" or session("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 session("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(session("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" method=post name=form1 >
   <tr bgcolor="f1f1f1"  class="a1"> 
      <td width=8% height="22" > <div align=center>选择</div></td>
      <td width=42% height="22" bgcolor="f1f1f1" >&nbsp;商品名称</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>&nbsp;<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=img/trash.gif width=18 height=18 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="放入购物车">
        </div></td>
    </tr>
  </form>
</table>
<%
end sub

sub myshhr()
if session("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=1>
  <tr bgcolor="#FFFFFF"> 
    <td height="25" colspan="7" > 
      <div align=right>我的收货人 <a href="myshhr.asp">添加收货人</a> </div></td>
  </tr>
</table>
<%set rs=server.createobject("adodb.recordset")
		rs.open "select * from shop_myshouhuoren where username='"&checkFFSQLStr(session("username"))&"'order by id asc",conn,1,1
		if rs.recordcount=0 then 
		%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
  <tr> 
    <td align=center>暂无收货人选择，请添加!<a href="myshhr.asp">添加收货人</a></td>
  </tr>
</table>
<%
		else
	  		rs.PageSize =30 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr> 
    <td width="14%" height="22" bgcolor="f1f1f1" > 
      <div align="center">收货人姓名</div></td>
    <td width="8%" bgcolor="f1f1f1" > 
      <div align="center">姓别</div></td>
    <td width="43%" bgcolor="f1f1f1" > 
      <div align="center">地址</div></td>
    <td width="9%" bgcolor="f1f1f1" > 
      <div align="center">邮编</div></td>
    <td width="14%" bgcolor="f1f1f1" > 
      <div align="center">建立时间</div></td>
    <td width="6%" bgcolor="f1f1f1" > 
      <div align="center">修改 </div></td>
    <td width="6%" bgcolor="f1f1f1" > 
      <div align="center">删除</div></td>
  </tr><%
			For i=1 To x
			%>
  <tr bgcolor="#FFFFFF"> 
    <td width="14%" height=23 align=left bgcolor="#FFFFFF">&nbsp;&nbsp;<img src="images/dot_03.gif" width="9" height="9" border="0"> 
      <a href=jszx.asp?id=<%=rs("id")%>><%=rs("shhrname")%></a></td>
    <td width="8%" align=left> 
      <div align="center">
	  <%if rs("shhrsex")=1 then
	  Response.Write ("男")     
	  elseif   rs("shhrsex")=2 then
	  	  Response.Write ("女") 
	 else   
	 	  	  Response.Write ("保密") 
			  end if
	  %></div></td>
    <td width="43%" align=left bgcolor="#FFFFFF"> 
      <div align="center"><%=rs("shhrdz")%></div></td>
    <td width="9%" align=left> 
      <div align="center"><%=rs("shhryb")%></div></td>
    <td width="14%" align=left> 
      <div align="center"><%=year(rs("shhrdate"))&"."&month(rs("shhrdate"))&"."&day(rs("shhrdate"))%></div></td>
    <td width="6%" align=center><a href="myshhr.asp?action=edit&id=<%=rs("id")%>">修改</a></td>
    <td width="6%" align=left> 
      <div align="center"><a href="myshhr.asp?action=del&id=<%=rs("id")%>">删除</a></div></td>
  </tr>
  <%
			rs.movenext
		    next
			%>
</table>
<br>
<%
		'call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
'Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "种商品" &  vbCrLf)
    Response.Write(" 转到 " & "<INPUT TYEP=TEXT class=wenbenkuang NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & " 页"  & vbCrLf & "<input name=go type=image  src=/img/butn_go.gif alt=GO align=absMiddle  border=0>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
'End Sub
%>
<%
end sub

sub syh()
if session("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<%set rs=server.createobject("adodb.recordset")
		rs.open "select * from shop_yh where username='"&checkFFSQLStr(session("username"))&"'order by id asc",conn,1,1
		if rs.recordcount=0 then 
		%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
  <tr>
    <td align=center>暂无商友会，请添加!</td>
  </tr>
</table>
<%
		else
	  		rs.PageSize =30 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td width="45%" height="22" bgcolor="f1f1f1" >
      <div align="center"> 商友会 </div>
      <div align="center"></div>
      <div align="center"></div></td>
    <td width="10%" bgcolor="f1f1f1" >
      <div align="center">回复</div></td>
    <td width="22%" bgcolor="f1f1f1" >
      <div align="center">建立时间</div></td>
    <td width="23%" bgcolor="f1f1f1" >
      <div align="center"></div>
      <div align="center">操作</div></td>
  </tr><<%
			For i=1 To x
			%>
  <tr bgcolor="#FFFFFF">
    <td width="45%" height=23 align=left bgcolor="#FFFFFF">&nbsp;&nbsp;<img src="img/top5.gif" width="12" height="13" border="0"> <strong><a href=list.asp?id=<%=rs("shopid")%>><%=rs("shopname")%></a></strong>
<a href=listpl.asp?id=<%=rs("shopid")%>>查看评论</a>      
<div align="center">    </div>
    <div align="center"></div></td>
    <td width="10%" align=left>
      <div align="center"><%=rs("hot")%></div></td>
    <td width="22%" align=left>
      <div align="center"><%=year(rs("adddate"))&"."&month(rs("adddate"))&"."&day(rs("adddate"))%></div></td>
    <td align=center>
    <div align="center"><a href="delsyh.asp?id=<%=rs("id")%>">退订</a></div></td>
  </tr>
  <%
			rs.movenext
		    next
			%>
</table>
<br>
<%
		'call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
'Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If