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

 1   
 2dim conn as SQLConnection   
 3dim sqlRead as SQLDataReader   
 4dim sqlCmd as SQLCommand   
 5'这样我们通过 func.aspx 文件的使用，对连接代码等等很多通用的程序进行了同意的管理和调用   
 6conn=GetConn()   
 7dim strUserName as string   
 8dim strPass as string   
 9dim strSQL as string   
10strUserName=request.form("txtUserid")   
11strPass=request.form("txtPass")   
12strSQL="select UserPassword from lanmuuser where username='" & replaceSql(strUserName) & "'"   
13  
14sqlCmd=new SQLCommand(strSQL,conn)   
15sqlCmd.ActiveConnection.Open()   
16sqlCmd.Execute(sqlRead)   
17sqlCmd.ActiveConnection.Close()   
18'这个部分是对 添加文章的用户 进行 限制和管理   
19'在演示的版本中，这段代码是 屏蔽起来的，如果我们需要对 用户进行限制   
20'简单的作个lanmuuser 的 table 就可以了   
21if not sqlRead.Read() then   
22response.Write("这个用户不存在")   
23response.end   
24end if   
25if sqlRead(0)<>strPass then   
26'密码不正确   
27response.Write("密码不正确")   
28response.end   
29end if   
30'校验合法   
31dim strClassid as string   
32strClassid=request.form("selClass")   
33dim strTitle as string   
34strTitle=request.form("txtTitle")   
35dim strContent as string   
36strContent=request.form("txtContent")   
37dim strSelFrom as string   
38strSelFrom=request.form("selFrom")   
39strSQL="insert into lanmu(classid,title,content,dtime,userid,IsUse,viewnum,selFrom)values("   
40strSQL=strSQL & "" & strClassId & ",'" & replaceSql(strTitle) & "','" & replaceSql(strContent) & "',"   
41strSQL=strSQL & "getdate(),'" & replaceSql(strUserName) & "','0',0,'" & strSelFrom & "')"   
42  
43sqlCmd=new SQLCommand(strSQL,conn)   
44sqlCmd.ActiveConnection.Open()   
45'response.write(strSQL)   
46sqlCmd.execute   
47response.write("恭喜，恭喜，您的文章已经成功的添加到了 文章数据库，管理员会在下次更新的时候检查你的文章，如果没有什么问题的话，您的文章将会很快出现在我们的栏目中")   
48response.end