user_inc.asp

21世纪人才www.51zy.net 网站源码

<%sub dindan()
if request.cookies("godbook")("username")="" then
response.Redirect "user.asp"
response.End
end if%> 
<p class="tit"><select name="zhuangtai" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="user.asp?action=dindan&zhuangtai=0" selected>==请选择查讯状态==</option>
<option value="user.asp?action=dindan&zhuangtai=0" >全部订单状态</option>
<option value="user.asp?action=dindan&zhuangtai=1" >未作任何处理</option>
<option value="user.asp?action=dindan&zhuangtai=2" >用户已经划出款</option>
<option value="user.asp?action=dindan&zhuangtai=3" >服务商已经收到款</option>
<option value="user.asp?action=dindan&zhuangtai=4" >服务商已经发货</option>
<option value="user.asp?action=dindan&zhuangtai=5" >用户已经收到货</option>
</select></p>
<table width="590" cellpadding="0" cellspacing="0">
	<tr> 
	<td class="tit">订单号</td>
	<td class="tit">货款</td>
	<td class="tit">费用</td>
	<td class="tit">订单状态</td>
	</tr>
  <%set rs=server.CreateObject("adodb.recordset")
  dim zhuangtai
  zhuangtai=request.QueryString("zhuangtai")
  if zhuangtai=0 or zhuangtai="" then
  select case zhuangtai
  case "0"
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai<6 order by actiondate desc",conn,1,1
  case ""
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai<5 order by actiondate desc",conn,1,1
  end select
  else
  rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
  end if
  do while not rs.eof
   %>
	<tr> 
	<td> 
	<a href="dingdan.asp?dan=<%=trim(rs("dingdan"))%>" target="_blank"><%=trim(rs("dingdan"))%></a>
    </td>
    <td > 
        <%dim godbook,rs2
	'////
	set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<span class=""new"">"&godbook("zonger")&"元</span>"
	godbook.close
	set godbook=nothing%>
	</td>
	<td> 
        <%
	set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select feiyong from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
	response.write "<span class=""new"">"&godbook("feiyong")&"元</span>"
	godbook.close
	set godbook=nothing%>
    </td>
    <td> 
        <%select case rs("zhuangtai")
	case "1"
	response.write "未作任何处理"
	case "2"
	response.write "用户已经划出款"
	case "3"
	response.write "服务商已经收到款"
	case "4"
	response.write "服务商已经发货"
	case "5"
	response.write "用户已经收到货"
	end select%>
	</td>
	</tr>
  <%rs.movenext
  loop
  rs.close
  set rs=nothing%>
</table>
<%end sub
sub myinfo()%>
<h2>我的统计信息</h2>
<table width="590" cellpadding="0" cellspacing="0">
  <%set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select * from [user] where username='"&request.cookies("godbook")("username")&"' ",conn,1,1
	ky_jifen=godbook("jifen")%>
  <tr> 
    <td class="left">用户类型：</td>
    <td class="right"><span class="new"><%if request.cookies("godbook")("reglx")=2 then%>VIP用户<%else%>普通会员<%end if%></span>
		<%if request.cookies("godbook")("reglx")=2 then%>期限：<%=godbook("vipdate")%><%end if%></td>
  </tr>
  <tr>  
    <td class="left">登录次数：</td>
    <td class="right"><%=godbook("logins")%></td>
  </tr>
  <tr> 
    <td class="left">累计积分：</td>
    <td class="right"><%=godbook("jifen")%></td>
  </tr>
  <%set godbook1=server.CreateObject("adodb.recordset")
	godbook1.open "select sum(zonger) as sum_jine from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai<=5",conn,1,1%>
  <tr> 
    <td class="left">总购物金额：</td>
    <td class="right"><%=godbook1("sum_jine")%></td>

  </tr>
  <%godbook1.close
	set godbook1=nothing%>
  <tr> 
    <td class="left">预存款：</td>
    <td class="right"><%=godbook("yucun")%></td>
  </tr>
  <%if request.cookies("godbook")("reglx")=2 then%>
  <tr> 
    <td class="left">VIP期限：</td>
    <td class="right"><%=godbook("vipdate")%></td>
  </tr>
  <%end if%>
  <%set godbook1=server.CreateObject("adodb.recordset")
	godbook1.open "select count(*) as rec_count from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai=6",conn,1,1%>
  <tr> 
    <td class="left">收藏的商品数：</td>
    <td class="right"><%=godbook1("rec_count")%></td>
  </tr>
  <%godbook1.close
	set godbook1=nothing%>
  <%godbook.close
	set godbook=nothing%>
