中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx

這里有個killint函數(shù)，是判斷數(shù)據(jù)合法性的，它的原形是：

Private Function killint(i,killstr,killsub)
If Not IsNumeric(i) Then
i=killstr
ElseIf i<=0 Then
i=killsub
End if
killint=Int(Left(i,5))
End Function

該函數(shù)功能很明確，不再繁瑣說。

由于我們要通過積分判斷用戶級別，這里定義了一個私有函數(shù)：

Private Function getlevel()
bpoint=killint(bpoint,0,0)
If bpoint<500 Then
blevel="初級會員"
ElseIf bpoint>=500 And bpoint<=100 Then
blevel="高級會員"
Else
blevel="終極會員"
End If
Getlevel=blevel
End Function

我們要得是回送用戶的信息，必須定義一個public公用函數(shù)，顯示信息：

Public Function showuser()
response.write("<h5>以下顯示<font color=red>"&bname&"</font>的資料:</h5>")
response.write("<h5>性別:<font color=red>"&bsex&"</font></h5>")
response.write("<h5>積分:<font color=red>"&bpoint&"</font></h5>")
getlevel
response.write("<h5>級別:<font color=red>"&blevel&"</font></h5>")
End Function
End class

使用這個類的時候這樣使用：（我在這里寫了一個表單處理的）

Set blueideauser=new blueidea
blueideauser.getname=Trim(request("id"))
blueideauser.getsex=request("sex")
blueideauser.getpoint=request("point")
blueideauser.showuser

是不是想看看效果，那就看看這里：
http://www.5do8.com/net/aspclass/class.asp

控制讀取數(shù)據(jù)庫信息的類：
參考源碼：

運行代碼框
'名稱：ado_5do8 '作用:讀取數(shù)據(jù)庫的各項操作 '來源-耕耘村http://www.5do8.com http://m.95time.cn-5do8 '創(chuàng)作：5do8 '聯(lián)系:5do8@5do8.com '更新：2005年11月13日 '授權(quán)：藍(lán)色理想網(wǎng)站積分超過3000，耕耘村所有注冊用戶 '類的接口:ado_5do8.ConnectString=數(shù)據(jù)庫絕對路徑 'ado_5do8.rs_top 調(diào)用數(shù)目，表的名稱 Class ado_5do8 Private conn,sqlstr,rs,iid,itable,isession 'sqlstr:數(shù)據(jù)庫地址，為絕對路徑，私有 'conn：打開數(shù)據(jù)庫的連接，私有 '------------------------------------------------------------------ rem 消除一些不想要的數(shù)字 Private Function litter_in(r1,r2) If IsNumeric(r1) and IsNumeric(r2) Then Dim dimrr If r1>r2 Then dimrr=r2 Else dimrr=r1 End If Else dimrr=0 End if litter_in=dimrr End Function '----------------------------------------------------------------- Private Function killint(i,killstr,killsub) If Not IsNumeric(i) Then i=killstr ElseIf i<=0 Then i=killsub End if killint=Int(Left(i,5)) End Function '----------------------------------------------------------- private Sub startconn() On Error Resume Next Set conn=server.CreateObject("adodb.connection") strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(sqlstr) conn.open strconn If Err Then err.Clear Set Conn = Nothing mess="發(fā)生錯誤，不能連接數(shù)據(jù)庫" response.write(mess) response.End Else mess="連接數(shù)據(jù)庫conn成功...........<br/>" response.write(mess) End If End Sub '---------------------------------------------------------------- private Sub closeconn() conn.close Set conn=Nothing response.write("<strong style='color:red'>關(guān)閉conn連接</strong>...<hr/>") End sub '----------------------------------------------------------------- Private Sub closers() rs.close Set rs=Nothing response.write("<strong style='color:#085420'>關(guān)閉數(shù)據(jù)庫RS</strong>.......<br/>") End Sub '----------------------------------------------------------------- Property Get havese havese=isession End Property Property Let havese(yoursession) isession=yoursession If yoursession="" Then isession="nodef" End If End Property '----------------------------------------------------------------- Public Function makesession(arraydata) If IsArray(arraydata) then makear=arraydata Else makear=Array(0,0,0,0) End If If isession="" Then isession="nodef" End if session(isession)=makear End Function '----------------------------------------------------------------- private Function getsession() thisget=session(isession) If Not IsArray(thisget) Then thisget=Array(0,0,0,0) End If Getsession=thisget End function '----------------------------------------------------------------- Property Get ConnectString ConnectString = sqlstr End Property Property Let ConnectString(str) sqlstr = str End Property '----------------------------------------------------------------- Property Get getid getid = iid End Property Property Let getid(id) iid = id End Property '----------------------------------------------------------------- Property Get gettable gettable = itable End Property Property Let gettable(table) itable = table End Property '----------------------------------------------------------------- '------------------------------------------------------------------ public Function readarraysession(iStart,ipageno,irowid) rowid=killint(irowid,0,0) start=killint(istart,0,0) pageno=killint(ipageno,5,5) data=getsession iRows = UBound(data, 2) iCols = UBound(data, 1) response.write("<h5>總數(shù)獲得了:") response.write("<b> "&iRows+1&"</b>條信息</h5><hr/><ul style='width:100%;'>") If rowid = 0 then If iRows > (ipageno + iStart) Then iStop = ipageno + iStart - 1 Else iStop = iRows End If For iRowLoop = Start to iStop Response.Write ("<li style='padding:4px 0;'><a href=?k=read&rowid="&irowloop+1&">"&data(1, iRowLoop) & " </a><span style='padding:4px 0 4px 10px;background-color:#ccc; '>較慢，不推薦點擊--><a href=?k=list&id="&data(0,irowloop)&">更新</a></span></li>") Next Response.Write "</ul><div style='top:20px;background-color:#ccc;color:#020;font-weight:bold;bordr-top:2px solid #008;padding:10px 0;color:#b00'>列表(<a href=default.asp>回到典型模式</a>):" if Start > 0 then Response.Write "<A HREF=""?k=read&Start=" & iStart-ipageno &"&pageno=" & ipageno & """>Previous</A>" end if if iStop < iRows then Response.Write " <A HREF=""?k=read&Start=" & iStart+ipageno &"&pageno=" & ipageno & """>Next</A>" end If response.write"</div>" Else rowid=litter_in(rowid-1,iRows) response.write("<div style='width:85%'><h4 style='text-align:center'><a href=?k=read&pageno="&pageno&"&start="&start&">返回列表</a></h4></h2><hr/><h5>"&server.htmlencode(data(1,rowid))&"</h5><p>"&server.htmlencode(data(2,rowid))&"<h5>+-----"&server.htmlencode(data(3,rowid))&"") response.write("<div >") End if End Function '----------------------------------------------------------------- Public Function list_ids() sql3="select * from "&itable&" where id="&iid&" " startconn() Set rs=conn.execute(sql3) If rs.eof And rs.bof Then data=Array(0,0,0,0) Else data=Rs.GetRows() End If closers closeconn response.write(UBound(data)&":") response.write(server.htmlencode(data(2,0))) End function '----------------------------------------------------------------- Public Function rs_top(num,table,whe) startconn() sql="select top "&num&" * from "&table&"" sql2="select count(*) as szd_count from "&table&" "" "&whe&"" Set rs=conn.execute(sql2) szd_count=rs("szd_count") closers Set rs = Conn.Execute(sql) dim data If Rs.Eof Then data="no data" Else data=Rs.GetRows() End if closers closeconn() Call makesession (data) End Function '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ End Class
[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運行]

