<%
Dim FunClass
Set FunClass=New Tkl_StringClass
Dim sKey
sKey=Replace(Request("sKey"),"'","")
Dim Work
Work=Request("Work")
Dim Conn
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
%>
<%
If Len(sKey)<500 Then
Call InfoList()
Else
Call ErrorInfo()
End If
Sub InfoList()
Dim Rs,Sql,CurrentPage
If Request("CurrentPage")="" Then
CurrentPage=1
Else
CurrentPage=Request("CurrentPage")
End If
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql=ExeSql()
'response.write sql
'response.end
Rs.PageSize=15
Rs.CacheSize=Rs.PageSize
Rs.Open Sql,Conn,1,1
If Not(Rs.Eof And Rs.Bof) Then
Rs.AbsolutePage=CurrentPage
End If
%>
