asp分页程序不错11

岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓諉諳坰竘姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 Function GetErr() Sub ErrClear() Property Get HasErr() '庚岸岸岸岸岸 迵耀啣衄壽腔 岸岸岸岸岸庖 Property Let tplText(strTPLContent) Property Let tplFile(strFile) Property Let tplArray(iRow,iBeginField,inArr) Property Get tplRaw() '庚岸岸岸岸岸 迵暮翹衄壽腔 岸岸岸岸岸庖 Property Set rsConn(oConn) Property Let rsSQL(strSQL) Property Get rsSQL() Property Let rsCount(vCount) Property Get rsCount() Property Let SetRS(inConn,vCount,inSQL) Property Let rsGroup(inArr) Property Let rsFun(strFunctionName) Property Let rsField(aFields) Property Let rsFCase(bool) '庚岸岸岸岸岸 迵煦珜衄壽腔 岸岸岸岸岸庖 Property Get PCount() Property Let PFlag(bool) Property Let PItem(iCount) Property Let PLink(strURL) Property Let PQStr(strParam) Property Let PSize(iNum) Property Let PRows(iNum) '庚岸岸岸岸岸 迵噙怓衄壽腔 岸岸岸岸岸庖 Property Let tplOuter(strTPLContent) Property Let hGen(bool) Property Let hExt(strExtName) Property Let hTag(strTagMark) Property Let hDir(strPath) Property Let hMax(iNum) Property Let hFun(strFunctionName) '庚岸岸岸岸岸 迵怀堤衄壽腔 岸岸岸岸岸庖 Function GetOutput() Function Text() 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓源楊姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩGetErr ☉姓鏡扴ㄩ殿隙堤渣腔砆牉恅趼鏡扴 ☉姓杻俶ㄩ硐黍 ☉姓殿隙ㄩ[趼睫揹]堤渣腔恅趼鏡扴 ☉姓統杅ㄩ拸 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 sErr=obj.GetErr Response.Write sErr '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓源楊姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩHasErr ☉姓鏡扴ㄩ殿隙岆瘁衄堤珋渣昫 ☉姓杻俶ㄩ硐黍 ☉姓殿隙ㄩ[票嫌硉:True|False] ☉姓統杅ㄩ拸 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 '蛁砩!掛濬腔垀衄渣昫陓洘歙籵徹眕狟源宒鳳腕 If obj.HasErr Then '珂瓚剿衄瘁堤渣 Response.Write obj.GetErr '衄渣昫寀怀堤渣昫陓洘 Else Response.Write "傖髡!" '拸渣昫寀傖髡 End If '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓源楊姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩErrClear ☉姓鏡扴ㄩь諾堤渣腔趼睫揹睿梓祩弇 ☉姓杻俶ㄩ徹最 ☉姓殿隙ㄩ拸 ☉姓統杅ㄩ拸 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 obj.ErrClear '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩtplText ☉姓鏡扴ㄩ眕趼睫揹腔怀�賰褊蝗棟髲藥ㄟ� ☉姓杻俶ㄩ硐迡 ☉姓殿隙ㄩ拸 ☉姓統杅ㄩ 牡 strTPLContent 姓姓[趼睫揹]﹝怀�賮闡ㄟ暰硜楈硊�揹 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 '籵都趼睫揹懂埭衾杅擂踱麼遣湔 obj.tplText=myString '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩtplFile ☉姓鏡扴ㄩ眕恅璃腔怀�賰褊蝗棟髲藥ㄟ� ☉姓杻俶ㄩ硐迡 ☉姓殿隙ㄩ拸 ☉姓統杅ㄩ 牡 strFile 姓姓[趼睫揹]﹝怀�賮闡ㄟ槸躁�腔橈勤麼眈勤繚噤 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 obj.tplFile="./TPL/Default/myfile.htm" '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩtplArray ☉姓鏡扴ㄩ眕杅郪腔怀�賰褊蝗棟髲藥ㄟ� ☉姓杻俶ㄩ硐迡 ☉姓殿隙ㄩ拸 ☉姓統杅ㄩ 牡 iRow 姓姓[淕杅]﹝扢离植杅郪腔闡珨俴羲宎黍�＿ㄟ槱欐� 牡 iBeginField 姓姓[淕杅]﹝扢离植杅郪腔闡珨蹈(趼僇)羲宎黍�＿ㄟ槱欐� 牡 inArr 姓姓[媼峎杅郪]﹝婥衄耀啣陓洘腔杅郪ㄛ跡宒峈rs.GetRows殿隙腔杅郪跡宒 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 '植杅擂踱笢黍�＿ㄟ撋騫壁� SQL = "SELECT " & Ztl_head_ & "," & Ztl_row_ & "," & Ztl_foot_ & "," & Ztl_group_ & "," & Ztl_item_ & "," & Ztl_page_ & "," & Ztl_pageitems_ & " FROM " & dbt_TL & " WHERE (" & Ztl_name_ & " = '" & ThisPageName & "')" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open SQL,conn,1,1 '11 for Read '13 for Write sqlcount=sqlcount+1 If rs.EOF And rs.BOF Then Response.Write "黍�÷傢磑ㄟ撜鶼�!!!" Else rs.MoveFirst obj.tplArray(0,0)=rs.GetRows End If rs.Close Set rs = Nothing '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩtplRaw ☉姓鏡扴ㄩ殿隙婥衄耀啣陓洘腔杅郪 ☉姓杻俶ㄩ硐黍 ☉姓殿隙ㄩ[媼峎杅郪]﹝跡宒峈rs.GetRows殿隙腔杅郪跡宒 ☉姓統杅ㄩ拸 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 '翋猁賦磁遣湔濬懂妏蚚 AppCache=obj.tplRaw '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩrsConn ☉姓鏡扴ㄩ扢离杅擂踱蟀諉勤砓 ☉姓杻俶ㄩ硐迡 ☉姓殿隙ㄩ拸 ☉姓統杅ㄩ 牡 oConn 姓姓[勤砓]﹝斛剕岆珨跺眒冪傖髡湖羲腔杅擂踱蟀諉勤砓 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mydb.mdb") Set obj.rsConn=conn '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩrsSQL ☉姓鏡扴ㄩ扢离麼殿隙猁硒俴腔SQL脤戙逄曆 ☉姓杻俶ㄩ褫黍褫迡 ☉姓殿隙ㄩ[趼睫揹]鳳�÷肯棣迮麓QL脤戙逄曆 ☉姓統杅ㄩ 牡 strSQL 姓姓[趼睫揹]﹝扢离猁硒俴腔SQL脤戙逄曆 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 obj.rsSQL="SELECT myField1,myField2 FROM myTable" Response.Write obj.rsSQL '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩrsCount ☉姓鏡扴ㄩ扢离麼殿隙脤戙腔暮翹軞杅 ☉姓杻俶ㄩ褫黍褫迡 ☉姓殿隙ㄩ[淕杅]脤戙腔暮翹軞杅(猁婓GetOutput麼Text源楊眳綴覃蚚符夔衄賦彆) ☉姓統杅ㄩ 牡 vCount 姓姓[趼睫揹/淕杅/Null/Empty]﹝暮翹軞杅腔鳳�◎蔆見畏蝜�峈趼睫揹倰ㄛ饒繫憩岆SQL腔"SELECT COUNT(*) ..."逄曆ㄛ�蝜�峈淕杅ㄛ饒繫憩岆啎數腔暮翹軞杅ㄛ�蝜�峈Null/Emptyㄛ饒繫憩岆雄怓鳳��(郔瘧奀) ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 obj.rsCount=200 '籵徹杅硉懂扢离暮翹跺杅 obj.rsCount="SELECT COUNT(*) FROM myTable" '籵徹SQL懂扢离暮翹跺杅 obj.rsCount=Null '赻雄扢离 obj.rsCount=Empty '赻雄扢离 '殿隙暮翹軞杅腔蚚楊: Response.Write obj.Text '珂硒俴綴符夔鳳�□Ъ樅嗃� Response.Write "暮翹軞杅峈:" & obj.rsCount '弩岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸彼 岩岩岩岩岩岩岩岩岩岩岩岩岩戕姓姓扽俶姓姓怪岩岩岩岩岩岩岩岩岩岩岩岩岩 ↑靡備ㄩSetRS ☉姓鏡扴ㄩ珨棒徹扢离鳳�□Ъ撮�(rs)腔��跺統杅 ☉姓杻俶ㄩ硐迡 ☉姓殿隙ㄩ拸 ☉姓統杅ㄩ 牡 strConn 姓姓[勤砓]﹝杅擂踱蟀諉勤砓 Set conn = Server.CreateObject("ADODB.Connection") 笢腔※conn§ 牡 vCount 姓姓[趼睫揹/淕杅/Null/Empty]﹝暮翹軞杅腔鳳�◎蔆見畏蝜�峈趼睫揹倰ㄛ饒繫憩岆SQL腔"SELECT COUNT(*) ..."逄曆ㄛ�蝜�峈淕杅ㄛ饒繫憩岆啎數腔暮翹軞杅ㄛ�蝜�峈Null/Emptyㄛ饒繫憩岆雄怓鳳��(郔瘧奀) 牡 strSQL 姓姓[趼睫揹]﹝SQL脤戙逄曆 ☉姓尨瞰ㄩ '庚岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸岸庖 '籵徹SQL逄曆懂鳳�□Ъ撓麜� obj.SetRS(conn,"SELECT COUNT(*) FROM myTable")="SELECT myField1,myField2 FROM myTable" '籵徹杅硉懂扢离暮翹跺杅ㄛ�蝜�森杅硉湮衾妗暱跺杅ㄛ饒繫嗣堤懂腔煦珜蔚珆尨暮翹峈諾奀腔耀啣陓洘ㄛ�蝜�岆噙怓汜傖寀頗赻雄礿砦汜傖嗣堤懂腔珜醱ㄛ�蝜�溼恀善嗣堤懂腔珜醱寀褫夔堤珋HTTP404渣昫 obj.SetRS(conn,200)="SELECT myField1,myField2 FROM myTable" '赻雄鳳�□Ъ撓麜�ㄛ妏蚚rs.RecordCount扽俶懂鳳腕(厒僅竭鞣) obj.SetRS(conn,Null)="SELECT myField1,myField2 FROM myTable" obj.SetRS(conn,Empty)="SELECT myField1,myField2 FROM