ASP精华问题9 - 王朝网络

1、〖打开〗命令的实现

[格式]:document.execCommand("open")

[说明]这跟VB等编程设计中的webbrowser控件中的命令有些相似，大家也可依此琢磨琢磨。

[举例]在之间加入：

打开

2、〖使用记事本编辑〗命令的实现

[格式]:location.replace("view-source:"+location)

[说明]打开记事本，在记事本中显示该网页的源代码。

[举例]在之间加入：

使用记事本编辑

3、〖另存为〗命令的实现

[格式]:document.execCommand("saveAs")

[说明]将该网页保存到本地盘的其它目录！

[举例]在之间加入：

另存为

4、〖打印〗命令的实现

[格式]:document.execCommand("print")

[说明]当然，你必须装了打印机！

[举例]在之间加入：

打印

5、〖关闭〗命令的实现

[格式]:window.close();return false

[说明]将关闭本窗口。

[举例]在之间加入：

关闭本窗口

二、【编辑(E)】菜单中的命令的实现

〖全选〗命令的实现

[格式]:document.execCommand("selectAll")

[说明]将选种网页中的全部内容！

[举例]在之间加入：

全选

三、【查看(V)】菜单中的命令的实现

1、〖刷新〗命令的实现

[格式]:location.reload() 或 history.go(0)

[说明]浏览器重新打开本页。

[举例]在之间加入：

刷新

或加入:刷新

2、〖源文件〗命令的实现

[格式]:location.replace("view-source:"+location)

[说明]查看该网页的源代码。

[举例]在之间加入：

查看源文件

3、〖全屏显示〗命令的实现

[格式]:window.open(document.location,"url","fullscreen")

[说明]全屏显示本页。

[举例]在之间加入：

全屏显示

四、【收藏(A)】菜单中的命令的实现

1、〖添加到收藏夹〗命令的实现

