2004年11月_huanghui22

转载日历控件重写

Imports CyberRS2.APS.BusinessFacadeImports CyberRS2.APS.ModelImports CyberRS2.APS.SysCommonImports cyberrs2.APS.BusinessFacade.HolidayFacade Public Class ManageHolidaySet Inher

2004-11-24 10:51:00 1425

原创利用DataGrid显示某目录下的所有文件

1.*.ASPX BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Horizontal" Height="176px" Width="549px">

2004-11-12 17:48:00 1120

转载利用DataGrid显示某目录下的所有文件

1.*.ASPX BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="3" GridLines="Horizontal" Height="176px" Width="549px">

2004-11-12 17:47:00 799

原创日曆控件

1.UCCalendar.ascx function CheckDate(o){ var Str=new String; var StrEnd = new String; Str = o.value; if (Str != "" ) { if (chkformat(Str) == false) { o.focus();

2004-11-12 15:54:00 1086

转载日曆控件

1.UCCalendar.ascx function CheckDate(o){ var Str=new String; var StrEnd = new String; Str = o.value; if (Str != "" ) { if (chkformat(Str) == false) { o.focus();

2004-11-12 15:44:00 848

转载多文件上传

1.MultiUpload.aspx<%@ Page Language="vb" AutoEventWireup="false" Codebehind="MultiUpload.aspx.vb" Inherits="aspxWeb.MultiUpload" %> 多文件上传 function addFile() { var

2004-11-12 10:44:00 713

转载 DataGrid分頁控件

Imports System.Data.SqlClientImports System.DataImports System.Web.UI Public Class UCDataGridPaging Inherits System.Web.UI.UserControl Protected WithEvents btnFirst As System.Web.

2004-11-11 17:57:00 717

转载 ASP.NET常用函数

Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。 Atn(number) 取得一个角度的反正切值。 CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法、设定或传回对象的属性。 CBool(expression) 转换表达式为Boolean 型

2004-11-11 14:42:00 586

转载记录页面停留时间

DateTime startTime; void Page_Init (Object sender, EventArgs e) //页面加载{ startTime = DateTime.Now; //Response.Write("page init"); } protected override void Render(HtmlTextWriter writer) //加载结

2004-11-11 14:12:00 984

转载按下回车表示确定提交

下面的五种方法都可以帮你解决这种问题1.javascript>function document.onkeydown(){ if (event.keyCode == 13) { if (event.srcElement == document.getElementById()) document.getElement

2004-11-11 14:11:00 678

转载当SESSION失效时自动转到其它页面

function window.onunload(){ if (event.clientX window.open("logout.aspx", "logout");}in logout.aspx:

2004-11-11 14:04:00 709

转载客戶端驗證

// 是否為整數function IsInteger(obj,title){ var tmp = parseInt(obj.value) if (isNaN(tmp)) { alert(title+"必須輸入整數!"); obj.focus(); return fals

2004-11-11 10:00:00 736

转载正则表达式專題

1.正则表达式基本语法两个特殊的符号^和$。他们的作用是分别指出一个字符串的开始和结束。例子如下："^The"：表示所有以"The"开始的字符串（"There"，"The cat"等）；"of despair$"：表示所以以"of despair"结尾的字符串；"^abc$"：表示开始和结尾都是"abc"的字符串——呵呵，只有"abc"自己了；"notice"：表示任何包含"not

2004-11-11 09:43:00 1473

转载 HTML标记参考手册

总类（所有HTML文件都有的）文件类型（放在档案的开头与结尾）文件主题（必须放在「文头」区块内）文头（描述性资料，像是「主题」）文体（文件本体）结构性定义（由浏览器控制的显示风格）标题（从1到6，有六层选择） 3.0 标题的对齐 3.0 区分 3.0 区分的对齐引文区块（通常会内缩）强调（通常会以斜体显示）特别强调（通常会以加粗显示）引文

2004-11-10 17:35:00 749

转载頁面防呆

// 是否為整數function IsInteger(obj,title){ var tmp = parseInt(obj.value) if (isNaN(tmp)) { alert(title+":必須輸入整數!"); obj.focus(); return fal

2004-11-05 18:00:00 982

转载自動生成id號(id=id+1)

Private Function GenerateApplicationCode(ByVal str As String) 自動生成案件代碼 Dim i As Integer Dim strAppCode As String strAppCode = str + 1

2004-11-05 17:49:00 1035

转载加解密方法

Imports SystemImports System.Security.CryptographyImports System.TextImports System.IO Public Class Encryptor Private Shared iv As Byte() = {&H12, &H34, &H56, &H78, &H90, &HAB,

2004-11-05 17:46:00 887

转载一個彈出提示框的方法(AlertScript)

Public Sub ShowAlert(ByVal Response As HttpResponse, ByVal Message As String) Dim script As String = "" script &= "alert(" & Message & ");" Response.Write(scr

2004-11-05 16:36:00 994

转载 DataGrid自動分頁功能

Private Sub dtgUsers_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dtgUsers.PageIndexChanged Data

2004-11-05 15:42:00 969

转载 DataGrid中的修改按鈕(ImageButton)

Private Sub dtgUsers_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dtgUsers.EditCommand Dim link As HyperLink = e.

2004-11-05 14:09:00 806

转载 DataGrid中的刪除按鈕(ImageButton)

Private Sub dtgSellers_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtgUsers.ItemDataBound Add delete confirm

2004-11-05 13:53:00 929

转载添加自動增長序號列

Private Sub dtgSellers_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtgUsers.ItemDataBound Ignore the column title

2004-11-05 13:47:00 920

转载 Biz_Application

----------------Biz_ApplicationFacade.aspxPublic Function UpdateAnApplication(ByVal application As BIZ_Application) As EDataAccessState sql.OpenConnection() sql.BeginTransa

2004-11-02 07:26:00 1202

小毛头的BLOG