资源目录
压缩包内文档预览：(预览前20页/共22页)
编号：549291
类型：共享资源
大小：801.79KB
格式：ZIP
上传时间：2015-12-03
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
6
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
石家庄市公安局网上信息系统,毕业设计论文
- 内容简介：
-
编号： 南 京 森 林 公 安 高 等 专 科 学 校 毕 业 论 文 论文题目 石家庄市公安局 网上信息系统的设计 专 业 信息技术系 班 级 信 技 0901 姓 名 付诗源 指导教师 王俊来 年 月 nts 石家庄市公安局网上信息系统 设计与实现 （） 摘 要 ：石家庄市公安局网上信息系统是典型的公安机关网上办公平台 , 其 开发采用的是ASP.NET与 SQL Server2000 模式。公安网上信息系统是基于互联网系统上的一个办公平台，是公安机关现实办公的一种延伸和互补。当今社会，实现网上办公，已经成为未来国家工作、社会管理中必不可少的工具。公安机关为了维护社会稳定，有效的进行治安管理，选择网上信息系统建立势在必行。 关键词 ：石家庄市公安局网站， ASP， SQL Server，数据库 公安专业工作主要包括治安行政管理工作和刑事司法工作等，而 治安行政管理工作的主要任务是预防违法犯罪，查处治安案件，组织群众治安力量，维护社会治安 秩序 。本 网上行政系统正是针对石家庄市公安局开发的，通过网上操作，方便人民群众了解治安动态，熟悉公安业务，同时加强警民联系。系统开发格式标准规范，采用 ASP.NET、Dreamweaver CS4 和 SQL Server2000 等软件开发，使系统结构清晰，功能明确，数据完整。同时，系统为用户提供信息并接受其操作，通过数据库管理系统来存储信息数据，实现了对信息数据的浏览、查询、编辑和管理等基本数据库操作。并且根据用户的需求及程序的应用与维护的易用性，将各个部分置于不同的模块当中，实现了用户分级，方便了程序的扩展与 维护。 一、目的与意义 随着计算机技术的飞速发展 ,计算机在各行各业中应用的普及 ,利用计算机管理各种大量的信息势在必行。当前国家机关相关行政管理在正常运营中总是面对大量的信息，因此需要对资源和信息进行管理，及时了解各个环节中信息的变更 ,有利于提高管理效率。 通过本系统的建立已经使用，我们可以及时对公安行政管理的相关资源信息管理工作系统化、规范化、自动化，从而大大提高公安工作的效率，更好的为人民服务。 （一）经济可行性 目标系统开发需求比较低，加上具有成熟的软硬件环境，所以在软硬件的支出上十分有限。而且，目标系 统并非十分的复杂，开发的周期也较短，人员经济支出有限。当nts 系统开发完实际运行后，将在一定程度上提高计算机的功能，在给使用者带来便利的同时，也为系统的进一步推广创造了条件。这带来的社会效益将远超过支出，并且最重要的一点是该软件的开发可以给我们对系统的开发有个全面的认识，使我们将来能够与社会接轨。因此经济可行性较高。 （二）技术可行性 此系统用 ASP 开发 ,开发者也都具有开发系统所需的硬件条件 计算机。 另外 ASP作为一种 Web实现技术，它的效率很高。 ASP提供了一个在服务器端执行指令的环境，它利用了特殊的符号来 区分 HTML与必须经过服务器翻译才能送往客户端的命令。它可以执行的指令包括 HTML语言， Microsoft VBScript 和 Microsoft Jscript 等，因此可以制作出功能强大的 Web应用程序 。所以 ASP作为实现本系统的技术，它是完全可行的。 关于这方面的开发系统，在网上可看到许多有利用价值的资料。现要开发的软件和其大体相似。可参考的原始资料有：相关书籍以及网上的一些资料。这些都为开发者提供了一定的参考条件。 （三）操作可行性 系统的客户端程序固化在芯片中，所以用户无法对其进行破坏。同时设置分级管 理，因此，管理程序的人性化，使得操作方便，系统本身设计简单、功能清晰，以方便用户在享受强大功能的同时不会因为烦杂的操作而苦恼。 二、系统总述 （一）专业术语介绍 1.SQL语句 SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据，从数据库中提取数据等。目前，绝大多数流行的关系型 数据库管理系统 ，如 Oracle, Sybase, Microsoft SQL Server, Access等都采用了 SQL语言标准。虽然很多数据库都对 SQL 语句进行了再开发和扩展，但是包括 Select, Insert, Update, Delete, Create,以及 Drop 在内的标准的 SQL命令仍然可以被用来完成几乎所有的数据库操作。 SQL Server 是一个关系数据库管理系统。它最初是由 Microsoft Sybase 和Ashton-Tate三家公司共同开发的，于 1988 年推出了第一个 OS/2 版本。在 Windows NT 推出后， Microsoft与 Sybase 在 SQL Server 的开发上就分道扬镳了， Microsoft 将 SQL nts Server 移植到 Windows NT 系统上，专注于开发推广 SQL Server 的 Windows NT 版本。Sybase 则较专注于 SQL Server 在 UNIX 操作系统 上的应用。 SQL Server 2000 是 Microsoft 公司推出的 SQL Server 数据库管理系统，该版本继承了 SQL Server 7.0 版本的优点，同时又比它增加了许多更先进的功能。具有使用方便可伸缩性好与相关软件集成程度高等优点，可跨越从运行 Microsoft Windows 98 的膝上型电脑到运行 Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。 2.ASP语句 ASP(ApplicationServiceProvider,应用软体租赁服务提供者 )即是指透过网络以租赁方式提供应用软体服务的从业者 ,即是指业者以应用软体为主体 ,透过网络一对多地传递服务 ,这种以服务为主的交易模式促使企业可 藉由租赁的方式 ,以更符合成本效益的方式拥有软体的使用权 ,并且亦能因为业者集中式的管理而大幅降低企业维护的成本 . 基本上 ,ASP 即具有软体服务化 、 服务网络化 ,资讯委外服务与网络结合与产品通路化 、 通路产品化等三大特性 ,其甚至可以被视为是 ISP（ InternetService Provider）与ITS（ Information Technology Service）的结合 . （二）系统介绍 本系统通过 Dreamweaver CS4 设计主页面（见图 1），利用 ASP.NET 进行详细编辑设计，与 SQL Server2000 数据库系统进行连接以存储和更新相关数据，建立形成了本动态信息发布系统 ,使资源的信息管理工作系统化、规范化、自动化 ,从而达到提高管理资源效率的目的。 系统主要发布与当地公安机关相关业务有关的消息，其中包括最新发生的新闻，公安机关主要领导信息，在警民文化建设中的相关信息，每周治安播报，社会信息新闻热点以及法律法规。在各信息发布中可以任意查看文章，点击大标题或者文章题目即可进入文章浏览界面（见图 2），在查看文章过后点击返回按钮即可返回主页面。 该信息发布系统针对系统管理应用需要，总共设有二级用户权限，用户应 用系统下设有二层操作 浏览，编辑，实现了对系统的有效利用和有针对性的权限管理。管理员有专门的进入页面（见图 3），主要是网站管理员以及公安机关内部负责人员。可进行文章的编辑修改（见图 4、 5），编辑添加（见图 6）等。非管理人员只能进行文章的浏览。 整个系统主要采用蓝色或白色为背景，搭配少许灰色、白色，既体现出警察这一特殊职业的统一规范性以及鲜明标志性，同时又不失庄重严肃，而且外观大方美观，使浏nts 览者感同身受，心情愉悦的浏览系统。 主页（ index.aspx，见图 1）设有全系统的各分支链接，包括警务新闻、法律法规 、警营文化、他山之石这四大板块。四大板块下设有单独的文章消息，点击即可进入，如果要浏览某一板块，直接点击板块标题即可。标题栏下右侧中包括用户登陆及注册入口和登录入口模块，标记清晰，两模块下记录有石家庄市公安局所在地址、电话、邮政编码，方便群众及时联络。 根据系统的管理需要，建立了相关数据库表，每个表存储一类数据，通过数据库支持，实现了系统中各部分数据的动态变化。本系统主要利用数据库存储用户资料，新闻文章，以及以上各内容的附属信息等。总体来看，整个系统结构简单清晰，不仅有利于管理，同时也便于用户操作，体现出公 安工作高效便民的行政要求。 图 1 主页 nts 图 2 文章浏览 图 3登录与注册 nts 图 4 新闻管理界面 nts 图 5 新闻编辑 nts 图 6 新闻添加 三、数据库建立 数据库主要是 用来组织和管理空间信息，并挖掘空间信息资源，帮助数据使用者查询所需空间信息 ， 提供数据转换方面的信息。该系统主要由权限验证功能、输入和合法性校验功能、查询功能与返回和显示功能等组成。 系统通过连接数据库实现了数据的存储更新等功能，根据本网上 信息发布系统的实际需要，总共建立有三个表（见图 7），利用表格，分别记录有 用户信息 、文章的内容、 新闻类别 等等，不仅信息记录完整，而且有效的保证了前台系统的操作，具体如下： nts 图 7表 （一）用户信息表 表 news_admin（见图 8） 是为用户注册而设置，用户在点击注册之后，所有的注册信息将汇集在这份表里。此表包含所有已注册用户的详细信息，管理员有权对该表进行编辑、变更。此表包括以下字段： username（用户名）、 password（密码）、 name（姓名）、 sex（性别）、 birthday（出生日期）、 address（地址）。只要登录网站注册成功，本用户的信息就会直接录入到此表中。 列名 数据类型 长度 username varchar 20 password varchar 30 name char 10 sex Char 4 birthday char 12 address char 10 nts 图 3 用户信息表 （二）新闻类别表 表 news_bigclass（见图 9） 是为网站文章的分类而设置，含有 bigclassid（代号）、bigclaname（ 标题）两字段，文章类别有警方提示、公示公告、法律法规、他山之石四类。建立此表的目的是为了能够更加方便的将各类文章进行分类管理，不需要将各类文章分别建表分别归类。 图 4 新闻类别表 （三）文章编辑表 表 news_article（见图 9） 为用户编辑文章而设置，所有用户添加的文章都会存储于本表中，等待管理员审核，经过管理员审核后，文章就会进入文章审核表（见图 12），顺利发布。本表含有 newsid（序号）、 bigclassid（代号）、 title（标题）、 writer（作者）、 newskey（关键词）、 newstime（发布时间）、 hit、 content（内容）、 newsis（是否审核）、 newsfrom（来源）十个字段，其中 bigclassid 字段与表 news_bigclass 中的相一致，这样就可以将文章进行分类。 列名 数据类型 长度 newsid int 4 bigclassid int 4 title varchar 50 writer varchar 20 newskey varchar 50 newstime varchar 50 hit int 4 content text 16 nts newsis char 10 newsfrom varchar 50 图 5 文章编辑表 四、系统说明 （一） 数据库的附加 本系统数据库文件存放在 APP_Data文件夹中可将数据库文件直接附加至数据库中使用，附加数据库的方法如下：打开 SQL Server 2000 企业管理器在数据库上点击右键 所有任务 附加数据库，找到本系统的数据库文件夹中的 newsdate_data，这样就把数据库附加完成了。此数据 库服务器登录用户名为： sa，密码为空，在附加数据库后可新建一个用户 sa，密码为空，这样才能对数据库进行访问。 （二） 应用程序配置（ Web.config） ASP.NET应用程序的配置功能放在 Web.config 文件中，它包含每一个具体 Web应用程序的配置信息。在程序运行时， ASP.NET 使用分层虚拟目录结构的 Web.config 文件提供的配置信息为每个唯一的 URL 资源计算一组配置设置，然后缓存结果配置设置，以供所有页面对资源的请求使用。 Web.config 文件对于访问站点的用户来说是不可见的，而且也是不可 访问的，它基于 XML，每个配置文件都包含 XML标记和子标记的嵌套层次结构。 此信息技术系信息发布系统的 Web.config 文件中的配置为： ， Keyoption用于指定该设置的关键字，便于在应用程序中引用； valueoption 用于指定该设置的值。这样就可以通过键值对 key和 value 配置数据库连接的相关信息，将 SQL Server数据库数据用性爱能够对路径的方式设置 为字符串： valueoption”在程序代码中进行连接引用。 （三） ISS 虚拟目录设置 运行本系统必须要装载 Microsoft Visual Studio 2005 以及 Microsoft SQL Server 和 ISS6.0并配置 ISS虚拟目录，设置具体方法如下： windows xp 环境下。【控制面板】nts 【管理工具】 【 internet 信息服务】。首先要创建虚拟目录，新建虚拟目录的步骤如下： 1.打开 ISS（ internet 信息服务），在默认网站上右击，在快捷菜单中选择新建 虚拟目录； 2.在弹出的虚拟目录创建向导对话框里点击“下一步” 3.输入虚拟目录别名 4.选择网站内容所在目录路径 5.设置“访问”权限 在所建虚拟目录上右击，在弹出菜单中选择浏览，或在浏览器里输入相应网址，都可运行浏览程序。虚拟目录不在目录列表中显示，要访问虚拟目录，用户必须知道虚拟目录的别名并在浏览器中键入 URL。对于 www 服务，也可以在 HTML 页面中创建链接。发布网站的时候，把程序首页的名字（ index。 aspx）写在 ISS当中就可以访问了。 五、总结 此系统运用了主要运用了 和数据库技术将网页和数据库 库结合，通过应用程序来添加和处理新闻，使新闻的管理更加智能，提高了新闻管理的效率。对新闻的处理，通过审核后，会立即显示到首页的动态里面，不同文章类别也会在不同栏目中显示，达到即时发布，即时显示效果的功能，减少了繁琐的环节，大大提高了日常工作的效率。系统页面操作简单，显示简洁，本系统初次发布，还存在着一些瑕疵，有些页面布局很单调，页面的颜色搭配还需改进， 还有很多不完善的地方 ,如公安要闻、政务公开等功能尚未实现 ，因为知识水平和解决相关问题的能力不足 ，我们将进一步完善和改进该系统。 nts 参考文献： 1宋漪 .SQL Server 数据库管理与开发 M.北京 : 电子工业出版社， 2005. 2赵明生 .公安计算机应用教程 M.南京：东南大学出版社， 2008. 3李春葆 .赵丙秀 .数据库系统开发教程 M. 北京：清华大学出版社 , 2005 4刘奎 .SQL Server数据库配置 M.北京 : 清华大学出版社 , 2004 5美）斯坦里克（ Staned， W.R.） .SQL Server2005管理员必备 M.北京 : 清华大学出版社 , 2008 6杨章伟 .精通 SQL语言与数据库管理 M.北京 : 人民邮电出版社 , 2010 7杨中科 .程序员的 SQL金典 M.北京 : 电子工业出版社 , 2011 8周峰 . SQL结构化查询语言速学宝典 M.北京 : 中国铁道出版社 , 2010 9数码全方位研究室 . Dreamweaver 8网页设计实务 M.北京 : 中国铁道出版社 , 2007 10张永宝 . Dreamweaver8中文版入门与 提高 M.北京 : 清华大学出版社 , 2007 11倪洪球 . Dreamweaver8+ASP动态网站 开发实务 M.北京 : 人 民邮电出版社 , 2007 12陈志浩 . Photoshop CS4 Flash CS4 Dreamweaver CS4网页制作 50例 M.北京 : 电子工业出版社 , 2010 13锐博科技 . 精通 Dreamweaver8网站建设 ASP交互网页设计篇 M.北京 : 中国青年出版社 , 2007 14孔鹏 . ASP+SQL Server动态网站开发完全自学手册 M.北京 : 机械工业 出版社 , 2007 附录： 主要源代码： （一）添加新闻主要代码： Imports System.Data Imports System.Data.SqlClient Partial Class Article_Add Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox3.Text = Today() If Session(UserName) Is Nothing Then Response.Redirect(Index.aspx) End If End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ConnStr As String ConnStr = server=(local);uid=sa;password=;database=newsdata Dim Conn As SqlClient.SqlConnection Conn = New SqlClient.SqlConnection(ConnStr) Try Conn.Open() Dim ComdStr As String ComdStr = insert into news_article(title,writer,bigclassid,newstime,content,newsto) values( & TextBox1.Text & , & TextBox2.Text & , & DropDownList1.Text & , & TextBox3.Text & , & FreeTextBox1.Text & , & DropDownList2.Text & ) Dim Comd As SqlClient.SqlCommand nts Comd = New SqlClient.SqlCommand(ComdStr, Conn) Comd.ExecuteNonQuery() Label1.Text = 添加成功！请耐心等待管理员审核！ Catch ex As Exception Label1.Text = 程序出现错误，错误信息如下： & ex.Message.ToString End Try End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(Article_Manage.aspx) End Sub End Class （二）新闻查看审核主要代码： Imports System.Data Imports System.Data.SqlClient Partial Class MyEdit Inherits System.Web.UI.Page Dim NewsID As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If (Not IsPostBack) Then NewsID = Request(newsid) DataBind() End If If Session(UserName) Is Nothing Then Response.Redirect(Index.aspx) End If End Sub Sub DataBind() Dim ConnStr As String ConnStr = server=(local);uid=sa;password=;database=newsdata Dim Conn As SqlClient.SqlConnection Conn = New SqlClient.SqlConnection(ConnStr) Try Conn.Open() Dim ComdStr As String ComdStr = select content,title from news_article where newsid= & NewsID & Dim Comd As SqlClient.SqlCommand Comd = New SqlClient.SqlCommand(ComdStr, Conn) Dim Adp As New SqlClient.SqlDataAdapter Adp = New SqlClient.SqlDataAdapter Adp.SelectCommand = Comd Dim DS As New DataSet DS = New DataSet Adp.Fill(DS, News) FreeTextBox1.Text = DS.Tables(News).Rows(0)(0) TextBox1.Text = DS.Tables(News).Rows(0)(1) nts Catch ex As Exception Response.Write(程序出现错误，错误信息如下： & ex.Message.ToString) Finally Conn.Close() End Try End Sub Sub UpdateData() Dim ConnStr As String NewsID = Request(newsid) ConnStr = server=(local);uid=sa;password=;database=newsdata Dim Conn As SqlClient.SqlConnection Conn = New SqlClient.SqlConnection(ConnStr) Try Conn.Open() Dim ComdStr As String ComdStr = Update news_article set content= & FreeTextBox1.Text & , title= & TextBox1.Text & where newsid= & NewsID & Response.Write(? & ComdStr) Dim Comd As SqlClient.SqlCommand Comd = New SqlClient.SqlCommand(ComdStr, Conn) Dim Shenhe As String Shenhe = Update news_article set newsis= & DropDownList1.Text & where newsid= & NewsID & Dim Sh As SqlClient.SqlCommand Sh = New SqlClient.SqlCommand(Shenhe, Conn) Dim Adp1 As New SqlClient.SqlDataAdapter Adp1 = New SqlClient.SqlDataAdapter Adp1.SelectCommand = Sh Dim DS1 As New DataSet DS1 = New DataSet Adp1.Fill(DS1, News) Comd.ExecuteNonQuery() Label1.Text = 新闻修改成功！ Conn.Close() Catch ex As Exception Label1.Text = 程序出现错误，修改失败，错误信息如下： & ex.Message.ToString End Try End Sub Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click UpdateData() End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(Article_Manage.aspx) End Sub End Class nts （三）新闻管理主要代码： Imports System.Data Imports System.Data.SqlClient Partial Class Article_Manage Inherits System.Web.UI.Page Dim NewsID As Integer Public Title As String Public writer As String Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If (IsPostBack = False) Then gridshow() End If End Sub Function gridshow() Dim connstr As String connstr = server=(local);uid=sa;password=;database=newsdata Dim conn As SqlClient.SqlConnection conn = New SqlClient.SqlConnection(connstr) Try conn.Open() Dim comdstr As String comdstr = select * from news_article order by NewsID Dim comd As SqlClient.SqlCommand comd = New SqlClient.SqlCommand(comdstr, conn) Dim adp As New SqlClient.SqlDataAdapter adp = New SqlClient.SqlDataAdapter adp.SelectCommand = comd Dim ds As New DataSet ds = New DataSet adp.Fill(ds, news) GridView1.DataSource = ds.Tables(news) GridView1.DataBind() Catch ex As Exception Response.Write(程序出现错误，错误信息如下： & ex.Message.ToString) Finally conn.Close() End Try End Function Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging GridView1.PageIndex = e.NewPageIndex gridshow() End Sub Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand nts If (e.CommandName = myedit) Then Response.Redirect(myedit.aspx?NewsID= & GridView1.Rows(e.CommandArgument).Cells(0).Text) End If End Sub Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting Dim connstr As String connstr = server=(local);uid=sa;password=;database=newsdata Dim conn As SqlClient.SqlConnection conn = New SqlClient.SqlConnection(connstr) Try conn.Open() Dim comdstr As String Dim delrow As String delrow = e.RowIndex comdstr = delete from news_article where newsid= & GridView1.Rows(e.RowIndex).Cells(0).Text & Dim comd As SqlClient.SqlCommand comd = New SqlClient.SqlCommand(comdstr, conn) Dim adp As New SqlClient.SqlDataAdapter adp = New SqlClient.SqlDataAdapter adp.SelectCommand = comd Dim ds As New DataSet ds = New DataSet adp.Fill(ds, news) GridView1.DataSource = ds.Tables(news) GridView1.DataBind() Catch ex As Exception Response.Write(程序出现错误，错误信息如下： & ex.Message.ToString) Finally conn.Close() gridshow() End Try End Sub End Class （四）新闻编辑主要代码： Imports System.Data Imports System.Data.SqlClient Partial Class myEdit Inherits System.Web.UI.Page Dim neisid As String Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click UpdateData() nts End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Session(username) = Then Response.Redirect(index.aspx) If (Not IsPostBack) Then neisid = Request(newsid) DataBind() End If End Sub Sub DataBind() Dim ConnStr As String ConnStr = server=(local);uid=sa;password=;database=newsdata Dim Conn As SqlClient.SqlConnection Conn = New SqlClient.SqlConnection(ConnStr) Try Conn.Open() Dim ComdStr As String ComdStr = select * from news_article where newsid= & neisid & Dim Comd As SqlClient.SqlCommand Comd = New SqlClient.SqlCommand(ComdStr, Conn) Dim Adp As New SqlClient.SqlDataAdapter Adp = New SqlClient.SqlDataAdapter Adp.SelectCommand = Comd Dim DS As New DataSet DS = New DataSet Adp.Fill(DS, newsdate) TextBox5.Text = DS.Tables(newsdate).Rows(0)(2) TextBox1.Text = DS.Tables(newsdate).Rows(0)(7) TextBox3.Text = DS.Tables(newsdate).Rows(0)(0) TextBox4.Text = DS.Tables(newsdate).Rows(0)(3) Catch ex As Exception Response.Write(无关键字 ) Finally Conn.Close() End Try End Sub Sub UpdateData() Dim ConnStr As String ConnStr = server=(local);uid=sa;password=;database=newsdata Dim Conn As SqlClient.SqlConnection Conn = New SqlClient.SqlConnection(ConnStr) Try Conn.Open() Dim ComdStr As String ComdStr = Update news_article set content= & TextBox1.Text & where Newsid= & TextBox3.Text & nts Dim Comd As SqlClient.SqlCommand Comd = New SqlClient.SqlCommand(ComdStr, Conn) Comd.ExecuteNonQuery() Label1.Text = 用户信息修改成功！ Conn.Close() Response.Redirect(Article_Manage.aspx) Catch ex As Exception Label1.Text = 程序出现错误，修改失败，错误信息如下： & ex.Message.ToString End Try End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(Article_Manage.aspx) End Sub Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub End Class （五）用户注册主要代码： Imports System.Data Imports System.Data.SqlClient Partial Class zhuce Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load DIV1.Visible = False If IsPostBack = True Then username.text=aaa Session(pw1) = pw1.Text Session(pw2) = pw2.Text Response.Write(function start()document.form1.pw1.value= & Session(pw1) & ;document.form1.pw2.value= & Session(pw2) & ;) Else username.text=bbb Response.Write(function start()document.form1.pw1.value=;document.form1.pw2.value=;) Session(pw1) = Session(pw2) = End If End Sub Protected Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then admin.Visible = True Else admin.Visible = False nts End If End Sub Protected Sub ImageButton1_Click(ByVal sender As System.Object, ByVa
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号