[格式]:window.external.AddFavorite('url', '“网站名”)

[说明]将本页添加到收藏夹。

[举例]在之间加入：

添加到收藏夹

2、〖整理收藏夹〗命令的实现

[格式]:window.external.showBrowserUI("OrganizeFavorites",null)

[说明]打开整理收藏夹对话框。

[举例]在之间加入：

整理收藏夹

五、【工具(T)】菜单中的命令的实现

〖internet选项〗命令的实现

[格式]:window.external.showBrowserUI("PrivacySettings",null)

[说明]打开internet选项对话框。

[举例]在之间加入：

internet选项

六、【工具栏】中的命令的实现

1、〖前进〗命令的实现

[格式]history.go(1) 或 history.forward()

[说明]浏览器打开后一个页面。

[举例]在之间加入：

前进

或加入:前进

2、〖后退〗命令的实现

[格式]:history.go(-1) 或 history.back()

[说明]浏览器返回上一个已浏览的页面。

[举例]在之间加入：

后退

或加入:后退

3、〖刷新〗命令的实现

[格式]:document.reload() 或 history.go(0)

[说明]浏览器重新打开本页。

[举例]在之间加入：

刷新

或加入:刷新

七、其它命令的实现

〖定时关闭本窗口〗命令的实现

[格式]:settimeout(window.close(),关闭的时间)

[说明]将关闭本窗口。

[举例]在之间加入：

3秒关闭本窗口

如果大家还整理出其他用Javascript实现的命令，不妨投稿来和大家分享。

【附】为了方便读者，下面将列出所有实例代码，你可以把它们放到一个html文件中，然后预览效果。html文件下载。

打开

使用记事本编辑

另存为

打印

关闭本窗口

全选

刷新刷新

查看源文件

全屏显示

添加到收藏夹

整理收藏夹

internet选项

前进1前进2

后退1后退2

3秒关闭本窗口

||||||4.无法写入cookie的常见问题

1.确定你的response.cookie代码在第一个之前

2.设置cookies的截止日期response.cookie("cookiename").expires = expiresdate;

设置cookie的请求指定路径:

就是说你的cookie写入后，指定路径中的页面才有权得到这个cookie

例如：指定路径response.cookie("cookiename").path = "http://www.domain.com/path";

那么只有path目录中的页面才能得到request.cookie("cookiename")

5.vbscript的错误捕捉:

on error resume next '打开错误捕捉

...

if err.number<>0 then 'err是vbs内置的对象，类似于try catch的exception

err.clear '错误被处理了就要及时把错误标记清空

'输出自己的出错信息,或用err.description显示系统出错信息

end if

on error goto 0 '关闭错误捕捉。

6.ServerVariables集合用于得到系统的环境变量用以下程序可以讲ServerVariables集合的所有内容名称都显示出来

response.write(""&item&":")

response.write(request.serverVariables(item))

具体的系统环境变量如下：

Auth_Type 当用户访问一个被保护的脚本时，用于判断是否是一个有效用户

Content_Length 客户端所提交的正文的长度

Content_Type 提交的正文数据类型

Gateway_Interface 服务器所使用的CGI修订版本

Login_User 用户是否以Windows NT帐户登陆

Path_Info 客户端路径信息

Query_String 在一个HTTP请求的查询信息

Remote_Addr 发送请求的远程主机的ip地址，利用此地址可以知道访问这的来源

Remote_Host 发送请求的远程主机名，如果远端服务器不包含该信息，则返回空字符串

Request_Method 数据请求的方法

Script_Map url的基本部分

Script_Name 执行脚本的虚拟路径

Server_Name 该服务器的名称DNS的别名，IP地址及其制定的url路径

Server_Port 数据请求所使用的端口号

Server_Software 服务器端运行的软件名称及版本号

Server_Protocol 要求信息的协议及修订版本

URL 系统的URL路径

HTTP_REFERER 当通过链接到大当前页面时，HTTP_REFERER header 保存这个用户的来源

8.HTML文件标记

||||||9.没什么好共享的，但太感动了，把做树型菜单的js函数贴出来，

var lastObj

function expandIt(obj)

{

if(lastObj != null)

{

if(obj == lastObj)

{

if(obj.style.display == "none")

{

obj.style.display = "";

}

else

{

obj.style.display = "none"

}

else

{

lastObj.style.display = "none";

obj.style.display = "";

}

else

{

obj.style.display = "";

}

lastObj = obj

}

</SCRIPT>

dim id

id = request("id")

dim strsql,rs

strsql="select * from p_type where slanguage=1 and typelevel=1 order by typename"

set rs=fgetrslist(strsql)

do while not rs.eof

<tr>

<td height="25" class="LEFTLINKS"><img width="30" height="0" align="absmiddle" /><b><%if rs("isleaf")=0 then%><a href="#" onClick="javascript:expandIt(kb<%=rs("id")%>);return false"><%else%><a href="<%=request.ServerVariables("SCRIPT_NAME")%>?idtree=<%=rs("idtree")%>" ><%end if%><%=server.HTMLEncode(right((rs("typename")&""),len(rs("typename")&"")-2))%></a></b></td>

</tr>

IF clng(id)=clng(rs("id")) then

else

<tr id="kb<%=rs("id")%>" style="display:none;">

end if

<td>

<table>

dim rs1

strsql="select * from p_type where parentid="&rs("id")&" and slanguage=1 order by typename"

set rs1=fgetrslist(strsql)

do while not rs1.eof

<img width="40" height="0" align="absmiddle" /><a href="<%=request.ServerVariables("SCRIPT_NAME")%>?idtree=<%=rs1("idtree")%>&id=<%=rs("id")%>" ><%=server.HTMLEncode(right((rs1("typename")&""),len(rs1("typename")&"")-2))%></a></td></tr>

rs1.movenext

loop

rs1.close

set rs1=nothing

</table>

</td>

</tr>

rs.movenext

loop

rs.close

set rs=nothing

</table>

10.计算网页文本的汉字字数，去掉了表格以外的所有标识。

Function GetLength(strChinese1)

Dim strWord, ascWord, lenTotal

strChinese1 = Trim(strChinese1)

If strChinese1 = "" Or Vartype(strChinese1) = vbNull Then

GetLength = 0

Exit Function

End If

lenTotal = 0

For GetLengthi=1 to Len(strChinese1)

strWord = Mid(strChinese1, GetLengthi, 1)

ascWord = Asc(strWord)

If ascWord < 0 or ascWord > 127 then

lenTotal = lenTotal + 1

Elseif ascWord = 63 And strWord <> "?" then

lenTotal = lenTotal + 1

Elseif ascWord = 44 And strWord <> "," then

lenTotal = lenTotal + 1

Elseif ascWord = 33 And strWord <> "!" then

lenTotal = lenTotal + 1

Else

lenTotal = lenTotal

End If

GetLength = lenTotal

End Function

||||||11.<table width="95%" cellspacing="1" cellpadding="5" align=center bgcolor=999999>

<tr bgcolor=#ffcc00><td colspan="2" height=25><b>服务器有关的变量</b></td></tr>

<tr bgcolor=#efefef><td valign=top>显示客户发出的所有HTTP标题</td><td><%=request.ServerVariables("All_Http")%></td></tr>

<tr bgcolor=#efefef><td valign=top>检取ISAPIDLL的metabase路径</td><td><%=request.ServerVariables("APPL_MD_PATH")%></td></tr>

<tr bgcolor=#efefef><td valign=top>显示站点物理路径</td><td><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>

<tr bgcolor=#efefef><td valign=top>显示请求机器IP地址</td><td><%=request.ServerVariables("REMOTE_ADDR")%></td></tr>

<tr bgcolor=#efefef><td valign=top>服务器IP地址</td><td><%=Request.ServerVariables("LOCAL_ADDR")%></td></tr>

<tr bgcolor=#efefef><td valign=top>显示执行SCRIPT的虚拟路径</td><td><%=request.ServerVariables("SCRIPT_NAME")%></td></tr>

<tr bgcolor=#efefef><td valign=top>返回服务器的主机名，DNS别名，或IP地址</td><td><%=request.ServerVariables("SERVER_NAME")%></td></tr>

<tr bgcolor=#efefef><td valign=top>返回服务器处理请求的端口</td><td><%=request.ServerVariables("SERVER_PORT")%></td></tr>

<tr bgcolor=#efefef><td valign=top>协议的名称和版本</td><td><%=request.ServerVariables("SERVER_PROTOCOL")%></td></tr>

<tr bgcolor=#efefef><td valign=top>服务器的名称和版本</td><td><%=request.ServerVariables("SERVER_SOFTWARE")%></td></tr>

<tr bgcolor=#efefef><td valign=top>服务器操作系统</td><td><%=Request.ServerVariables("OS")%></td></tr>

<tr bgcolor=#efefef><td valign=top>脚本超时时间</td><td><%=Server.ScriptTimeout%> 秒</td></tr>

<tr bgcolor=#efefef><td valign=top>服务器CPU数量</td><td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>

<tr bgcolor=#efefef><td valign=top width=30%>服务器解译引擎</td><td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersi

[1] [2] 下一页