论坛 › ◆ 教学软件 ◆ › 关于webvod5不扣点的进一步修正（完全解决方案）！

qq5105217 发表于 2006-3-30 16:59:27

关于webvod5不扣点的进一步修正（完全解决方案）！

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

zhzxmtz 发表于 2006-3-31 09:49:23

谢谢！试试看。

snzyj 发表于 2006-4-22 23:02:30

支持！！！谁测试过发下评论。
[此贴子已经被作者于2006-4-22 23:26:09编辑过]

qq5105217 发表于 2006-5-14 14:11:48

引用第3楼amw123于2006-05-12 19:35发表的“”:
真的很谢谢楼主，辛苦了！
测试后，是有扣点了,但对连续剧只能对第一集进行扣点,第二集以后就不扣了。



   请三楼的注意,在点播节目管理中,你要分别对连续剧的每一集设置价格系数,并不是只有第一集才进行扣点.

...你可能只设置了连续剧的第一集的价格系数,其它的没设置默认情况是0,当然不扣点了....


------------------------------------------------------------------------------------
已经过测试&gt;&gt;

qq5105217 发表于 2006-5-14 14:39:25

老大能不能给点威望哦,好多东东都要威望啊&gt;&gt;&gt;

......正努力中...

假大空 发表于 2006-12-26 12:01:48

新垦上有，不过多谢楼主！

查看完整版本: 关于webvod5不扣点的进一步修正（完全解决方案）！