<%
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)
case "u_name"
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "'"
case "s_date"
if not isdate(svalue) then url_return "日期格式错误",-1
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "'"
case "s_money"
if not isnumeric(svalue) then url_return "金额格式错误",-1
sqlstr11=" and "& str& " " & cond & " " & "'" & strno & trim(svalue) & strno & "'"
end select
getsqlstring=sqlstr11
end function
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")
searchValue=requesta("searchValue")
searchItem=requesta("searchItem")
condition=requesta("condition")
if searchValue<>"" then
cond=txt2Sig(condition)
otherhrefstr="&searchItem="&searchItem&"&condition="&condition&"&searchValue="&searchValue
newsqlstring = getsqlstring(searchItem,cond,searchValue)
end if
sql="select b.u_name,a.* from (vcp_settleList a inner join userdetail b on a.s_userid=b.u_id) where s_userid="& session("u_sysid") & newsqlstring &" order by s_date desc"
rs.open sql,conn,1,1
if not isNumeric(pageNo) then pageNo=1
if 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%>模式合作伙伴，您好！(修改资料)