本文全部参照《关于webvod5不扣点的一些说明及修改！》一文而来
原理及相关说明请参看原文，这儿只给出改后的结果。
if iGamePrice * iDiscount / 100 > iCurrentPoint then
Response.Write "<script language='JScript'>alert('你的帐户上余额不足，请充值！');window.close();</script>"
Response.End
/////////////////
else
szSQL = "SELECT account FROM CusTomer WHERE CusTomer_ID=" & iUserID
rsData.Open szSQL,con,1,3
if not rsData.EOF then
iAccount = rsData("account")
rsData("account") = iAccount - iGamePrice/iUnitValue * iDiscount / 100
rsData.Update
end if
rsData.Close
///////////////加入内容
end if
end function
function CheckMonth(iUserID, iUnitValue)
szSQL = "SELECT Account,LastCheckDate FROM CusTomer WHERE CusTomer_ID=" & iUserID
rsData.Open szSQL,con,1,3
if not rsData.EOF then
iAccount = rsData("Account")
szCheckDate = rsData("LastCheckDate")
if DateDiff("d", szCheckDate, now) >= 30 or szCheckDate = "" or IsNull(szCheckDate) then
if iAccount < iUnitValue then
Response.Write "<script language='JScript'>alert('你的帐户上余额不足，请充值！');window.close();</script>"
Response.End
else
if IsNull(szCheckDate) then
szCheckDate = now
elseif szCheckDate = "" then
szCheckDate = now
else
szCheckDate = DateAdd("d", 30, szCheckDate)
end if
rsData("account") = iAccount - iUnitValue
rsData("LastCheckDate") = szCheckDate
rsData.Update
end if
end if
end if
rsData.Close
end function
function CheckFlux(iGameID, iCurrentFlux)
szSQL = "SELECT FileLen FROM v_proginfo WHERE Prog_ID=" & iGameID
rsData.Open szSQL,con,1,3
if not rsData.EOF then iGameLen = rsData("FileLen")
rsData.Close
szSQL = "SELECT Price FROM v_pro_price WHERE Prog_ID=" & iGameID
rsData.Open szSQL,con,1,3
if not rsData.EOF then iGamePrice = rsData("Price")
rsData.Close
if iGameLen * iGamePrice > iCurrentFlux * 1024 * 1024 then
/////////////////////////////////////////原文这是if iGameLen * iGamePrice > iCurrentFlux * 1024 * 1024*8 then 不知应不应这样改
Response.Write "<script language='JScript'>alert('你的剩余流量不足，请充值！');window.close();</script>"
Response.End
////////////////////
else
szSQL = "SELECT account FROM CusTomer WHERE CusTomer_ID=" & iUserID
rsData.Open szSQL,con,1,3
if not rsData.EOF then
iAccount = rsData("account")
rsData("account") = iAccount - iGameLen* iGamePrice/1024/1024/iUnitValue * iDiscount / 100
rsData.Update
end if
rsData.Close
///////////////////加入内容
end if
end function
function CheckHour(iGameID, iCurrentHour)
szSQL = "SELECT PlayTime FROM v_proginfo WHERE Prog_ID=" & iGameID
rsData.Open szSQL,con,1,3
if not rsData.EOF then
szPlayTime = rsData("PlayTime")
iTimeHour = Mid(szPlayTime, 1, 2)
iTimeMin = Mid(szPlayTime, 3, 2)
iTimeSec = Mid(szPlayTime, 5, 2)
if rsData("PlayTime") <> "000000" then iGameTime = Clng(iTimeHour * 3600 + iTimeMin * 60 + iTimeSec)
end if
rsData.Close
szSQL = "SELECT Price FROM v_pro_price WHERE Prog_ID=" & iGameID
rsData.Open szSQL,con,1,3
if not rsData.EOF then iGamePrice = rsData("Price")
rsData.Close
if (iGameTime / 3600) * iGamePrice > iCurrentHour then
Response.Write "<script language='JScript'>alert('你的剩余时间不足，请充值！');window.close();</script>"
Response.End
///////
else
szSQL = "SELECT account FROM CusTomer WHERE CusTomer_ID=" & iUserID
rsData.Open szSQL,con,1,3
if not rsData.EOF then
iAccount = rsData("account")
rsData("account") = iAccount - iGameTime* iGamePrice / 3600/iUnitValue * iDiscount / 100
rsData.Update
end if
rsData.Close
/////////加入内容
end if
end function
其中加注解中间的部份是加入的内容
将之插入远古的。。。/Viewgood/WebVOD/WebMedia/oemui/player.asp 文件的相应位置。
[此贴子已经被作者于2006-3-31 1:59:21编辑过]
