<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
CommissionScenarioSearchTXT=trim(Request("CommissionScenarioSearchTXT"))
|
OA_CompetencyID=trim(Request("OA_CompetencyID"))
|
acc1=trim(Request("page"))
|
t=trim(Request("t"))
|
if acc1="" then acc1=1
|
acc2=1
|
i=0
|
acc3=0
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
if len(CommissionScenarioSearchTXT)>0 then
|
sql="select vId,vtext,vMono,vOrder2 from dictionary where vType=1 and vtitle='CommissionScenario' and (vtext like '%"&CommissionScenarioSearchTXT&"%') order by vOrder,vID"
|
else
|
sql="select vId,vtext,vMono,vOrder2 from dictionary where vType=1 and vtitle='CommissionScenario' order by vOrder"
|
end if
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=30
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
end If
|
%>
|
<script language=javascript>
|
var CommissionScenarioListArray=new Array()
|
<%
|
do while not rs.Eof and i<30
|
ScenarioID = rs("vId")
|
ScenarioName = rs("vtext")
|
ScenarioMono = rs("vMono")
|
ScenarioOrder2 = rs("vOrder2")
|
%>
|
CommissionScenarioListArray[<%=i%>]=new Array("<%=ScenarioID%>","<%=ScenarioName%>","<%=ScenarioMono%>","<%=ScenarioOrder2%>")
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
parent.JS_CommissionScenarioList(CommissionScenarioListArray,<%=acc1%>,<%=acc2%>,'<%=CommissionScenarioSearchTXT%>',<%=acc3%>);
|
</script>
|
|
|
<%Response.End%>
|
