一、如何利用IE浏览器直接打开WORD文档呢？
方法：
<script language=javascript>
var wrd=new ActiveXObject("Word.Application")
wrd.visible=true
alert("您的"+wrd.Application.Caption+"安装路径为：\n"+wrd.Application.Path+"\n版本号是："+wrd.Application.version+"\n注册使用者是："+wrd.Application.UserName)
wrd.Documents.Open("d:\exam.doc")
wrd.Selection.TypeText("This is some text.")
wrd.Application.Activate()
wrd.ActiveDocument.SaveAs("d:\exam111.doc")
wrd=null
Set xlApp = Server.CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open(Server.MapPath("control_file\Book2.xls"))
</script>
<a href="d:\exam.doc">word</a>
<a href=1.doc >word</a>
这样可以点击后，可以在IE中显示。
二、flash代码
<OBJECT
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0
height=103 width=780 border=0
classid=clsid:D27CDB6E-AE6D-11CF-96B8-444553540000>
<param name="_cx" value="20638">
<param name="_cy" value="3810">
<param name="FlashVars" value>
<param name="Movie" value="ssqpic/top2.swf">
<param name="Src" value="ssqpic/top2.swf">
<param name="WMode" value="Transparent">
<param name="Play" value="-1">
<param name="Loop" value="-1">
<param name="Quality" value="High">
<param name="SAlign" value>
<param name="Menu" value="0">
<param name="Base" value>
<param name="AllowScriptAccess" value="always">
<param name="Scale" value="ShowAll">
<param name="DeviceFont" value="0">
<param name="EmbedMovie" value="0">
<param name="BGColor" value>
<param name="SWRemote" value>
<param name="MovieData" value><embed src="top2.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="780" height="144" quality="High" menu="false" wmode="transparent"></OBJECT>
三、右击时弹出新的窗口
<script language="javascript">
function click() {
if (event.button==2) {
window.open("box.htm");
return false;
}
}
document.onmousedown=click()//右键弹出一个新的窗口
</script>
四、获取客户端的时间
<SCRIPT language=JavaScript>
<!--读取客户端时间
var enabled = 0; today = new Date();
var day; var date;
if(today.getDay()==0) day = "星期日"
if(today.getDay()==1) day = "星期一"
if(today.getDay()==2) day = "星期二"
if(today.getDay()==3) day = "星期三"
if(today.getDay()==4) day = "星期四"
if(today.getDay()==5) day = "星期五"
if(today.getDay()==6) day = "星期六"
document.fgColor = "000000";
date = "今天是<span class=t12-en-01>" + " " + (today.getYear()) + "</span>年<span class=t12-en-01>" + (today.getMonth() + 1 ) + "</span>月<span class=t12-en-01>" + today.getDate() + "</span>日" + " " + day +"";
document.write(date);
// -->
</SCRIPT>
五、文件操作--建，读，写，删，复制
<%
path=server.MapPath(".")'取得当前文件所在的目录
todays=now()
folder=year(todays)&"-"&month(todays)&"-"&day(todays)'建一个以当前日期为名的目录
folderpath=path&"\"&folder
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then'判断是否存在目录
response.Write("存在"&folderpath&"<br>")
Else
response.Write("不存在"&folderpath&"<br>")
Set f = fso1.CreateFolder(folderpath)'创建一个文件夹
response.write("创建目录成功"&"<br>")
end if
set fso1=nothing%>
<%filenames=month(now())&day(now())&hour(now())&minute(now())&".txt"'为文件取一个名字
set fso2=Server.CreateObject("Scripting.FileSystemObject")
set file1=fso2.CreateTextFile(folderpath&"\"&filenames)'新建一个文本文件
if err<>0 then '判断是否成功创建
Response.Write "创建文件错误！<br><br>"
err.clear
else
Response.Write "创建文件成功！"&folderpath&"\"&filenames&".txt"&"<br>"
response.write ("现在正在往文件中写入东西。<br>")
content="这是要定入的内容"
file1.WriteLine content'写入内容到文件中
response.write ("现已成功写入到文件中了。<br>")
response.write("读取文件内容<BR>")
set thefile=fso2.OpenTextFile(folderpath&"\"&filenames)'取文本文件中内容
stroldfile=thefile.readall
thefile.close
set thefile=nothing
response.write("文件内容为：")
response.write(stroldfile)
response.write("<Br>")
file1.close:set file1=nothing
end if
set fso2=nothing%>
<%'备份文件
file11=Server.MapPath(folder&"\cishu.txt")'要备份的文件
file22=Server.MapPath(folder&"\cishubackup.txt")'备份文件的名称
set fso3=Server.CreateObject("Scripting.FileSystemObject")
if fso3.fileexists(file11) then'判断文件是否存在
fso3.copyfile file11,file22
response.write "成功备份/恢复数据！"
else
response.write "备份目录下并无您的备份文件！<BR>"
end if
set fso3=nothing
%>
<%
'删除文件
delfilename=Server.MapPath(folder&"\722712.txt")
set fso4=Server.CreateObject("Scripting.FileSystemObject")
if fso4.fileexists(delfilename) then
Set file2 = fso4.GetFile(delfilename)
file2.Delete
if Err <> 0 then
Response.Write "删除文件错误！<br><br>"
Err.Clear
end if
response.write("删除文件成功："&delfilename)
else
response.write("不存在文件："&delfilename&"<br>")
end if
set fso4=nothing
%>
<%
'获取文件夹大小
dim fso5,d,size,showsize
drvpath=folder'folder为所要取的文件夹名称
set fso5=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
set d=fso5.getfolder(drvpath)
size=d.size
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
response.write "<font face=verdana>文件夹"&drvpath &"的大小为："& showsize & "</font><BR>"
%>
<%
'获取文件夹下资料
set fsoobj=server.createobject("scripting.filesystemobject")
dPath = server.MapPath("./")
set dDir = fsoObj.GetFolder(dPath)
set dDrive = fsoObj.GetDrive(dDir.Drive)
%>
文件夹: <%=dPath%>
<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3F8805" width="450">
<tr height="18" align="center" class="backs">
<td width="75">已用空间</td>
<td width="75">可用空间</td>
<td width="75">文件夹数</td>
<td width="75">文件数</td>
<td width="150">创建时间</td>
</tr>
<tr height="18" align="center">
<td><%=dDir.Size%></td>
<td><%=dDrive.AvailableSpace%></td>
<td><%=dDir.SubFolders.Count%></td>
<td><%=dDir.Files.Count%></td>
<td><%=dDir.DateCreated%></td>
</tr>
</td></tr>
</table>
六、利用汉字内码输出汉字
<script language="vbscript">
for i=8000 to 8010
document.write("<font color='blue'>")
document.write(i)
document.write("</font>")
document.write("&#x")&i&(";")
if i mod 20=0 then
document.write("<br>")
end if
next
document.write("0~20,180~383,460~602,686~2012,2036~2102,2104,2106~2108,2110~2112,2114,2115,2117~2120,2123~2125,2127~2152,2155~2159,2268~2294,2296~2298,2300~2459,2267~3000,3130~3219,3232~4999从5000开始显示汉字，9999以上没有用,利用内码显示汉字")
</script>
七、读取键盘操作。放到HEAD代码区中
<script language=javascript>
function document.onkeydown(){
if ((window.event.altKey)&&(window.event.keyCode==37)|| (window.event.keyCode==39))
{ //file://屏/蔽 Alt+ 方向键 → file://屏/蔽 Alt+ 方向键 ←
alert("不准你使用ALT+方向键前进或后退网页！");
event.returnValue=false;
}
if ((event.keyCode==8)||(event.keyCode==116)){ //file://屏/蔽 F5 刷新键 file://屏/蔽退格删除键
event.keyCode=0;
event.returnValue=false;
}
if ((event.ctrlKey)&&(event.keyCode==78)){ //file://屏/蔽 Ctrl+n
event.returnValue=false;
}
if ((event.shiftKey)&&(event.keyCode==121)){ //file://屏/蔽 shift+F10
event.returnValue=false;
}
if (event.keyCode==122){ //file://屏/蔽 F11
event.returnValue=false;
}
}
</script>
九、快速地址跳转
<SCRIPT type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</SCRIPT>
<FORM name="form2">
<SELECT name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%if request("stype")="" then%>
<OPTION value="http://10.88.6.6">www.sina.com</OPTION>
<OPTION value="http://10.88.6.6/ssq/">rs1("smlname")</OPTION>
<%else
response.Write("<option vlaue=>-分类模糊状态-</option>")
end if%>
</SELECT>
</FORM>
十、获取服务器变量
服务器名:<%=Request.ServerVariables("SERVER_NAME")%><br>
服务器IP:<%=Request.ServerVariables("LOCAL_ADDR")%><br>
服务器端口:<%=Request.ServerVariables("SERVER_PORT")%><br>
服务器时间:<%=now%><br>
IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%><br>
脚本超时时间:<%=Server.ScriptTimeout%> 秒<br>
本文件路径:<%=Request.ServerVariables("PATH_TRANSLATED")%><br>
服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个<br>
服务器解译引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %><br>
服务器操作系统:<%=Request.ServerVariables("OS")%><br>
上一次访问一页面:<%=Request.ServerVariables("HTTP_REFERER")%><br>
访问的IP地址:<%=Request.servervariables("REMOTE_ADDR")%><br><br>
当前浏览器名称:<%=Request.ServerVariables( "SCRIPT_NAME")%><br>
十一、获取服务器上所有变量值
<table>
<%
Dim Sv
WITH Response
for each Sv In Request.ServerVariables
.Write "<tr>"
.Write "<td bgcolor='f7efde' align=CENTER> "
.Write Sv
.Write "</td>"
.Write "<td bgcolor='f7efde' align=CENTER> "
.Write Request.ServerVariables(Sv)
.Write "</td></tr>"
next
END WITH
%></table>