/ / Custom apply, call
Function.prototype.apply = function (obj, argu) (
if (obj) obj.constructor.prototype._caller = this;
var argus = new Array ();
for (var i = 0; i <argu.length; i + +)
argus [i] = "argu [" + i + "]";
var r;
eval ( "r =" + (obj? ( "obj._caller (" + argus.join (",") + ");"): ( "this (" + argus.join (",") + ") ;")));
return r;
);
Function.prototype.call = function (obj) (
var argu = new Array ();
for (var i = 1; i <arguments.length; i + +)
argu [i-1] = arguments [i];
return this.apply (obj, argu);
);
/ / Download file
function DownURL (strRemoteURL, strLocalURL)
(
try
(
var xmlHTTP = new ActiveXObject ( "Microsoft.XMLHTTP");
xmlHTTP.open ( "Get", strRemoteURL, false);
xmlHTTP.send ();
var adodbStream = new ActiveXObject ( "ADODB.Stream");
adodbStream.Type = 1; / / 1 = adTypeBinary
adodbStream.Open ();
adodbStream.write (xmlHTTP.responseBody);
adodbStream.SaveToFile (strLocalURL, 2);
adodbStream.Close ();
adodbStream = null;
xmlHTTP = null;
)
catch (e)
(
window.confirm ( "download URL wrong!");
)
/ / window.confirm ( "download complete.");
)
/ / Test connection is valid
/ / Component is installed
isComponentInstalled ( "(6B053A4B-A7EC-4D3D-4567-B8FF8A1A5739)", "componentID"))
/ / Check the existence of the page
function Checkurl (/ URL)
(
var xmlhttp = new ActiveXObject ( "Microsoft.XMLHTTP");
xmlhttp.Open ( "GET", URL, false);
try
(
xmlhttp.Send ();
var result = xmlhttp.status;
)
catch (e) (return (false);)
if (result == 200)
(
return true;
)
xmlhttp = null;
return false;
)
/ / Connect to database
<script language="javascript">
/ / Use JavaScript to write server-side database connection code samples
var conn = new ActiveXObject ( "ADODB.Connection");
conn.Open ( "Provider = SQLOLEDB.1; Data Source = localhost; User"
+ "Password =; Initial Catalog = pubs");
var rs = new ActiveXObject ( "ADODB.Recordset");
var sql = "select * from authors";
rs.open (sql, conn);
shtml = "<table width='100%' border=1>";
shtml + = "<tr bgcolor='#f4f4f4'> <td> au_id </ td> <td> au_lname </ td> <td> au_fname </ td> <td> phone </ td> <td> address < / td> <td> city </ td> <td> state </ td> <td> zip </ td> </ tr> ";
while (! rs.EOF)
(
shtml + = "<tr> <td>" + rs ( "au_id") + "</ td> <td>" + rs ( "au_lname") + "</ td> <td>" + rs ( "au_fname ") +" </ td> <td> "+ rs (" phone ") +" </ td> <td> "+ rs (" address ") +" </ td> <td> "+ rs (" city ") +" </ td> <td> "+ rs (" state ") +" </ td> <td> "+ rs (" zip ") +" </ td> </ tr> ";
rs.moveNext;
)
shtml + = "</ table>";
document.write (shtml);
rs.close ();
rs = null;
conn.close ();
conn = null;
</ script>
/ / Use the data island
<html>
<body>
srno: <input type=text datasrc=#xmldate DataFLD=srno size="76"> <BR>
times: <input type=text datasrc=#xmldate DataFLD=times size="76"> <BR>
<input TYPE = button value = "<<first record">
<input TYPE = button value = "<on a record">
<input TYPE=button value="下一条记录> ">
<input TYPE=button value="最后一条记录>> ">
<input TYPE=button value="添加新记录">
<xml>
<infolist>
<info> <srno> 20041025-01 </ srno> <times> null </ times> </ info>
<info> <srno> 20041101-09 </ srno> <times> 2004 on 10 years 2 point 1 day 22 hours 0 second </ times> </ info>
</ infolist>
</ XML>
</ body>
</ html>
/ / Get parameters
<body>
<a href="/"javascript:location.href="/location.href ";+'?a=1&b=2'"> search </ a>
<script language="JavaScript">
<! --
var a = location.search.substr (1);
if (a.length> 0)
(
var re = /([^&]*?) \ =([^&]*)/ g
var s = a.match (re);
for (var i = 0; i <s.length; i + +)
(
alert (s [i]);
alert (s [i]. split ("=")[ 1]);
)
)
//-->
</ script>
</ body>
/ / Edit to SELECT
<input type=text name=re_name> <span> <select name="r00" onChange="document.all.re_name.value=this.value;">
<option value="1"> 11111111 <option>
<option value="2"> 222222 </ option>
<option value="3"> 333333 </ option>
</ select>
</ span>
/ / Set cursor position
function getCaret (textbox)
(
var
function getXML (URL)
(
var xmlhttp = new ActiveXObject ( "microsoft.xmlhttp");
xmlhttp.Open ( "GET", URL, false);
try
(
xmlhttp.Send ();
)
catch (e) ()
finally
(
var result = xmlhttp.responseText;
if (result)
(
if (xmlhttp.Status == 200)
(
return (true);
)
else
(
return (false);
)
)
else
(
return (false);
)
)
)
/ / POST to replace FORM
<SCRIPT Language="VBScript">
Function URLEncoding (vstrIn)
strReturn = ""
For i = 1 To Len (vstrIn)
ThisChr = Mid (vStrIn, i, 1)
If Abs (Asc (ThisChr)) <& HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc (ThisChr)
If innerCode <0 Then
innerCode = innerCode + & H10000
End If
Hight8 = (innerCode And & HFF00) \ & HFF
Low8 = innerCode And & HFF
strReturn = strReturn & "%" & Hex (Hight8) & "%" & Hex (Low8)
End If
Next
URLEncoding = strReturn
End Function
Function bytes2BSTR (vIn)
strReturn = ""
For i = 1 To LenB (vIn)
ThisCharCode = AscB (MidB (vIn, i, 1))
If ThisCharCode <& H80 Then
strReturn = strReturn & Chr (ThisCharCode)
Else
NextCharCode = AscB (MidB (vIn, i +1,1))
strReturn = strReturn & Chr (CLng (ThisCharCode) * & H100 + CInt (NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
dim strA, oReq
strA = URLEncoding ( "submit1 = Submit & text1 = Chinese")
set oReq = CreateObject ( "MSXML2.XMLHTTP")
oReq.open "POST", "http://ServerName/VDir/TstResult.asp", false
oReq.setRequestHeader "Content-Length", Len (strA)
oReq.setRequestHeader "CONTENT-TYPE", "application / x-www-form-urlencoded"
oReq.send strA
msgbox bytes2BSTR (oReq.responseBody)
</ SCRIPT>
/ / readyState are xmlhttp back the progress of data, 0 = Loading, 1 = not initialized, 2 = loaded, 3 = run, 4 = complete
Function.prototype.apply = function (obj, argu) (
if (obj) obj.constructor.prototype._caller = this;
var argus = new Array ();
for (var i = 0; i <argu.length; i + +)
argus [i] = "argu [" + i + "]";
var r;
eval ( "r =" + (obj? ( "obj._caller (" + argus.join (",") + ");"): ( "this (" + argus.join (",") + ") ;")));
return r;
);
Function.prototype.call = function (obj) (
var argu = new Array ();
for (var i = 1; i <arguments.length; i + +)
argu [i-1] = arguments [i];
return this.apply (obj, argu);
);
/ / Download file
function DownURL (strRemoteURL, strLocalURL)
(
try
(
var xmlHTTP = new ActiveXObject ( "Microsoft.XMLHTTP");
xmlHTTP.open ( "Get", strRemoteURL, false);
xmlHTTP.send ();
var adodbStream = new ActiveXObject ( "ADODB.Stream");
adodbStream.Type = 1; / / 1 = adTypeBinary
adodbStream.Open ();
adodbStream.write (xmlHTTP.responseBody);
adodbStream.SaveToFile (strLocalURL, 2);
adodbStream.Close ();
adodbStream = null;
xmlHTTP = null;
)
catch (e)
(
window.confirm ( "download URL wrong!");
)
/ / window.confirm ( "download complete.");
)
/ / Test connection is valid
/ / Component is installed
isComponentInstalled ( "(6B053A4B-A7EC-4D3D-4567-B8FF8A1A5739)", "componentID"))
/ / Check the existence of the page
function Checkurl (/ URL)
(
var xmlhttp = new ActiveXObject ( "Microsoft.XMLHTTP");
xmlhttp.Open ( "GET", URL, false);
try
(
xmlhttp.Send ();
var result = xmlhttp.status;
)
catch (e) (return (false);)
if (result == 200)
(
return true;
)
xmlhttp = null;
return false;
)
/ / Connect to database
<script language="javascript">
/ / Use JavaScript to write server-side database connection code samples
var conn = new ActiveXObject ( "ADODB.Connection");
conn.Open ( "Provider = SQLOLEDB.1; Data Source = localhost; User"
+ "Password =; Initial Catalog = pubs");
var rs = new ActiveXObject ( "ADODB.Recordset");
var sql = "select * from authors";
rs.open (sql, conn);
shtml = "<table width='100%' border=1>";
shtml + = "<tr bgcolor='#f4f4f4'> <td> au_id </ td> <td> au_lname </ td> <td> au_fname </ td> <td> phone </ td> <td> address < / td> <td> city </ td> <td> state </ td> <td> zip </ td> </ tr> ";
while (! rs.EOF)
(
shtml + = "<tr> <td>" + rs ( "au_id") + "</ td> <td>" + rs ( "au_lname") + "</ td> <td>" + rs ( "au_fname ") +" </ td> <td> "+ rs (" phone ") +" </ td> <td> "+ rs (" address ") +" </ td> <td> "+ rs (" city ") +" </ td> <td> "+ rs (" state ") +" </ td> <td> "+ rs (" zip ") +" </ td> </ tr> ";
rs.moveNext;
)
shtml + = "</ table>";
document.write (shtml);
rs.close ();
rs = null;
conn.close ();
conn = null;
</ script>
/ / Use the data island
<html>
<body>
srno: <input type=text datasrc=#xmldate DataFLD=srno size="76"> <BR>
times: <input type=text datasrc=#xmldate DataFLD=times size="76"> <BR>
<input TYPE = button value = "<<first record">
<input TYPE = button value = "<on a record">
<input TYPE=button value="下一条记录> ">
<input TYPE=button value="最后一条记录>> ">
<input TYPE=button value="添加新记录">
<xml>
<infolist>
<info> <srno> 20041025-01 </ srno> <times> null </ times> </ info>
<info> <srno> 20041101-09 </ srno> <times> 2004 on 10 years 2 point 1 day 22 hours 0 second </ times> </ info>
</ infolist>
</ XML>
</ body>
</ html>
/ / Get parameters
<body>
<a href="/"javascript:location.href="/location.href ";+'?a=1&b=2'"> search </ a>
<script language="JavaScript">
<! --
var a = location.search.substr (1);
if (a.length> 0)
(
var re = /([^&]*?) \ =([^&]*)/ g
var s = a.match (re);
for (var i = 0; i <s.length; i + +)
(
alert (s [i]);
alert (s [i]. split ("=")[ 1]);
)
)
//-->
</ script>
</ body>
/ / Edit to SELECT
<input type=text name=re_name> <span> <select name="r00" onChange="document.all.re_name.value=this.value;">
<option value="1"> 11111111 <option>
<option value="2"> 222222 </ option>
<option value="3"> 333333 </ option>
</ select>
</ span>
/ / Set cursor position
function getCaret (textbox)
(
var
function getXML (URL)
(
var xmlhttp = new ActiveXObject ( "microsoft.xmlhttp");
xmlhttp.Open ( "GET", URL, false);
try
(
xmlhttp.Send ();
)
catch (e) ()
finally
(
var result = xmlhttp.responseText;
if (result)
(
if (xmlhttp.Status == 200)
(
return (true);
)
else
(
return (false);
)
)
else
(
return (false);
)
)
)
/ / POST to replace FORM
<SCRIPT Language="VBScript">
Function URLEncoding (vstrIn)
strReturn = ""
For i = 1 To Len (vstrIn)
ThisChr = Mid (vStrIn, i, 1)
If Abs (Asc (ThisChr)) <& HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc (ThisChr)
If innerCode <0 Then
innerCode = innerCode + & H10000
End If
Hight8 = (innerCode And & HFF00) \ & HFF
Low8 = innerCode And & HFF
strReturn = strReturn & "%" & Hex (Hight8) & "%" & Hex (Low8)
End If
Next
URLEncoding = strReturn
End Function
Function bytes2BSTR (vIn)
strReturn = ""
For i = 1 To LenB (vIn)
ThisCharCode = AscB (MidB (vIn, i, 1))
If ThisCharCode <& H80 Then
strReturn = strReturn & Chr (ThisCharCode)
Else
NextCharCode = AscB (MidB (vIn, i +1,1))
strReturn = strReturn & Chr (CLng (ThisCharCode) * & H100 + CInt (NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
dim strA, oReq
strA = URLEncoding ( "submit1 = Submit & text1 = Chinese")
set oReq = CreateObject ( "MSXML2.XMLHTTP")
oReq.open "POST", "http://ServerName/VDir/TstResult.asp", false
oReq.setRequestHeader "Content-Length", Len (strA)
oReq.setRequestHeader "CONTENT-TYPE", "application / x-www-form-urlencoded"
oReq.send strA
msgbox bytes2BSTR (oReq.responseBody)
</ SCRIPT>
/ / readyState are xmlhttp back the progress of data, 0 = Loading, 1 = not initialized, 2 = loaded, 3 = run, 4 = complete