如何使鏈接失效?來者有分,在線等候.

weiljj 2003-12-09 02:06:18

<a href="" OnClick="Window.Close:OnClick=False">Close</a>
我要在頁面顯示一個超鏈接,但它的功能只是關閉當前的頁面而已,不鏈接到任何頁.因VBScript中是沒有Return的,所有我將Return False改成OnClick=False,但總是不成功,我改成<a href="" OnClick="JavaScript:Window.Close;Return False;">Close</a>還是不能成功,不知要怎樣做呢?

...全文

65 28 打赏收藏转发到动态举报

写回复

用AI写文章

28 条回复

切换为时间正序

请发表友善的回复…

发表回复

swich 2003-12-11

打赏
举报

<a href="javascript:window.close();">close</a>

paz 2003-12-11

打赏
举报

liaoxing 2003-12-11

打赏
举报

顶一下.

xdspower 2003-12-11

打赏
举报

<a href="VBS:window.close">close</a>
确实不行，不过
<a href="VBScript:window.close">close</a>可行，但要出警告框

zhuomaocn 2003-12-11

打赏
举报

<br><a onclick="vbscript:window.close()" href="#">close</a>
<br><a onclick="javascript:self.close()" href="#">close</a>

kirc 2003-12-11

打赏
举报

这样解决:
<a onclick="vbscript:window.close()" href="#">close</a>

xdspower 2003-12-11

打赏
举报

<a href="VBS:window.close">close</a>
不行吗？？？？

rayuser1314520 2003-12-11

打赏
举报

我也顶^-^

weiljj 2003-12-11

打赏
举报

又再自已頂一下了,還以為問題簡單會很快解決,早知道應該加上"UP有分了"

weiljj 2003-12-11

打赏
举报

好呀,總算有答案了.
<a onclick="vbscript:window.close()" href="#">close</a>
有效,結案,給分.

weiljj 2003-12-10

打赏
举报

再自已頂一下.

weiljj 2003-12-09

打赏
举报

migichen(桐秋)說得不對吧,我現在暫時替代方法是用按鈕處理.如下:
<p><INPUT id=btnClose type=button value=關閉 name=btnClose OnClick="VBS:window.close" size=64 style="WIDTH: 67px; HEIGHT: 24px"></p>
但我還是想用超鏈接的方式,因為這樣頁面看上去更協調一些.
難道就沒人能解決一下我的這個難道嗎?

migichen 2003-12-09

打赏
举报

用WINDOWS.open在新窗口打开ShowError.Asp才可以用WINDOWS。CLOSE（）

weiljj 2003-12-09

打赏
举报

怎麼沒人頂了呀,再自頂一下.

云帆 2003-12-09

打赏
举报

顶！

weiljj 2003-12-09

打赏
举报

<a href="javascript:self.close();">close</a>效果同<a href="javascript:window.close();">close</a>一樣,則是每次點Close時總會閃一下,頁面還是沒有關閉.

weiljj 2003-12-09

打赏
举报

如果是:<a href="window.close()">close</a>
點Close後,系統提示找不到頁http://mis0584/prjWebPro/window.close()
如果是:<a href="javascript:window.close();">close</a>
則是每次點Close時總會閃一下,頁面還是沒有關閉.
我的主頁內容為:
<%
dim strUserID,strPassWord,strErr
strUserID=request.form("txtUserID")
strPassWord=request.form("txtPassWord")
'測試UserID,PassWord是否合法,如不合法,則OpenConn返回一個帶錯誤提示訊息的字串.
strErr=Session("objPro").OpenConn(strUserID,strPassWord)
if not len(strErr)=0 then
Session("strErr")=strErr
Response.Write "<SCRIPT LANGUAGE=vbscript>"
'以上目的為:當有錯時,出現一個錯誤提示頁面說明錯誤提示,Main.asp則返回至上一頁(即輸入UserID和PassWord的頁,讓用戶重新輸入.
Response.Write "window.showModalDialog ""/prjWebPro/ShowError.asp"",,""center:yes;help:no;resizable:no;status:no"":window.history.go(-1)"
Response.Write "</Script>"
Response.Flush
Response.End
end if
%>

ShowError.Asp的內容為:
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<Title>Show Error </Title>
</HEAD>

<BODY>
<%
dim strErr
strErr=Session("strErr")
Session.Contents.Remove("strErr")
strErr=replace(strErr,chr(13) & chr(10),"<BR>")
Response.Write strErr
%>
'就是這里了,總是不能關閉自身頁面。
<a href="window.close()">close</a>
</BODY>
</HTML>