<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
ICDSearchTXT=trim(Request("ICDSearchTXT"))
|
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
|
page=acc1
|
|
page_size=6
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'SQL查询条件
|
if len(ICDSearchTXT)>0 then
|
sqlWhere=" from ICD10 where ICDState>0 and (icd_code like '%"&ICDSearchTXT&"%' or icd_name like '%"&ICDSearchTXT&"%' or zjm like '%"&ICDSearchTXT&"%')"
|
else
|
sqlWhere=" from ICD10 where ICDState>0 "
|
end if
|
'组成计算总页数SQL
|
total_sql = "select count(id) "&sqlWhere
|
'组成显示结果SQL
|
Result_sql = "select *,row_number() over (order by ID) n "&sqlWhere
|
'附加结果SQL
|
Additional_sql = ""
|
|
'计算总页数
|
'Response.Write total_sql
|
rs.open total_sql,objConn,1,1
|
total_records=rs(0) '总行数
|
total_page=Fix(total_records/page_size) '总页数
|
If (total_records/page_size)-total_page>0 Then total_page=total_page+1
|
rs.close()
|
'避免page小于0或大于总页数
|
|
If CInt(page)>total_page Then
|
page=total_page
|
|
ElseIf CInt(page)<=0 Then
|
page=1
|
End If
|
'计算开始和结束行数
|
pageStart = (page-1)*page_size
|
pageEnd = pageStart+page_size
|
sqlPage = " where sqlData.n > "&pageStart&" and sqlData.n <= "&pageEnd&" "
|
sql = "select *"&Additional_sql&" from ("&Result_sql&") sqlData "&sqlPage&" order by sqlData.n"
|
'Response.Write total_page
|
rs.open Sql,objConn,1,1
|
%>
|
<script language=javascript>
|
var ICDListArray=new Array()
|
<%
|
do while not rs.Eof and i<6
|
ICD_ID = rs("id")
|
ICD_code = rs("icd_code")
|
ICD_Name = rs("icd_name")
|
ICD_zjm = rs("zjm")
|
%>
|
ICDListArray[<%=i%>]=new Array("<%=ICD_ID%>","<%=ICD_code%>","<%=ICD_Name%>","<%=ICD_zjm%>")
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
parent.JS_ICDList(ICDListArray,<%=acc1%>,<%=total_page%>,'<%=ICDSearchTXT%>',<%=total_records%>);
|
</script>
|
|
|
<%Response.End%>
|
