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

在留言的錄入界面完成后，自然要準(zhǔn)備做留言內(nèi)容的錄入了。這個(gè)其中一個(gè)很關(guān)鍵的地方就是
如何將我們?cè)赾onfig.web 的內(nèi)容讀取出來(lái)，我用了下面的幾條語(yǔ)句
Dim Cfg as HashTable
Cfg = Context.GetConfig("appsettings")
Conn = New SQLConnection(cfg("Conn"))
這樣就得到了我們?cè)赾onfig.web 中設(shè)定的 連接串,程序如下
<%@ 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>
大家其實(shí)一看，就知道這段程序其實(shí)和asp的程序沒(méi)有什么區(qū)別嘛，對(duì)了，跟著MS 的唯一的好處就是 他們?cè)谏��?jí)的時(shí)候
總是對(duì)他們的以前的系統(tǒng)進(jìn)行了很好的 兼容,除了因?yàn)橐�用�?ado.net 而使得數(shù)據(jù)庫(kù)的操作 改變的比較多以外，其他的
代碼基本上都沒(méi)有什么大的改變，糟糕 說(shuō)道這里 就說(shuō)錯(cuò)了一句話，不是沒(méi)有什么大的改動(dòng)，變化還是很大的，只不過(guò)對(duì)
以前兼容了，我們這樣的簡(jiǎn)單的應(yīng)用，似乎也不會(huì)牽扯到什么復(fù)雜的改變的：）