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

先說明一下我使用的命名空間的想法，我是把前后臺共同的類的命名就空間命名成了 CjjerBase ，只是前臺的 CJJERGUESTBOOK，后臺的是 BookAdminSpace ，基本達到表意，使用不同的命名空間還是考慮到.net加載信息的優(yōu)化性，不再贅言。

設(shè)計與數(shù)據(jù)庫交互的基類： conn類

代碼拷貝框
option explicit 'option strict Imports System Imports System.Data Imports System.Data.OleDb Imports System.web 'Imports System.Xml namespace CJJERGUESTBOOK Public Class conn Private connstr as String Private conn as oledbconnection Public Sub new() connstr = System.Configuration.ConfigurationSettings.Appsettings("acconnectionstring").tostring.Trim 'connstr= configurationSettings.appsettings("acconnectionstring") connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & connstr conn = new oledbconnection(connstr) End Sub '獲取數(shù)據(jù)源 'writeonly Public property constr() as String Set connstr = value End Set Get return connstr End Get End property '顯示打開connection對象 Public Sub open() try conn.open() catch objerror as Exception 'HttpContext.Current.Response.Write("<font color =red>Conn類異常:</font>" & objerror.Message & ":" & objerror.source) Exit sub End try End Sub '顯示關(guān)閉connection鏈接 Public Sub close() conn.close() End Sub '返回一個datareader對象，輸入的是sql語句 Public Function GetDataReader (strsql as String ) as oledbdatareader Dim objdatareader as oledbdatareader Dim objcommand as new oledbcommand(strsql,conn) try open() objdatareader = objcommand.executereader() catch close() Exit Function finally End try return objdatareader ' objcommand.executereader(CommandBehavior.CloseConnection) ' close() End Function '返回 OledbCommand 對象 public function OledbCommand(str as string) as OledbCommand Dim objcmd as new OleDbCommand(str,conn) open() return objcmd End function '返回 OledbCommand->ExecuteNonquery Public Function ExecuteNonquery(objcmd as OledbCommand) as Integer Dim xint as integer try open() xint = objcmd.ExecuteNonquery() catch objerror as Exception HttpContext.Current.Response.Write("<font color =red>Conn類異常:</font>" & objerror.Message & ":" & objerror.source) close() finally close() End try Return xint End Function '返回 OledbCommand->ExecuteNonquery Public Function ExecuteNonquery(str as string) as Integer Dim xint as integer = 2 try Dim objcmd as new OleDbCommand(str,conn) open() xint = objcmd.ExecuteNonquery() catch objerror as Exception HttpContext.Current.Response.Write("<font color =red>Conn類異常:</font>" & objerror.Message & ":" & objerror.source & "<hr/>" & str) exit Function close() finally close() End try Return xint End Function '返回一個聚集的值 Public Function ExecuteScalar(str as string) as Integer Dim xint as integer = 2 try Dim objcmd as new OleDbCommand(str,conn) open() xint = ctype(objcmd.ExecuteScalar(),integer) catch close() finally close() End try Return xint End Function '返回dataset對象 Public Function GetDataSet(str as String ,optional refstr as string = "data" ) as DataSet Dim objDataSet as new DataSet() try open() Dim objdataadapter as new oledbdataadapter(str,conn) objdataadapter.fill(objDataSet,refstr) catch HttpContext.Current.Response.Write("SQL 語句 出錯") finally close() End try return objDataSet End Function '這個函數(shù)用于檢測第一條數(shù)據(jù)中的第一個值 ' Function GetFirstInRow( sql as string) as string Dim objdatareader as OleDbDataReader Dim objcommand as new oledbcommand(sql,conn) try open() objdatareader = objcommand.executereader() catch objerror as Exception HttpContext.Current.Response.Write("<font color =red>Conn類異常:</font>" & objerror.Message & ":" & objerror.source) close() HttpContext.Current.Response.End() exit Function finally End try Dim x as string if objdatareader.Read() ' x = objdatareader.GetString(0) 'for option strict x = objdatareader(0) End if objdatareader.Close() close() return x End Function ' ' ' '析構(gòu)函數(shù) Sub Destruct() try close() catch ' close() finally End try End Sub End Class End namespace
[Ctrl+A 全部選擇 然后拷貝]

