先说明一下我使用的命名空间的想法，我是把前后台共同的类的命名就空间命名成了 CjjerBase ，只是前台的 CJJERGUESTBOOK，后台的是 BookAdminSpace ，基本达到表意，使用不同的命名空间还是考虑到.net加载信息的优化性，不再赘言。

设计与数据库交互的基类： 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 '获取数据源 '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 '显示关闭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 '这个函数用于检测第一条数据中的第一个值 ' 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 ' ' ' '析构函数 Sub Destruct() try close() catch ' close() finally End try End Sub End Class End namespace
[Ctrl+A 全部选择 然后拷贝]

设计类的时候，一般的说来，能使用现成的最好，重用思想 ，没有的话继承最好，实在没有的话自己设计，一般option explicit ， option strict 都是打开的，利于程序有话，然后编译，设计了此类以后再任何页面请不要再跨此类使用数据库，这是出于OO思想（当换使用数据库的时候，只需要修改conn类即可）。

类设计的时候抛出异常的，对于非产品级别的（调试的，其实是永远的，我认为有2个版本，用户的和程序员的，这里指后者），直接调用

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

这样的形式就可以了。

我在这里还使用了一个验证码的一个基类，就是那个验证码，我也单独设计了一个类：

代码拷贝框
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 '杂点结束 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 的意思就是参数可选。

参数名称都是表意的，您可以理解的。

第三个就是一个UBB代码的，我也是设计了一个类：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)'这个必添，节省资源 with expressdata .add ("(\[b\])(.*?)(\[\/b\])")'0 .add ("(\[i\])(.*?)(\[\/i\])") .add ("(\[code\])(.*)(\[/code\])") .add ("(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])")'3 End with replacedata = new ArrayList(4)'这个必添，节省资源 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 全部选择 然后拷贝]

其中做了一个几个最基本的转换，读者可以调用任何数据格式加载到UBB中的，其中核心的是：

  Dim  objregex as Regex
  Dim expressdata , replacedata  as ArrayList
'这里可以加载你的ubb转换的正则算式
  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

其中传入的参数是引用，这样速度更快，因为一般的说来，需要转化的字符串较长，这点还是重要的。

出处：蓝色理想
责任编辑：moby

上一页 程序之规划篇 下一页 用户控件设计

◎进入论坛网络编程版块参加讨论