asp+版本容易的留言板的制作(二)

在留言的錄入界面完成后，自然要準備做留言內容的錄入了。這個其中一個很關鍵的地方就是
如何將我們在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 而使得數據庫的操作 改變的比較多以外，其他的
代碼基本上都沒有什么大的改變，糟糕 說道這里 就說錯了一句話，不是沒有什么大的改動，變化還是很大的，只不過對
以前兼容了，我們這樣的簡單的應用，似乎也不會牽扯到什么復雜的改變的：）