請問版主
1執行下列程式碼後，一直出現「型態不符合，OPENNUMBER」
不知要如何修改才可以?
(在五分鐘之週期)
OO:O,LINETHICK0;
HH:H,LINETHICK0;
CC:C,LINETHICK0;
LL:L,LINETHICK0;
OEPNTIME:OPENMINUTES(TIME),LINETHICK0;
OPENNUMBER:=0*c;

<%
useC= FFL.VarData("CC"):
vbOEPNTIME = FFL.VarData("OEPNTIME"): vbOPENNUMBER= FFL.VarData("OPENNUMBER"):
for i = 0 to UBound( useC )
if vbOEPNTIME(i)<=5 and vbOEPNTIME(i)>0 then
OPENNUMBER(i)=1
end if
if vbOEPNTIME(i)<=10 and vbOEPNTIME(i)>5 then
OPENNUMBER(i)=2
end if
if vbOEPNTIME(i)<=15 and vbOEPNTIME(i)>10 then
OPENNUMBER(i)=3
end if
if vbOEPNTIME(i)<=20 and vbOEPNTIME(i)>15 then
OPENNUMBER(i)=4
end if
next
FFL.VarData("OEPNTIME")=vbOEPNTIME: FFL.VarData("OPENNUMBER")=vbOPENNUMBER:
%>
OPENNUMBER_S:OPENNUMBER;

--------------------------------------------------------------------------
2另外如何在vbs ，寫出
if cond then
else if cond then
else if cond then
else if cond then
end if

或者在vbs可以用Select之語法
Select Case Index
Case Index

Case Index

Case Index

End Select

回答問題1

<%
useC= FFL.VarData("CC"):
vbOEPNTIME = FFL.VarData("OEPNTIME"): vbOPENNUMBER= FFL.VarData("OPENNUMBER"):
for i = 0 to UBound( useC )
if vbOEPNTIME(i)<=5 and vbOEPNTIME(i)>0 then
OPENNUMBER(i)=1


問題出在紅色這行
您於 VBS 中未定義 OPENNUMBER 變數
您導入 VBS 後存的變數的是 vbOPENNUMBER 喔
所以紅色這行 OPENNUMBER 要改為 vbOPENNUMBER
後面的 VBS 狀況亦同

回答問題2

原碼:


if 條件1 then

  .........................

elseif 條件2 then

  .........................

end if





select case 條件

case 0

  .........................

case 1

  .........................

end select

謝謝版主!

引用:

---

最初由 cgjj 發表
回答問題1

<%
useC= FFL.VarData("CC"):
vbOEPNTIME = FFL.VarData("OEPNTIME"): vbOPENNUMBER= FFL.VarData("OPENNUMBER"):
for i = 0 to UBound( useC )
if vbOEPNTIME(i)<=5 and vbOEPNTIME(i)>0 then
OPENNUMBER(i)=1


問題出在紅色這行
您於 VBS 中未定義 OPENNUMBER 變數
您導入 VBS 後存的變數的是 vbOPENNUMBER 喔
所以紅色這行 OPENNUMBER 要改為 vbOPENNUMBER
後面的 VBS 狀況亦同

---