Javascript技术技巧大全（五）_Javascript教程-查字典教程网

//POST代替FORM

<SCRIPTlanguage="VBScript">

FunctionURLEncoding(vstrIn)

strReturn=""

Fori=1ToLen(vstrIn)

ThisChr=Mid(vStrIn,i,1)

IfAbs(Asc(ThisChr))<&HFFThen

strReturn=strReturn&ThisChr

Else

innerCode=Asc(ThisChr)

IfinnerCode<0Then

innerCode=innerCode+&H10000

EndIf

Hight8=(innerCodeAnd&HFF00)&HFF

Low8=innerCodeAnd&HFF

strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8)

EndIf

URLEncoding=strReturn

EndFunction

Functionbytes2BSTR(vIn)

strReturn=""

Fori=1ToLenB(vIn)

ThisCharCode=AscB(MidB(vIn,i,1))

IfThisCharCode<&H80Then

strReturn=strReturn&Chr(ThisCharCode)

Else

NextCharCode=AscB(MidB(vIn,i+1,1))

strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))

i=i+1

EndIf

bytes2BSTR=strReturn

EndFunction

dimstrA,oReq

strA=URLEncoding("submit1=Submit&text1=中文")

setoReq=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.sendstrA

msgboxbytes2BSTR(oReq.responseBody)

</SCRIPT>

//readyState是xmlhttp返回数据的进度，0=载入中,1=未初始化,2=已载入,3=运行中,4=完成

//组件是否安装

isComponentInstalled("{6B053A4B-A7EC-4D3D-4567-B8FF8A1A5739}","componentID"))

//检查网页是否存在

functionCheckURL(URL)

{

varxmlhttp=newActiveXObject("Microsoft.XMLHTTP");

xmlhttp.Open("GET",URL,false);

try

{

xmlhttp.Send();

varresult=xmlhttp.status;

}

catch(e){return(false);}

if(result==200)

{

returntrue;

}

xmlhttp=null;

returnfalse;

}

//连接数据库

<scriptlanguage="javascript">

//用JavaScript写服务器端连接数据库的代码示例

varconn=newActiveXObject("ADODB.Connection");

conn.Open("Provider=SQLOLEDB.1;DataSource=localhost;UserID=sa;"

+"Password=;InitialCatalog=pubs");

varrs=newActiveXObject("ADODB.Recordset");

varsql="select*fromauthors";

rs.open(sql,conn);

shtml="<tablewidth='100%'border=1>";

shtml+="<trbgcolor='#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>

//使用数据岛

<html>

<body>

srno：<inputtype=textdatasrc=#xmldateDataFLD=srnosize="76"><BR>

times：<inputtype=textdatasrc=#xmldateDataFLD=timessize="76"><BR>

<inputid="first"TYPE=buttonvalue="<<第一条记录"onclick="xmldate.recordset.moveFirst()">

<inputid="prev"TYPE=buttonvalue="<上一条记录"onclick="xmldate.recordset.movePrevious()">

<inputid="next"TYPE=buttonvalue="下一条记录>"onclick="xmldate.recordset.moveNext()">

<inputid="last"TYPE=buttonvalue="最后一条记录>>"onclick="xmldate.recordset.moveLast()">

<inputid="Add"TYPE=buttonvalue="添加新记录"onclick="xmldate.recordset.addNew()">

<XMLID="xmldate">

</infolist>

</XML>

</body>

</html>

//获得参数

<body>

<ahref="javascript:location.href=location.href+'?a=1&b=2'">search</a>

<scriptlanguage="JavaScript">

</script>

</body>

//可编辑SELECT

<inputtype=textname=re_name><span><selectname="r00"onChange="document.all.re_name.value=this.value;">

<optionvalue="1">11111111<option>

<optionvalue="2">222222</option>

<optionvalue="3">333333</option>

</select>

</span>