《ASP.NET源代码大全.doc》由会员分享，可在线阅读，更多相关《ASP.NET源代码大全.doc（66页珍藏版）》请在三一文库上搜索。
1、ASP.NET源代码大全目 录1. 如何使用ASP.NET FORM handler？22. 如何使用Cookie？53. 如何做一个广告管理程序？84. 如何做一个注册系统？145. 如何做一个计算器？176. 如何利用数据绑定来处理XML文件？197. 如何制作一个新闻发布系统？208. 如何加密口令？259. 如何动态建立列表？2610. 如何发送电子邮件？3011. 如何在ASP.NET里操作Cookie？3112. 如何在上传的图片上写字？3413. 如何在线查看主机的内存使用情况？3614. 如何实现HTML和URL的编码？3715. 如何用HTTP方式的获取功能来侦测网站？381
2、6. 如何实现“向好友推荐”功能？3917. 如何实现对整个站点所有页面的操作？4018. 如何对网上的其它机器进行侦测？4119. 如何把图片上载到数据库中去？4220. 如何显示更多的系统和文件信息？4621. 如何用DataGrid实现分页？4922. 如何获得对方机器的名称和IP地址？5223. 如何获知文件的详细属性？5524. 如何获知浏览器的更多信息？5725. 如何访问Excel表？5726. 如何读取XML文件？5827. 如何进行域名查询？6028. 如何验证日期？62如何使用ASP.NET FORM handler？ Const strCheckMarkHtml As S
3、tring = Sub Page_Load(Src as object, E as EventArgs) lblStatus.Visible = False validName.ErrorMessage = strCheckMarkHtml validEmailRequired.ErrorMessage = strCheckMarkHtml validEmailRegExp.ErrorMessage = strCheckMarkHtml validAddress.ErrorMessage = strCheckMarkHtml validCity.ErrorMessage = strCheckM
4、arkHtml validStateRequired.ErrorMessage = strCheckMarkHtml validStateRegExp.ErrorMessage = strCheckMarkHtml validZipRequired.ErrorMessage = strCheckMarkHtml validZipRegExp.ErrorMessage = strCheckMarkHtml End Sub Sub btnReset_OnClick(Sender As Object, E As EventArgs) lblStatus.Visible = False txtName
5、.Text = txtEmail.Text = txtAddress.Text = txtCity.Text = txtState.Text = txtZip.Text = End Sub Sub btnSubmit_OnClick(Sender As Object, E As EventArgs) Dim strLabelText As StringBuilder = new StringBuilder() If Page.IsValid Then divFormSection.Visible = False strLabelText.Append(精彩春风之FORM handler应用)
6、strLabelText.Append() strLabelText.Append(个人资料提交范例) strLabelText.Append(请按下面要求输入您的资料:) strLabelText.Append(姓名: & txtName.Text & & vbCrLf) strLabelText.Append(电子邮件: & txtEmail.Text & & vbCrLf) strLabelText.Append(住址: & txtAddress.Text & & vbCrLf) strLabelText.Append(城市: & txtCity.Text & & vbCrLf) str
7、LabelText.Append(省份: & txtState.Text & & vbCrLf) strLabelText.Append(邮政编码: & txtZip.Text & & vbCrLf) lblStatus.Text = strLabelText.ToString() lblStatus.Visible = True Else strLabelText.Append(对不起,您填写的资料不完整或有错误!) strLabelText.Append(请检查后,再正确填写.) lblStatus.Text = strLabelText.ToString() lblStatus.Visi
8、ble = True End If strLabelText = Nothing End Sub 姓名: 电子邮件: 住址: 城市: 省份: 邮政编码: 如何使用Cookie？cookies.aspx Const COOKIE_NAME As String = test-cookie-name Const COOKIE_VALUE As String = test-cookie-value Dim objCookieObject As HttpCookie 声明 cookie 对象 Sub btnSetCookie_OnClick(Sender As Object, E As EventArg
9、s) objCookieObject = New HttpCookie(COOKIE_NAME, COOKIE_VALUE) 创建一个cookie 对象 ,可以现在传递给它名字和值,也可以稍后做这些. 设置名字和值: objCookieObject.Name = COOKIE_NAME objCookieObject.Value = COOKIE_VALUE objCookieObject.Expires = New DateTime(2001, 12, 31, 23, 59, 59) 添加 cookie 属性 Response.AppendCookie(objCookieObject) En
10、d Sub Sub btnRemoveCookie_OnClick(Sender As Object, E As EventArgs) objCookieObject = New HttpCookie(COOKIE_NAME) objCookieObject.Expires = New DateTime(1998, 10, 17) Response.AppendCookie(objCookieObject) End Sub Sub btnGetCookie_OnClick(Sender As Object, E As EventArgs) objCookieObject = Request.C
11、ookies(COOKIE_NAME) If Not(objCookieObject = null) Then lblCookieDetails.Text = objCookieObject.Name lblCookieDetailsName.Text = objCookieObject.Name lblCookieDetailsValue.Text = objCookieObject.Value lblCookieDetailsExpires.Text = objCookieObject.Expires.ToString lblCookieDetailsDomain.Text = objCo
12、okieObject.Domain lblCookieDetailsPath.Text = objCookieObject.Path lblCookieDetailsSecure.Text = objCookieObject.Secure.ToString lblCookieDetailsHasKeys.Text = objCookieObject.HasKeys.ToString Else lblCookieDetails.Text = 抱歉,您还没设置它呢! lblCookieDetailsName.Text = lblCookieDetailsValue.Text = lblCookie
13、DetailsExpires.Text = lblCookieDetailsDomain.Text = lblCookieDetailsPath.Text = lblCookieDetailsSecure.Text = lblCookieDetailsHasKeys.Text = End If End Sub我们设置的 cookie 是: 如要查看cookie当前状况,请点击下面按钮 Cookie详细内容 属性 值 名字 值 期限 域 路径 安全保证 键值 如何做一个广告管理程序？admanage.aspxDataSet ds; 定义公用的DataSetDataView dv; 定义公用的Da
14、taViewstring SortField;string sPath;public void Page_Load(Object src,EventArgs e)if(Stateadxml=null)sPath = Server.MapPath(.) + AdBannersad_gb.xml;ds = new DataSet();ds.ReadXml(sPath);Stateadxml = ds;elseds = (DataSet)Stateadxml;dv = ds.Tables0.DefaultView;dv.Sort = ImageUrl;if(!Page.IsPostBack)Crea
15、teTable();public void CreateTable() 捆绑BinderdgXML.DataSource = dv;dgXML.DataBind();public void dgXML_Changed(Object sender,DataGridPageChangedEventArgs e) 翻页CreateTable();public void DelItem(Object sender,DataGridCommandEventArgs e) 删除if(LinkButton)e.CommandSource).CommandName = del) 取得当前更新页的行数与Curr
16、entPageIndexint CPI = (int)dgXML.CurrentPageIndex;int EII = (int)e.Item.ItemIndex;int row = CPI*5+EII; lb.Text = row.ToString();dv.Delete(row);dgXML.EditItemIndex = -1;ds.WriteXml(sPath);CreateTable();public void dgXML_Cancel(Object sender,DataGridCommandEventArgs e) 取消dgXML.EditItemIndex = -1;Creat
17、eTable();public void dgXML_Edit(Object sender,DataGridCommandEventArgs e) 编辑dgXML.EditItemIndex = (int)e.Item.ItemIndex;CreateTable();public void dgXML_Update(Object sender, DataGridCommandEventArgs e) 更新tryint CPI = (int)dgXML.CurrentPageIndex;int EII = (int)e.Item.ItemIndex; 取得当前更新页的行数与CurrentPage
18、Indexint row = CPI*5+EII;/lb.Text = row.ToString();string ImageUrl = (TextBox)e.Item.Cells2.Controls0).Text;string NavigateUrl = (TextBox)e.Item.Cells3.Controls0).Text; string AlternateText = (TextBox)e.Item.Cells4.Controls0).Text;string Keyword = (TextBox)e.Item.Cells5.Controls0).Text;string Impres
19、sions = (TextBox)e.Item.Cells6.Controls0).Text; 以上取得各项值dv.Delete(row);DataRow dr = ds.Tables0.NewRow();dr0 = ImageUrl;dr1 = NavigateUrl;dr2 = AlternateText;dr3 = Keyword;dr4 = Impressions;ds.Tables0.Rows.Add(dr);ds.WriteXml(sPath);catch(Exception ee)lb.Text = ee.ToString();dgXML.EditItemIndex = -1;C
20、reateTable();public void PanelShow(Object sender,EventArgs e)AddItem.Visible = true;public void AddItem_Click(Object sender,EventArgs e)DataRow dr = ds.Tables0.NewRow();dr0 = mUrl.Text;dr1 = aUrl.Text;dr2 = mText.Text;dr3 = aKey.Text;dr4 = aTime.Text;ds.Tables0.Rows.Add(dr);ds.WriteXml(sPath);CreateTable();AddItem.Visible=false;精彩春风之广告管理asp:EditCommandColumn Edi