</table>
<%end sub
sub jifen()
if request.cookies("godbook")("username")="" then
response.Redirect "user.asp"
response.End
end if%>
<h2>积分兑换奖品说明</h2>
<p><%set rs=server.createobject("adodb.recordset")
rs.open "select jfhj from shop_config ",conn,1,1
response.write rs("jfhj")
rs.close
set rs=nothing%></p>
<h2>我的积分情况</h2>
<table width="590" cellspacing="0" cellpadding="0">
<tr><%set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select jifen from [user] where username='"&request.cookies("godbook")("username")&"' ",conn,1,1
	ky_jifen=godbook("jifen")
	godbook.close
	set godbook=nothing%>
	<td>我的可用积分：<span class="new"><%=ky_jifen%></span></td>
    <%set godbook=server.CreateObject("adodb.recordset")
	godbook.open "select sum(zonger) as sum_jine from shop_action where username='"&request.cookies("godbook")("username")&"' and zhuangtai<=5",conn,1,1
	ky_jifen=godbook("sum_jine")
	godbook.close
	set godbook=nothing%>
	<td>累计购物金额(不含费用)：<span class="new"><%=ky_jifen%></span> 元</td>
</tr>
</table>
<h2>奖品清单</h2>
<table width="590" cellpadding="0" cellspacing="0">
<tr> 
<td class="tit">奖品名称</td>
<td class="tit">需要积分</td>
<td class="tit">操作</td>
</tr>
<%set godbook=server.CreateObject("adodb.recordset")
godbook.open "select * from shop_jiangpin where xianshi=1",conn,1,1
while not godbook.eof%>
<tr>
<td><a href="listjp.asp?id=<%=godbook("bookid")%>" target=_blank><%=godbook("bookname")%></a></td>
<td><%=godbook("jifen")%></td>
<td ><a href="jifen.asp?id=<%=godbook("bookid")%>&amp;action=add">选择此项</a></td>
</tr>
<%godbook.movenext
wend
godbook.close
set godbook=nothing%>
</table>
<%set godbook=server.CreateObject("adodb.recordset")
godbook.open "select * from shop_action_jp where username='"&request.cookies("godbook")("username")&"' and zhuangtai=7",conn,1,1
if godbook.recordcount>0 then%>
<h2>您已选择的奖品清单</h2>
<table width="590" cellpadding="0" cellspacing="0">
<tr align="center"> 
<td class="tit">奖品名称</td>
<td class="tit">使用积分</td>
<td class="tit">操作</td>
</tr>
<%while not godbook.eof%>
<tr>
<td>
<%set godbook1=server.CreateObject("adodb.recordset")
	godbook1.open "select * from shop_jiangpin where bookid="&godbook("bookid"),conn,1,1
	if godbook1.recordcount=1 then
	response.write "<a href='listjp.asp?id="&godbook("bookid")&"' target=_blank>"&godbook1("bookname")&"</a>"
	end if
	godbook1.close
set godbook1=nothing%>
</td>
<td><%=godbook("jifen")%></td>
<td><a href="jifen.asp?actionid=<%=godbook("actionid")%>&amp;action=del">删除此项</a></td>
</tr>
<%godbook.movenext
wend%>
</table>
<%end if
godbook.close
set godbook=nothing%>
<%end sub
sub sqvip()
if request.cookies("godbook")("username")="" or request.cookies("godbook")("reglx")=2 then
response.Redirect "user.asp"
response.End
end if%>
<h2>申请VIP说明</h2>
<p><%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%></p>
<%end sub
sub viphd()
if request.cookies("godbook")("username")="" or request.cookies("godbook")("reglx")=0 then
response.Redirect "user.asp"
response.End
end if%>
<h2>VIP活动说明</h2>
<p><%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
%></p>
<%
end sub
sub shoucang()
if request.cookies("godbook")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language="JavaScript" type="text/javascript">
<!--
var newWindow = null
function windowOpener(loadpos)
{	
  newWindow = window.open(loadpos,'newwindow','width=800,height=760,toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes');
	newWindow.focus();
}
//-->
</script>
<h2>您最多只能收藏十种商品</h2>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_action.actionid,shop_action.bookid,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia,shop_books.dazhe from shop_books inner join  shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&request.cookies("godbook")("username")&"' and shop_action.zhuangtai=6",conn,1,1 
%>
<form action="sctogw.asp" target="newwindow" method=post name=form1 onSubmit="windowOpener('')">
<table width="590" cellspacing="0" cellpadding="0">
	<tr>
    <td class="tit">选择</td>
    <td class="tit">商品名称</td>
    <td class="tit">市场价</td>
    <td class="tit">会员价</td>
    <td class="tit">VIP 价</td>
    <td class="tit">删除</td>
  </tr>
<%do while not rs.eof%>
  <tr>
    <td><input name="bookid" type="checkbox" checked="checked" value="<%=rs("bookid")%>" /></td>
    <td><a href=list.asp?id=<%=rs("bookid")%> target=_blank><%=rs("bookname")%></a></td>
    <td><%=rs("shichangjia")%> 元</td>
    <td><%=rs("huiyuanjia")%> 元</td>
    <td><%=rs("vipjia")%> 元</td>
    <td><a href="shoucang.asp?action=del&amp;actionid=<%=rs("actionid")%>&ll=1">删除</a></td>
	</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<p><input class="btn_buyNow" onfocus="this.blur()" type="submit" name="submit" value="" /></p>
</form>
<%
end sub