文件名称:
四轨直销系统(四四复制)带计算源码无加密
开发工具:
文件大小: 2mb
下载次数: 0
上传时间: 2019-03-04
详细说明：四轨直销系统(四四复制)带计算源码无加密
后台地址：jzzgg.asp
帐号密码：admin
<%
currf="cdefdb/jzz178.mdb"
currf=server.mappath(currf)
backf=thistoday&"计算前"
backf=server.mappath(backf)
backfy="jzz178.cn"
'on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then
err.clear
response.write "[removed]alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();[removed]"
response.end
end if
if objfso.Folderexists(backf) then
else
Set fy=objfso.CreateFolder(backf)
end if
objfso.copyfile currf,backf& "\"& backfy
set HyWeekRs=nothing
set HyWeekRs=server.CreateObject("adodb.recordset")
sql = "SELECT max(ComputeWeek) as MaxComputeWeek FROM HyMoneyLog"
HyWeekRs.Open sql,conn,1,1
if HyWeekRs.RecordCount>0 then
if isnull(HyWeekRs("MaxComputeWeek")) then
MaxComputeWeek=1
else
MaxComputeWeek=HyWeekRs("MaxComputeWeek")+1
end if
else
MaxComputeWeek=1
end if
set HyWeekRs=nothing
set HyExcelRs=nothing
set HyExcelRs=server.CreateObject("adodb.recordset")
sql = "SELECT HyNumber,isfour FROM HyClub where IsApproved=true "
HyExcelRs.Open sql,conn,1,1
j=HyExcelRs.RecordCount
if j>0 then
while (not HyExcelRs.eof)
set ComputeRs=server.CreateObject("adodb.recordset")
sql=""
HyNumber=HyExcelRs("HyNumber")
isfour=HyExcelRs("isfour")
set HyRs888=server.CreateObject("adodb.recordset")
sql = "select HyManageTotal_Left from HyMoneyAccount where HyNumber ='" & HyNumber & "'"
HyRs888.Open sql,conn,1,1
if HyRs888.recordcount=0 then
left_old=0
else
left_old=HyRs888("HyManageTotal_Left")
if left_old="" or isnull(left_old) then
left_old=0
end if
end if
set HyRs888=nothing
LeftCount=0
MiddleCount=0
MiddleLCount=0
RightCount=0
If GetHyParentNumberCount(HyNumber)=4 Then
LeftCount=GetLeftCountLevel(HyNumber,1,1,8)
MiddleCount=GetMiddleCountLevel(HyNumber,1,1,8)
MiddleLCount=GetMiddleLCountLevel(HyNumber,1,1,8)
RightCount=GetRightCountLevel(HyNumber,1,1,8)
End if
'response.write LeftCount&"|"&MiddleCount;&"|"&RightCount;&"
"
TeamManageMoney=0
Temp
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
