杂锦代码_3

/*測試參數數組
aa("33","44","55");
function aa(id)
{
     var i, s, numargs = arguments.length;
     Response.Write (numargs);
     Response.Write (arguments[0]);
}

function ArgTest(){
   var i, s, numargs = arguments.length;
   s = numargs;  
   if (numargs < 2)
      s += " argument was passed to ArgTest. It was ";
   else
      s += " arguments were passed to ArgTest. They were " ;
   for (i = 0; i < numargs; i++)
      {
         s += arguments[i] + " ";
      }
   return(s);
}
*/

int numrows = int.Parse(DropDown1.SelectedItem.Value);


// C#
private void Button1_Click(object sender, System.EventArgs e)
{
   DataView aDataView = authorData.Tables[0].DefaultView;
   foreach( DataRowView aRow in aDataView)
   {
      TableRow aTableRow = new TableRow();
      TableCell aCell = new TableCell();
      aCell.Text = aRow["last"].ToString();
      aTableRow.Cells.Add(aCell);
      Table1.Rows.Add(aTableRow);
   }
}

DataBinder.Eval(Container, "DataItem.ITEM_NO").ToString()

AnchorLink.NavigateUrl = "controls_navigationtarget.aspx?name=" + System.Web.HttpUtility.UrlEncode(Name.Text);




using System;
using System.Globalization;
using System.Threading;

public class FormatDate
{
   public static void Main()
   {
      DateTime dt = DateTime.Now;
      // Set the CurrentCulture property to U.S. English.
      Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");
      // Display dt, formatted using the ShortDatePattern
      // and the CurrentThread.CurrentCulture.
      Console.WriteLine(dt.ToString("d"));
      
      // Create a CultureInfo object for German in Germany.
      CultureInfo ci = new CultureInfo("de-DE");
      // Display dt, formatted using the ShortDatePattern
      // and the CultureInfo object.
      Console.WriteLine(dt.ToString("d", ci));
   }
}








[C#]
DateTime dt = DateTime.Now;
DateTimeFormatInfo dfi = new DateTimeFormatInfo();
CultureInfo ci = new CultureInfo("de-DE");

// Make up a new custom DateTime pattern, for demonstration.
dfi.MonthDayPattern = "MM-MMMM, ddd-dddd";

// Use the DateTimeFormat from the culture associated 
// with the current thread.
Console.WriteLine( dt.ToString("d") );  
Console.WriteLine( dt.ToString("m") );

// Use the DateTimeFormat from the specific culture passed.
Console.WriteLine( dt.ToString("d", ci ) );

// Use the settings from the DateTimeFormatInfo object passed.
Console.WriteLine( dt.ToString("m", dfi ) );

// Reset the current thread to a different culture.
Thread.CurrentThread.CurrentCulture = new CultureInfo("fr-BE");
Console.WriteLine( dt.ToString("d") );




System.DateTime .Now .ToShortDateString()
"2002-9-20"
System.DateTime .Now .ToShortTimeString()
"7:45"
System.DateTime .Now .ToLongDateString()
"2002年9月20日"
System.DateTime .Now .ToLongTimeString()
"7:45:41"



if(e.Item.ItemType==ListItemType.Item
 || e.Item.ItemType==ListItemType.AlternatingItem)
{
.


<PUBLIC:PROPERTY NAME="hiliteColor" />
<PUBLIC:ATTACH EVENT="onload" FOR="window" ONEVENT="initColors()"  />
<SCRIPT LANGUAGE="JScript">
function initColors()
{
  // initialize the property
  hiliteColor = (hiliteColor == null) ? "red" : hiliteColor;
}
</SCRIPT>




function getData(presClass){
  var studentNode, studentRef, studentName;
  var teachRef = presClass.childNodes.item(1).getAttribute('ref');
  var teachNode = xmlid.nodeFromID(teachRef);

  classTitle.innerText = presClass.childNodes.item(0).text;
  classID.innerText = presClass.getAttribute('id');
  teacher.innerText = teachNode.childNodes.item(0).text;

  var studentRefs = presClass.childNodes.item(2).childNodes;
  var tableStr = "<TABLE>";
  for (var i=0;i<presClass.childNodes.item(2).childNodes.length;i++){
    studentRef = studentRefs.item(i).getAttribute('ref');
    studentNode =  xmlid.nodeFromID(studentRef);
    studentName = studentNode.childNodes.item(0).text;
    tableStr += "<TR><TD><SPAN ID=" + studentRef +
      " onclick=getStudentInfo()>" +
      studentName + "</SPAN></TD></TR>";
    }
  tableStr += "</TABLE>";
  studentTable.innerHTML = tableStr;
  }

你要想截获Windows的登陆框里的内容，就触及到windows的安全机制。
可以饶过它!!!

function FORM1_onsubmit() {
if (document.FORM1.user.value=="")
{
    alert("Please Input username");
    document.FORM1.user.focus();
    return false ;
}
if (document.FORM1.password1.value=="")
{
    alert("Please input password!!");
    document.FORM1.password1.focus();
    return false;
    }
    var xh=new ActiveXObject("Microsoft.XMLHTTP");
    var uid=document.FORM1.user.value;
    var href1="http://lus/exchange/"+uid;
    var pass1=document.FORM1.password1.value;
    xh.open ("GET",href1,false,uid,pass1);
    xh.send("");
    if (xh.status==200)
    {
         window.open (href1);
    return true;
    }    
    else
    {
    document.FORM1.user.focus();
    return false;
    }
 
}
function window_onload() {
window.FORM1.user.focus();   
}

IIS :Integrated windows authentication
IIS/Exchange:Base Authentication

VB打开文件的四种方法.txt


Balena solution:


code:--------------------------------------------------------------------------------Function FileText (filename$) As String
    Dim handle As Integer
    handle = FreeFile
    Open filename$ For Input As #handle
    FileText = Input$(LOF(handle), handle)
    Close #handle
End Function
--------------------------------------------------------------------------------

Balena second solution

code:--------------------------------------------------------------------------------Function FileText(ByVal filename As String) As String
    Dim handle As Integer
     
    ' ensure that the file exists
    If Len(Dir$(filename)) = 0 Then
        Err.Raise 53  ' File not found
    End If
     
    ' open in binary mode
    handle = FreeFile
    Open filename$ For Binary As #handle
    ' read the string and close the file
    FileText = Space$(LOF(handle))
    Get #handle, , FileText
    Close #handle
End Function
--------------------------------------------------------------------------------

Chirs Eastwood solution

code:--------------------------------------------------------------------------------Dim iFile As Integer 
On Error Resume Next 
iFile = FreeFile 
GetFileContents = Space(FileLen(FileName)) 
Open FileName For Binary As #iFile 
Get #iFile, , GetFileContents 
Close #iFile 
' 
End Function
--------------------------------------------------------------------------------

Cakkie solution

code:--------------------------------------------------------------------------------Dim FFile as Integer
Dim strFile as string 
FFile = FreeFile
Open "yourfile.txt" for input as #FFile
    strFile = input(FileLen("yourfile.txt"),FFile)
Close #FFile