<%
function txt2Sig(strSig)
select case trim(strSig)
case "eq"
txt2Sig="="
case "gt"
txt2Sig=">"
case "ge"
txt2Sig=">="
case "lt"
txt2Sig="<"
case "le"
txt2Sig="<="
case "ne"
txt2Sig="<>"
case "$"
txt2Sig="Like"
end select
end function
function getsqlstring(str,cond,svalue)
sqlstr11=""
strno=""
if cond="Like" then
strno="%"
end if
select Case trim(str)
'u_namecn u_address u_address u_regdate v_royalty v_price
case "u_name"
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "' "
case "u_namecn"
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "' "
case "u_address"
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "' "
case "u_regdate"
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "' "
case "v_royalty"
sqlstr11=" and (select sum(v_royalty) from vcp_record where v_cid=userdetail.u_id)"& " " & cond & " "& "'" & strno & trim(svalue) & strno & "' "
case "v_price"
sqlstr11=" and (select sum(v_price) from vcp_record where v_cid=userdetail.u_id)"& " " & cond & " "& "'" & strno & trim(svalue) & strno & "' "
end select
getsqlstring=sqlstr11
end function
sub getVcpInfo(Byval uid,Byref royalty,Byref Tprice)
royalty=0:Tprice=0
set lrs=conn.Execute("select sum(v_royalty) as royalty,sum(v_price) as tprice from vcp_record where v_cid=" & uid)
if not lrs.eof then
if not isNull(lrs("royalty")) then royalty=lrs("royalty")
if not isNull(lrs("tprice")) then Tprice=lrs("tprice")
end if
end sub
conn.open constr
Sql="Select C_AgentType,ModeD from Fuser Where u_id=" & Session("u_sysid") & " and l_ok=True"
Rs.open Sql,conn,1,1
if Rs.eof then url_return "请先申请成为VCP",-1
rs.close
pageNo=requesta("pageNo")
'searchItem condition searchValue
searchItem=requesta("searchItem")
condition=requesta("condition")
searchValue=requesta("searchValue")
otherhrefstr=""
if searchValue<>"" then
cond=txt2Sig(condition)
otherhrefstr="&searchItem="&searchItem&"&condition="&condition&"&searchValue="&searchValue
newsqlstring = getsqlstring(searchItem,cond,searchValue)
end if
Sql="Select N_total as Ntotal,d_End from fuser where L_ok=True and u_id="& session("u_sysid")
Set RsTemp=conn.Execute(Sql)
if isNumeric(RsTemp("Ntotal")) then monTotal=RsTemp("Ntotal")
dateEnd=formatDateTime(RsTemp("d_End"),2)
RsTemp.close
Set RsTemp=nothing
set rstemp=conn.execute("select sum(v_royalty) as overplus from vcp_record where v_start=0 and v_fid=" & session("u_sysid"))
overplus=0
if not isNull(rstemp(0)) then overplus=rstemp(0)
rstemp.close:set rstemp=nothing
'sql="select *,(select sum(v_royalty) from vcp_record where v_start=0 and v_fid=fuser.u_id group by v_fid) as overplus,(select count(*) from userdetail where f_id=fuser.u_id) as countuser from fuser where u_id="& session("u_sysid") &" and L_ok=True "& newsqlstring &" order by ModeD,D_date desc"
'sql="select *,(select cast(sum(v_royalty) as varchar(50))+'|'+cast(sum(v_price) as varchar(50)) from vcp_record where v_cid=userdetail.u_id) as countlist from userdetail where f_id="& session("u_sysid") &" and u_id<>"& session("u_sysid") & newsqlstring & " order by u_regdate desc"
sql="select * from userdetail where f_id="& session("u_sysid") &" and u_id<>"& session("u_sysid") & newsqlstring & " order by u_regdate desc"
rs.open sql,conn,1,1
if not isNumeric(pageNo) or pageNo<1 then pageNo=1
pageSizes=15
Rs.pageSize=pageSizes
pageCounts=Rs.pageCount
sUsers=Rs.RecordCount
if clng(pageNo)>clng(pageCounts) then pageNo=pageCounts
if not Rs.eof then Rs.AbsolutePage=pageNo
forstr1=clng(pageNo)-5
forstr2=clng(pageNo)+5
if forstr1<1 then forstr1=1
if forstr2>pageCounts then forstr2=pageCounts
pagestr=""
for ii=forstr1 to forstr2
if clng(ii)<>clng(pageNo) then
pagestr=pagestr & ""& ii & " "
else
pagestr=pagestr &""& ii &" "
end if
next
if forstr1>1 then lookother1="... "
if forstr1... "
%>
VCP用户管理
尊敬的
<%if ModeD then
Response.write "D"
else
Response.write "C"
end if%>
<%=name%>模式合作伙伴，您好！(修改资料)