設(shè)計類的時候，一般的說來，能使用現(xiàn)成的最好，重用思想 ，沒有的話繼承最好，實在沒有的話自己設(shè)計，一般option explicit ， option strict 都是打開的，利于程序有話，然后編譯，設(shè)計了此類以后再任何頁面請不要再跨此類使用數(shù)據(jù)庫，這是出于OO思想（當(dāng)換使用數(shù)據(jù)庫的時候，只需要修改conn類即可）。

類設(shè)計的時候拋出異常的，對于非產(chǎn)品級別的（調(diào)試的，其實是永遠的，我認為有2個版本，用戶的和程序員的，這里指后者），直接調(diào)用

  try
   conn.open()
  catch objerror as Exception
   HttpContext.Current.Response.Write("<font color =red>Conn類異常:</font>" & objerror.Message & ":" & objerror.source)
   Exit sub
  End try

這樣的形式就可以了。

我在這里還使用了一個驗證碼的一個基類，就是那個驗證碼，我也單獨設(shè)計了一個類：

代碼拷貝框
CjjerBase: Img Imports System Imports system.drawing Imports system.drawing.imaging Imports system.drawing.drawing2D imports Microsoft.VisualBasic Imports System.Web namespace CjjerBase Public Class Img public shared Sub CheckImg (optional imgcheckid as string = "imgcheck", _ optional imgwidth as integer = 65,optional imgheight as integer = 25 , _ optional strsize as integer = 4 ,optional fonttype as string = "arial" , _ optional Fontdaxiao as integer =16,optional rgb1 as integer = 187 , _ optional rgb2 as integer = 251,optional rgb3 as integer = 255) dim objbitmap as bitmap Dim objgraphics as graphics objbitmap = new Bitmap(imgwidth,imgheight) objgraphics = graphics.fromimage( objbitmap ) dim str as string = getrandom(strsize) dim objfont as new font(fonttype ,Fontdaxiao) HttpContext.Current.session(imgcheckid) = str Dim redShade As Color = Color.FromArgb( rgb1, rgb2, rgb3) 'first parements is argb objgraphics.clear(redShade) 'Color.Azure '添加雜點開始 dim intcounter as integer dim objrandom as random objrandom = new random for intcounter = 1 to imgwidth * imgheight / 6 objbitmap.setpixel( objrandom.next(imgwidth),objrandom.next(imgheight),color.blue) next '雜點結(jié)束 dim objbrushed as brush = brushes.Blue 'DarkMagenta ,Chocolate,Blue ,red,DarkRed ,Gray,Maroon,Plum,Chocolate objgraphics.drawstring (str,objfont,objbrushed,0,0) objbitmap.save( HttpContext.Current.Response.outputstream,System.Drawing.Imaging.ImageFormat.Jpeg) end sub protected shared function getrandom(optional nsize as integer = 1 ) as string if nsize <1 then nsize = 1 dim objrandom as random dim intcounter as integer dim tempstr as string objrandom = new random for intcounter = 1 to nsize select case objrandom.next(0,4) case 1:tempstr &= chr( objrandom.next(65,90) ) case 2:tempstr &= chr( objrandom.next(97,122) ) case 3:tempstr &= chr(objrandom.next(48,57)) case else: tempstr &= chr( objrandom.next(65,90) ) end select next return tempstr end function End Class End Namespace
[Ctrl+A 全部選擇 然后拷貝]

坦白的說，確實不怎么樣的類，此類只有一個共享方法：

