您当时的方位:主页 > 言语编程 > ASP.NET

一个功用完善的专栏办理的程序->这是asp.net的第二个运用(三)

2014-10-28  
http://www.asp888.net 豆腐技能站

方才说了一些题外话,现在咱们来看看咱们怎么将在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
%>

呵呵,是不是很简略?:)别快乐的太早,这个仅仅把数据存入了数据库,下面咱们就会在后面的文章中,看到咱们
是怎么样把数据显示出来的,究竟,这个学识首要的:)