在留言的錄入界面完成后，自然要準備做留言內容的錄入了。這個其中一個很關鍵的地方就是如何將我們在config.web 的內容讀取出來，我用了下面的幾條語句 Dim Cfg as HashTable Cfg = Context.GetConfig("appsettings") Conn = New SQLConnection(cfg("Conn")) 這樣就得到了我們在config.web 中設定的 連接串,程序如下 <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SQL" %> <script runat="server" language="VB"> Sub Page_Load(Src As Object, E As EventArgs)
Dim conn As SQLConnection Dim Cfg as HashTable Cfg = Context.GetConfig("appsettings") Conn = New SQLConnection(cfg("Conn")) dim strSQL as string dim strNickName as string dim strMail as string dim strTitle as string dim strContent as string dim strIPAddr as string strNickName=replace(request.form("txtName"),"'","''") strEmail=replace(request.form("txtMail"),"'","''") strTitle=replace(request.form("txtTitle"),"'","''") strContent=replace(request.form("txtContent"),"'","''") strIPAddr=Request.ServerVariables ("REMOTE_ADDR") '用戶IP地址 strSQL="insert into msgBoard(nickname,email,ipAddr,msgTime,msgTitle,msgContent)values(" strSQL=strSQL & "'" & strNickName & "','" & strEMail & "','" & strIPAddr & "',getdate(),'" & strTitle & "','" & strContent & "')" response.write(strSQL) Dim Cmd As SQLCommand Cmd = New SQLCommand(strSQL,conn) Cmd.ActiveConnection.Open() Cmd.Execute() Cmd.ActiveConnection.Close() Response.Redirect("showmsg.aspx") end sub </script> 大家其實一看，就知道這段程序其實和asp的程序沒有什么區別嘛，對了，跟著MS 的唯一的好處就是 他們在升級的時候總是對他們的以前的系統進行了很好的 兼容,除了因為引用了 ado.net 而使得數據庫的操作 改變的比較多以外，其他的代碼基本上都沒有什么大的改變，糟糕 說道這里 就說錯了一句話，不是沒有什么大的改動，變化還是很大的，只不過對以前兼容了，我們這樣的簡單的應用，似乎也不會牽扯到什么復雜的改變的：）