Img::CheckImg (optional imgcheckid as string = "imgcheck", _
  optional imgwidth as integer = 65,optional imgheight as integer = 25 , _
  optional strsize as integer = 4 ,optional fonttype as string = "arial" , _
  optional Fontdaxiao as integer =16,optional rgb1 as integer = 187 , _
  optional rgb2 as integer = 251,optional rgb3 as integer = 255)

optional 的意思就是參數(shù)可選。

參數(shù)名稱都是表意的，您可以理解的。

第三個就是一個UBB代碼的，我也是設(shè)計了一個類：CjjerBase: bbCode:

代碼拷貝框
Imports System Imports System.Text.RegularExpressions Imports System.Collections Imports Microsoft.VisualBasic namespace CjjerBase Public Class bbCode shared public Function GetBbcode(byref str as string ) as string Dim objregex as Regex ' Dim expressdata as string () ' Dim replacedata as string () ' ' expressdata = new string () { "(\[b\])(.*?)(\[\/b\])" ,"(\[i\])(.*?)(\[\/i\])","(\[code\])(.*)(\[/code\])","(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])"} ' replacedata = new string () { "<strong>$2</strong>", "<i>$2</i>" ,"<div class=""code"">$2</div>","<font color=$2>$3</font>"} Dim expressdata , replacedata as ArrayList expressdata = new ArrayList(4)'這個必添，節(jié)省資源 with expressdata .add ("(\[b\])(.*?)(\[\/b\])")'0 .add ("(\[i\])(.*?)(\[\/i\])") .add ("(\[code\])(.*)(\[/code\])") .add ("(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])")'3 End with replacedata = new ArrayList(4)'這個必添，節(jié)省資源 with replacedata .add ("<strong>$2</strong>")'0 .add ("<i>$2</i>") .add ("<div class=""code"">$2</div>") .add ("<font color=$2>$3</font>")'3 End with Dim e_ex as IEnumerator = expressdata.GetEnumerator Dim e_re as IEnumerator = replacedata.GetEnumerator Dim new_str as string = GetHtmlcode( str ) do while e_ex.movenext() and e_re.movenext() objregex = new Regex( e_ex.Current,RegexOptions.IgnoreCase ) new_str = objregex.replace(new_str,e_re.Current ) loop return new_str End Function shared public Function GetHtmlcode (byref str as string) as string Dim new_str as string = str ' new_str = Server.HtmlEncode(str) new_str = new_str.Replace( CHR(60), "&lt;")'左邊的< new_str = new_str.Replace(CHR(62), "&gt;")'右邊的> new_str = new_str.Replace( CHR(10), "<br/>") new_str = new_str.Replace(CHR(32), "&nbsp;") new_str = new_str.Replace(CHR(9), "&nbsp;") new_str = new_str.Replace(CHR(34), "&quot;") new_str = new_str.Replace(CHR(39), "&#39;") return new_str End Function End Class End namespace
[Ctrl+A 全部選擇 然后拷貝]

其中做了一個幾個最基本的轉(zhuǎn)換，讀者可以調(diào)用任何數(shù)據(jù)格式加載到UBB中的，其中核心的是：

  Dim  objregex as Regex
  Dim expressdata , replacedata  as ArrayList
'這里可以加載你的ubb轉(zhuǎn)換的正則算式
  Dim e_ex as IEnumerator = expressdata.GetEnumerator
  Dim e_re as IEnumerator = replacedata.GetEnumerator
  
  Dim new_str as string = GetHtmlcode( str )
  do while e_ex.movenext() and  e_re.movenext()
   objregex = new Regex( e_ex.Current,RegexOptions.IgnoreCase )
   new_str = objregex.replace(new_str,e_re.Current  )
  loop

  return  new_str

注意，這里我一般只使用共享方法：

 shared public Function GetBbcode(byref str as string ) as string

其中傳入的參數(shù)是引用，這樣速度更快，因為一般的說來，需要轉(zhuǎn)化的字符串較長，這點還是重要的。

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

上一頁 程序之規(guī)劃篇 下一頁 用戶控件設(shè)計

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