刚才说了一些题外话，现在我们来看看我们如何将在add.aspx中输入的数据保存在sql server中
<!--#include file=\"func.aspx\"-->
<%
dim conn as SQLConnection
dim sqlRead as SQLDataReader
dim sqlCmd as SQLCommand
\\\'这样我们通过 func.aspx 文件的使用，对连接代码等等很多通用的程序进行了同意的治理和调用
conn=GetConn()
dim strUserName as string
dim strPass as string
dim strSQL as string
strUserName=request.form(\"txtUserid\")
strPass=request.form(\"txtPass\")
strSQL=\"select UserPassword from lanmuuser where username=\\\'\" & replaceSql(strUserName) & \"\\\'\"

sqlCmd=new SQLCommand(strSQL,conn)
sqlCmd.ActiveConnection.Open()
sqlCmd.Execute(sqlRead)
sqlCmd.ActiveConnection.Close()
\\\'这个部分是对 添加文章的用户 进行 限制和治理
\\\'在演示的版本中，这段代码是 屏蔽起来的，假如我们需要对 用户进行限制
\\\'简朴的作个lanmuuser 的 table 就可以了
if not sqlRead.Read() then
response.Write(\"这个用户不存在\")
response.end
end if
if sqlRead(0)<>strPass then
\\\'密码不准确
response.Write(\"密码不准确\")
response.end
end if
\\\'校验合法
dim strClassid as string
strClassid=request.form(\"selClass\")
dim strTitle as string
strTitle=request.form(\"txtTitle\")
dim strContent as string
strContent=request.form(\"txtContent\")
dim strSelFrom as string
strSelFrom=request.form(\"selFrom\")
strSQL=\"insert into lanmu(classid,title,content,dtime,userid,IsUse,viewnum,selFrom)values(\"
strSQL=strSQL & \"\" & strClassId & \",\\\'\" & replaceSql(strTitle) & \"\\\',\\\'\" & replaceSql(strContent) & \"\\\',\"
strSQL=strSQL & \"getdate(),\\\'\" & replaceSql(strUserName) & \"\\\',\\\'0\\\',0,\\\'\" & strSelFrom & \"\\\')\"

sqlCmd=new SQLCommand(strSQL,conn)
sqlCmd.ActiveConnection.Open()
\\\'response.write(strSQL)
sqlCmd.execute
response.write(\"恭喜，恭喜，您的文章已经成功的添加到了 文章数据库，治理员会在下次更新的时候检查你的文章，假如没有什么问题的话，您的文章将会很快出现在我们的栏目中\")
response.end
%>

呵呵，是不是很简朴？：）别兴奋的太早，这个只是把数据存入了数据库，下面我们就会在后面的文章中，看到我们
是怎么样把数据显示出来的，究竟，这个才识主要的：）