vb.net 各种网页编写代码

用户登录界面代码 If TextBox1.Text = "" Or TextBox2.Text = "" Then Label3.Text = "请确认您的输入!" Return End If Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("data source=app_data/rlzygl.mdb") Dim sql As String = "select * from User where username=@username and password=@password" Dim comm As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand(sql, conn) comm.Parameters.Add("@username", Data.SqlDbType.Text) comm.Parameters.Add("@password", Data.SqlDbType.Text) comm.Parameters("@username").Value = TextBox1.Text comm.Parameters("@password").Value = TextBox2.Text 'conn.Open() 'Dim dr As Data.SqlClient.SqlDataReader 'dr = comm.ExecuteReader 'If dr.Read Then ' Session("username") = TextBox1.Text ' dr.Close() ' comm.Cancel() 'Dim sql_3 As String = "update " Response.Redirect("~/myoffice.aspx") 判断当前页面是否第一次加载 -------------------------------------------------------------------------------- If Not Page.IsPostBack Then '页面第一次加载时运行的代码 End If 获取客户机IP地址 -------------------------------------------------------------------------------- Request.ServerVariables("Remote_Addr") 课堂案例代码：使用代码创建数据源控件 -------------------------------------------------------------------------------- Dim ads As AccessDataSource '定义ads变量为数据源控件 ads = New AccessDataSource() '创建数据源控件，并将其赋给ads变量 ads.DataFile = "~/App_Data/Forum.mdb" '指定数据源控件的数据库文件 ads.InsertCommand = "insert into forumre(MainID,Re_Subject,Re_Content,Re_Account,Re_Sex,Re_Email,Re_IP) values(?,?,?,?,?,?,?)" '定义数据源控件的Insert语句 ads.InsertParameters.Add("MainID", Request.QueryString("id")) ads.InsertParameters.Add("Re_Subject", CType(LoginView1.FindControl("TextBox1"), TextBox).Text) ads.InsertParameters.Add("Re_Content", CType(LoginView1.FindControl("TextBox2"), TextBox).Text) ads.InsertParameters.Add("Re_Account", Membership.GetUser().UserName) ads.InsertParameters.Add("Re_Sex", CType(LoginView1.FindControl("RadioButtonList1"),RadioButtonList).SelectedValue) ads.InsertParameters.Add("Re_Email", Membership.GetUser().Email) ads.InsertParameters.Add("Re_IP", Request.ServerVariables("Remote_Addr")) ads.Insert() '执行SQL语句 DataList1.DataBind() '重新绑定回复列表 课堂案例代码：使用代码创建数据源控件 -------------------------------------------------------------------------------- Dim ads As AccessDataSource '定义ads变量为数据源控件 ads = New AccessDataSource() '创建数据源控件，并将其赋给ads变量 ads.DataFile = "~/App_Data/Forum.mdb" '指定数据源控件的数据库文件 ads.UpdateCommand = "update forummain set hits=hits+1 where id=?" '定义数据源控件的Update语句 ads.UpdateParameters.Add("id", Request.QueryString("id")) '向UpdateParameters集合中添加UpdateCommand中所需的参数 ads.Update() '调用Update方法，执行UpdateCommand中的Sql语句 课堂案例代码：显示热帖和新帖 -------------------------------------------------------------------------------- If e.Row.RowType = DataControlRowType.DataRow Then '如果是数据行 If e.Row.Cells(5).Text < 5 Then '如果回复数小于5，则不是热帖 e.Row.Cells(1).FindControl("Image2").Visible = False '找到热帖的图标并隐藏 End If Dim date1, date2 As DateTime date1 = CType(e.Row.Cells(2).Text, DateTime) '获取帖子发布时间，并转换为DateTime时间类型 date2 = DateAdd(DateInterval.Hour, 24, date1) '将帖子发布时间加上24个小时 If DateTime.Compare(date2, Now()) < 0 Then '如果帖子发布时间加上24个小时比当前时间小 e.Row.Cells(1).FindControl("Image1").Visible = False '找到新帖的图标并隐藏 End If End If 比较两个日期的大小 -------------------------------------------------------------------------------- DateTime.Compare("时间1","时间2") 返回值： 大于0：时间1>时间2 等于0：时间1=时间2 小于0：时间1<时间2 关闭窗口的Javascript代码 -------------------------------------------------------------------------------- <script language="javascript" type="text/javascript"> function CloseWin() { if(confirm("确定退出？")) { window.opener=null; window.close(); } else { return false; } } </script> 关闭窗口的"按钮"代码 -------------------------------------------------------------------------------- <input id="btnPageClose" type="button" value="关闭本页" onclick="CloseWin();"/> 关闭窗口的"链接"代码 -------------------------------------------------------------------------------- <a href="#" onclick="CloseWin();">关闭本页</a> 返回前页按钮代码 ------------------------------------------------------------------------------------------------------------------- <input id="btnPageBack" type="button" value="返回前页" onclick="javascript:history.back();" /> 获取当前登录用户的用户名 -------------------------------------------------------------------------------------------------- Membership.GetUser().UserName 判断当前登录用户是否具有某种角色，如果具有返回True，否则返回False -------------------------------------------------------------------------------------------------- Roles.IsUserInRole(Membership.GetUser().UserName, "角色名") 将数据库中的回车符换成网页中的回车符 -------------------------------------------------------------------------------------------------- Replace(Eval("NewsContent"),vbcrlf,"<br>") //----------------------------------------------------------------------------- // 删除确认 //----------------------------------------------------------------------------- <div id="del" onclick="JavaScript:return confirm('确定删除吗？')">删除</div> //----------------------------------------------------------------------------- // 使用图片删除按钮时的删除确认：注意图片路径是否正确 //----------------------------------------------------------------------------- <img id="imgDel" src="../images/del.jpg" border=0 onclick="JavaScript:return confirm('确定删除吗？')" /> <img id="imgEdit" src="../images/edit.gif" border=0 onclick="JavaScript:return confirm('确定编辑吗？')" /> //----------------------------------------------------------------------------- // 使用第三方时间控件：注意注意JavaScript文件的路径是否正确 //----------------------------------------------------------------------------- 第一步:引入JavaScript <script language="javascript" src="../js/DatePicker.js" type="text/javascript" charset="gb2312"></script> 第二步： 在textbox文本框控件中加入： onfocus="setday(this)" //---------------------------------------------------------------------------------------- //分页模板：.aspx页面：拷贝如下代码到GridView的结束标记</asp:GridView>之前 //---------------------------------------------------------------------------------------- <PagerTemplate> <table width="100%"> <tr> <td style="text-align: right"> 第<asp:Label ID="lblPageIndex" runat="server" Text='<%# (CType(Container.Parent.Parent,GridView)).PageIndex + 1 %>'> </asp:Label>页 / 共<asp:Label ID="lblPageCount" runat="server" Text='<%# (CType(Container.Parent.Parent,GridView)).PageCount %>'> </asp:Label>页 <asp:LinkButton ID="btnFirst" runat="server" CausesValidation="False" CommandArgument="First" CommandName="Page" Text="首页">