ASP课程设计实验报告.doc

1 目 录 一 课设目的 二 设计内容 三 具体要求 四 设计环境 五 课程设计时间安排 六 设计过程 详细设计 1 制作过程流程图展 示 2 数据库设计 3 留言本界面设计 登陆界面表 2 2 2 注册用户信息表 2 2 3 注册用户留言信息表 留言查看信息表 在线人数统计 3 调试过程 七 小结 7 八 参考资料 7 2 一 课设目的一 课设目的 复习 巩固 ASP NET 的基础知识 进一步加深对ASP NET 技术的 理解和掌握 课程设计为学生提供了一个既动手又动脑 独立实践的机会 将课 本上的理论知识和实际有机的结合起来 锻炼学生的分析解决实际 问题的能力 培养学生在项目开发中团队合作精神 创新意识及能力 二 设计内容二 设计内容 此网站为一个综合性网站 首先它可以为大家提供一些重要的咨询信 息 这些信息可以分为多种形式 如文章 图片或者文件 网站为了便于大 家互相交流 沟通 还提供了留言本和论坛 要使用这些功能 必须先注册 为本网站的用户 这样网站既便于管理 又能为大家提供更稳定 更安全的 服务 最后一部分就是网站的管理模块 主要对用户 留言本 论坛 文章等 进行管理 确保网站的安全和数据的正确性 1 用户信息管理 用户注册 用户登录 个人管理 用户注销 2 热点文章管理 显示文章列表 显示文章内容 3 论坛模块 发表 回复帖子 显示帖子列表 显示帖子内容 选作 4 文件下载 显示文件列表 文件浏览和下载 5 管理者 对各种用户信息进行管理 三 具体要求具体要求 对系统进行功能模块分析 控制模块分析正确 符合课题要求 实 现相应功能 可以加以其他功能或修饰 使程序更加完善 合理 系统设计要实用 采用模块化程序设计方法 编程简练 可用 功 能全面 说明书 流程图要清楚 记录设计情况 备查 也为编写设计说明书作好准备 四 设计环境四 设计环境 WindowsXP 操作系统 VS NET2005 SQL2005 开发环境 五 课程设计时间安排五 课程设计时间安排 共 3 周 3 第一周前 3 次上机 分析设计准备阶段 对系统功能进行分析 确定算 法 第一周后 2 次上机和第二周 5 次上机 编程调试阶段 绘制流程图 编 制源程序 上机调试 修改程序 第三周前 3 次上机 上机调试程序 美化设计 第三周后 2 次上机 总结报告和书写说明书阶段 六 设计过程六 设计过程 一 设计流程图展示 一 设计流程图展示 1 用户检测及登录流程 4 用户注册页面 用户名 与密码 连接数据库 数据库查询 用户名存 在 登录并返回首页 添加留 言 信息提示留言成功 若用户名不存在 跳转至注册页面 信息提示留言失 败 信息提示用户已 存在 2 用户类型流程图 访客 管理员普通访客 5 3 管理员流程图 二 二 数据库 数据库的建立的建立 1 创建数据库 afei mdb 及留言用的数据表 message denglu 确定数据表的各个字段名称及数据类型分别为 文本 10 nich 文本 10 ly 备注 time 日期 时间 默认值 Now 2 创建连接数据库的文件 conn asp conn asp 代码如下 三 三 留言本界面设计 留言本界面设计 1 注册页面设计 注册页面由图片 标题 和留言组成 根据访客的不同需求选择不同的界 面 管理员 查看留言内容 查看访客注册信息 删除访客注册信息 查找访客留言内容 删除留言内容 查询用户 6 注册代码为 public partial class login System Web UI Page protected void Page Load object sender EventArgs e protected void TextBox4 TextChanged object sender EventArgs e protected void TextBox2 TextChanged object sender EventArgs e protected void Button2 Click object sender EventArgs e Response Redirect enter aspx protected void Button1 Click object sender EventArgs e string name TextBox2 Text string sex DropDownList1 Text string pwd TextBox1 Text string pwd2 TextBox3 Text string mail TextBox4 Text string str server JKX 067 SQLEXPRESS DataBase Daragon1 Integrated Security SSPI SqlConnection conn new SqlConnection str conn Open string sqlstr insert into denglu Username Userpwd UserSex Useremail values name pwd sex mail 7 SqlCommand comm new SqlCommand sqlstr conn int i Convert ToInt32 comm ExecuteNonQuery conn Close if i 0 Response Redirect message aspx else Response Write window alter 注册失败 2 登录页面设计 访客登录代码 注册成为访客登录时也要验证姓名和密码是否正确 如果正确 则允许进 入 否则提示密码不正确 如果用户名不存在 提示是否需要注册新的用户 代码如下 登录页面 font size 1 color red face 微软雅黑 用户登陆 用户 密码 8 返回首页 用户检测 注册新访客用户信息 using System using System Collections using System ComponentModel using System Data using System Drawing using System Web using System Web SessionState using System Web UI using System Web UI WebControls using System Web UI HtmlControls using System Data SqlClient namespace GradeMis 9 public class Login System Web UI Page protected System Web UI WebControls Button Button1 protected System Web UI WebControls TextBox txtPassword protected System Web UI WebControls TextBox txtUsername private SqlConnection conn new SqlConnection System Configuration ConfigurationSettings AppSettings GradeS ys private void Page Load object sender System EventArgs e region private void userLogin string sql string Empty string user this txtUsername Text string pwd System Web Security FormsAuthentication HashPasswordForStoringInConfigFile t his txtPassword Text MD5 sql string Format select username password group from admin where username 0 and password 1 user pwd SqlDataReader dr SqlCommand cmd new SqlCommand sql conn conn Open dr cmd ExecuteReader if dr Read Session username dr username ToString Session group dr group ToString Response Redirect Main aspx try conn Open dr cmd ExecuteReader if dr Read Session username dr username ToString Session group dr group ToString Response Redirect Main aspx 10 else Response Write alert 用户名或者密码错误 请重新 输入 catch Exception ex Response Write ex finally conn Close endregion region Web 窗体设计器生成的代码 override protected void OnInit EventArgs e InitializeComponent base OnInit e private void InitializeComponent this Button1 Click new System EventHandler this Button1 Click this Load new System EventHandler this Page Load endregion private void Button1 Click object sender System EventArgs e userLogin 11 在该功能模块中 会要求访客注册自己的基本信息 如姓名 密码 性别 手机号码 邮件等基本信息 代码如下 function checkeEmpty form for i 0 i form length i if form elements i value alert 表单不能为空 return false 用户注册 TOMATO 用户信 息注册 出生日期 年 选择月份 一月 二月 三月 四月 五月 六月 七月 八月 12 九月 十月 十一月 十二月 月 日 阅读注册服务协 议 留言信息的管理与添加 在该功能模块中 注册的用户可以在网站进行留言 根据姓名录入用户的 留言内容 不能插入相同的信息 保证数据的一致性在该小模块中 合法用户 登录后 可以进行留言 代码如下 在该功能模块中 注册用户可以在本网站进行留言 非注册用户不能在本 网站留言 制作留言成功动态页 代码如下 protected void Page Load object sender EventArgs e 13 Main 后台设计代码 using System using System Collections using System ComponentModel using System Data using System Drawing using System Web using System Web SessionState using System Web UI using System Web UI WebControls using System Web UI HtmlControls using System Data SqlClient namespace GradeMis public class Main System Web UI Page private SqlConnection conn new SqlConnection System Configuration ConfigurationSettings AppSettings GradeSy s public string promiseUrl private string promise private string username private void Page Load object sender System EventArgs e try username Session username ToString catch 15 Response Redirect Login aspx if Page IsPostBack GetPromise GetUrlByPromise private void GetPromise string sql string Empty sql string Format select promise from Admin inner join AdminGroup on Admin Group AdminGroup Group where username 0 username Response Write sql SqlDataReader dr SqlCommand cmd new SqlCommand sql conn try conn Open dr cmd ExecuteReader if dr Read promiseUrl dr promise ToString sb Append dr url ToString this promise dr promise ToString promiseUrl sb ToString catch Exception ex Response Write ex finally conn Close endregion 16 region private void GetUrlByPromise string sql string Empty System Text StringBuilder sb new System Text StringBuilder try sql string Format select url urlname from AdminUrl where id in 0 promise Substring 0 promise Length 1 catch SqlDataReader dr SqlCommand cmd new SqlCommand sql conn try conn Open try dr cmd ExecuteReader if dr Read sb Append do sb Append dr urlname ToString n while dr Read sb Append catch Response Write 你输入的用户名尚未分组 请与管理员联系 promiseUrl sb ToString 17 catch Exception ex Response Write ex finally conn Close endregion region override protected void OnInit EventArgs e InitializeComponent base OnInit e private void InitializeComponent this Load new System EventHandler this Page Load endregion 修改留言 修改留言 18 QQ 号 input name qq type text id qq value size 15 昵称 input name nich type text id nich value size 15 留言 input name id type hidden id id value 返回首页 19 查询用户留言信息 在该模块中更据用户的输入信息 调用不同的功能模块实现不同的成绩界 面结果 代码如下 using System using System Collections using System ComponentModel using System Data using System Drawing using System Web using System Web SessionState using System Web UI using System Web UI WebControls using System Web UI HtmlControls using System Data SqlClient namespace GradeMis public class AdminUrl System Web UI Page protected System Web UI WebControls DataGrid DataGrid1 SqlConnection conn new SqlConnection System Configuration ConfigurationSettings AppSettings GradeS ys private void Page Load object sender System EventArgs e 在此处放置用户代码以初始化页面 if Page IsPostBack GetUrl 20 region private void GetUrl string sql string Empty sql string Format select from AdminUrl SqlDataAdapter da new SqlDataAdapter sql conn DataSet ds new DataSet try da Fill ds t this DataGrid1 DataSource ds Tables t this DataGrid1 DataBind catch endregion region Web 窗体设计器生成的代码 override protected void OnInit EventArgs e CODEGEN 该调用是 ASP NET Web 窗体设计器所必需的 InitializeComponent base OnInit e private void InitializeComponent this DataGrid1 PageIndexChanged new System Web UI WebControls DataGridPageChangedEventHandler this DataGrid1 Pag eIndexChanged this Load new System EventHandler this Page Load endregion private void DataGrid1 PageIndexChanged object source System Web UI WebControls DataGridPageChangedEventArgs e 21 this DataGrid1 CurrentPageIndex e NewPageIndex GetUrl String name new String request getParameter name trim getBytes ISO 8859 1 考虑向服务器传值时服务器接受的值的编码格式问题 out println name String sql1 select from user09 where email name 设置查询 sql 语句 从邮件查询 String sql2 select from user09 where userid name 设置查询 sql 语句 从姓名 username 查询 String sql3 select from user09 where sex name 设置查询 sql 语句 从性别 sex 查询 String sql4 select from user09 where telephone name 设置查询 sql 语句 从年龄 age 查询 String option1 0 String option2 1 String option3 2 String option4 3 String fangshi request getParameter option trim System out println fangshi ResultSet rs 下面的语句中 如果全部使用 if 则都会进行判断 直到进入到 最后的 else 中 这在之前的一次 coding 中出现的 bug if option1 equals fangshi rs stmt executeQuery sql1 如果得到是 1 则按照 id 来查询 if rs getRow 0 flag 1 标志位置零 else if option2 equals fangshi rs stmt executeQuery sql2 if rs getRow 0 flag 2 如果得到是 2 则按照姓名来查询 else if option3 equals fangshi rs stmt executeQuery sql3 if rs getRow 0 flag 3 如果得到是 3 则按照性别来查询 else rs stmt executeQuery sql4 22 if rs getRow 0 flag 4 如果得到是 4 则按照年龄来查询 out println fangshi out println falg flag 打印出标志位的值进行相关的测试 rs beforeFirst 移至第一条记录之前 using System using System Collections using System ComponentModel using System Data using System Drawing using System Web using System Web SessionState using System Web UI using System Web UI WebControls using System Web UI HtmlControls using System Data SqlClient namespace GradeMis public class AdminGroup System Web UI Page protected System Web UI WebControls DataGrid DataGrid1 protected System Web UI WebControls Button cmdSelectAll protected System Web UI WebControls Button cmdSP private string GetSelects protected System Web UI WebControls DropDownList DropDownList1 protected System Web UI WebControls Label Label1 protected System Web UI WebControls Button Button1 protected System Web UI WebControls Button Button2 private SqlConnection conn new SqlConnection System Configuration ConfigurationSettings AppSettings GradeS ys private void Page Load object sender System EventArgs e 在此处放置用户代码以初始化页面 if Page IsPostBack GetGroupList GetData 23 JS region GetData private void GetData string sql string Empty sql string Format select from AdminUrl SqlDataAdapter da new SqlDataAdapter sql conn DataSet ds new DataSet try da Fill ds s this DataGrid1 DataSource ds Tables s try this DataGrid1 DataBind catch this DataGrid1 CurrentPageIndex 0 this DataGrid1 DataBind catch Exception ex Response Write ex finally conn Close endregion region private void GetGroupList string sql string Empty sql string Format select id Group from AdminGroup order by id asc SqlDataReader dr SqlCommand cmd new SqlCommand sql conn try 24 conn Open dr cmd ExecuteReader if dr Read this DropDownList1 Items Clear do ListItem ls new ListItem dr group ToString dr id ToString this DropDownList1 Items Add ls while dr Read catch Exception ex Response Write ex finally conn Close endregion region private void JS System Text StringBuilder sb new System Text StringBuilder sb Append sb Append function Del sb Append return confirm 确定要删除 this DropDownList1 SelectedItem Text 吗 操作将不可逆 sb Append String js sb ToString if IsClientScriptBlockRegistered Del RegisterClientScriptBlock Del js Button2 Attributes Add onclick return Del endregion 25 region Update method Set True private void UpdateGroup string sql string Empty sql string Format update AdminGroup set Promise 0 where Group 1 GetSelects this DropDownList1 SelectedItem Text ToString Response Write sql SqlCommand cmd new SqlCommand sql conn try conn Open if GetSelects null cmd ExecuteNonQuery else Response Write alert 您没有选择信息任何需要更 新的记录 catch Exception ex Response Write ex finally conn Close endregion region Web 窗体设计器生成的代码 override protected void OnInit EventArgs e CODEGEN 该调用是 ASP NET Web 窗体设计器所必需的 InitializeComponent base OnInit e private void InitializeComponent 26 this DropDownList1 SelectedIndexChanged new System EventHandler this DropDownList1 SelectedIndexChanged this cmdSelectAll Click new System EventHandler this cmdSelectAll Click this cmdSP Click new System EventHandler this cmdSP Click this Button1 Click new System EventHandler this Button1 Click this Button2 Click new System EventHandler this Button2 Click this Load new System EventHandler this Page Load endregion private void cmdSelectAll Click object sender System EventArgs e System Web UI WebControls CheckBox chkExport if cmdSelectAll Text 全选 foreach DataGridItem oDataGridItem in this DataGrid1 Items 建立 CheckBox 的引用 chkExport CheckBox oDataGridItem FindControl chkExport chkExport Checked true cmdSelectAll Text 全消 else foreach DataGridItem oDataGridItem in this DataGrid1 Items chkExport CheckBox oDataGridItem FindControl chkExport chkExport Checked false cmdSelectAll Text 全选 private void cmdSP Click object sender System EventArgs e 27 System Web UI WebControls CheckBox chkExport string sID System Text StringBuilder strMsg new System Text StringBuilder 选中的项为 System Text StringBuilder strMsg new System Text StringBuilder foreach DataGridItem oDataGridItem in this DataGrid1 Items chkExport CheckBox oDataGridItem FindControl chkExport 若选中则取值 if chkExport Checked sID oDataGridItem Cells 1 Text ToString strMsg Append sID GetSelects strMsg ToString Trim Response Write GetSelects UpdateGroup private void DropDownList1 SelectedIndexChanged object sender System EventArgs e this Label1 Text 当前选择 this DropDownList1 SelectedItem Text ToString private void Button1 Click object sender System EventArgs e Response Redirect AdminGroupAdd aspx private void Button2 Click object sender System EventArgs e Respo