使用的時候：

運行代碼框
Dim action action=request("k") If action="view" Then Call viewnew ElseIf action="list" Then Call list() ElseIf action="read" Then Call read() Else Call ff() End if Sub ff() %> <form style="border-top:2px solid #008;border-bottom:2px solid #008;margin:auto;background-color:#eee;padding:20px 5px;color:#008;font-weight:bold;"> <label>顯示信息總數(shù):<input name="n" type="text" maxlength="4" size="10" />每頁數(shù)目:<input name="pagesize" type="text" maxlength="4" size="10" value="5"/><input name="arrstart" type="hidden" value="0"></label> <h5 style="border-top:1px solid #000;padding:5px 0"> 操作:<input name="k" type="submit" value="view" /></h5> </form> <%End sub%> <%Sub viewnew() f_num=killint(request("n"),1,1) pagesize=killint(request("pageno"),5,5) arrstart=killint(request("start"),0,0) rowid=killint(request("rowid"),0,0) Set cs=new ado_5do8 cs.ConnectString="data/a.mdb" cs.havese="shi" cs.rs_top f_num,"site_szd","" cs.readarraysession arrstart,pagesize,rowid End sub Sub list() response.write("<h5><a href=default.asp>返回默認(rèn)模式</a></h5>") response.write"下面顯示具體信息:<hr/>" id=request("id") id=killint(id,1,1) Set listid=new ado_5do8 listid.ConnectString="data/a.mdb" listid.getid=id listid.gettable="site_szd" listid.list_ids() End Sub Sub read() response.write"<div style='background-color:#ccc;padding:20px 0;color:080;font-weight:bold;border-bottom:2px solid #008'>頁面分析完畢，要更新請選擇<a href=default.asp>回到典型模式</a>參數(shù)：Start，開始元素；pageno，每頁條數(shù)</div>" pagesize=killint(request("pageno"),5,5) arrstart=killint(request("start"),0,0) rowid=killint(request("rowid"),0,0) Set cs=new ado_5do8 cs.havese="shi" cs.readarraysession arrstart,pagesize,rowid End sub Function killint(i,killstr,killsub) If Not IsNumeric(i) Then i=killstr ElseIf i<=0 Then i=killsub End if killint=Int(Left(i,5)) End Function %>
[Ctrl+A 全部選擇 提示：你可先修改部分代碼，再按運行]

演示在：
http://www.5do8.com/net/aspclass

經(jīng)典討論帖：http://m.95time.cn/bbs/NewsDetail.aspDaysPrune=60&lp=1&id=2284117

說明：

此源碼5do8單獨寫出，本源碼我享有解釋權(quán)，但不保證源碼的安全，任何損失使用者自己承擔(dān)，本源碼僅僅限于在耕耘村(http://www.5do8.com)，藍(lán)色理想(http://m.95time.cn)和 締客論壇(http://www.dw8.cn)站內(nèi)交流。當(dāng)然，不許抄襲。

出處：藍(lán)色理想
責(zé)任編輯：moby

上一頁 [ASP]使用類，實現(xiàn)模塊化 [1] 下一頁

◎進入論壇網(wǎng)絡(luò)編程版塊參加討論