点击超链接禁止跳到顶部解决办法

最新推荐文章于 2022-06-15 12:01:17 发布
转载 最新推荐文章于 2022-06-15 12:01:17 发布 · 4.8k 阅读 · 1

本文介绍了解决点击超链接导致页面跳转至顶部的问题。提供了两种方法：一是修改超链接的href属性为'###'；二是将href设置为'javascript:void(0)'。这两种方法都能有效阻止页面跳转行为。

今天豆芽碰到一个问题。我在使用ajax实现与服务器异步传输的时候需要点击一个超链接。但是这个超链接位于网页底部，所以当我每次点击超链接的时候虽然实现了与服务器的通信。但是，页面一下子跳转到了顶部，感觉不是很好。下面是豆芽的解决办法。

1、一般我使用超链接是<a href="#">点击超链接禁止跳到顶部解决办法</a>，如果你的也是这样的话，可以将 href="#" 改为 href="###" ，试试，是不是就可以啦。还有一种办法。

2、链接的形式是更上面的一样的。但是我们将改为：href="javascript:void(0)" 也同样可以解决这个问题。

 

一点点分享，写完收工。呵呵

 

 

文章出自：http://www.aichengxu.com/view/514

统信系统UOS桌面版V20 用户手册
Reyn_观极
07-27 2万+
UOS桌面版V20用户手册。
jQuery笔记
彳亍
11-28 740
1. 简介jQuery是一个JavaScript库，它通过封装原生的JavaScript函数得到一整套定义好的方法。优点： 操作起来非常方便 浏览器的兼容性很好 有大量基于jQuery的插件 1.1. 代码风格在jQuery中，不管是页面元素的选择还是内置功能函数的使用，都是用美元符号“$”来起始的。$(function(){ }); //执行一个匿名函数 $('#box');
点击超链接防止跳到页面顶部的方法
12-28 802
把href的值设置成 "javascript:void(0);"或者"###"等
点击<a>标签，禁止页面自动跳到顶部的解决办法
cocos2dGirl的专栏
12-09 707
"平时开发的HTML表单，链接通常会使用Open new window控件，但这种方法如果是链接到本页面，用来执行一段JS脚本的话，我们一般不希望用户在点解链接后页面滚动到顶部（如果有滚动条的话），可以通过修改上述将链接属性href来实现：即将href="#"改为href="###"，这样用户点击链接执行JS脚本后，滚动条就不会自动跳到TOP了。"  后来就想为什么这么改了就不跳了？
点击超连接不跳到顶部
原始世界
10-27 1368
点击超链接调用javascript函数，一般人都用但这有个缺点，就是点击链接后，页面上的GIF动画将静止。试看如下代码：function Foo(){//do something}//-->http://files.goyk.com/files0729/flash/imagination.swf">使GIF动画静止的链接解决方法探讨：链接此时不影响动画显示，但鼠标移上去后，鼠标及超
html-a标签href点击不跳到顶部（无效跳转）解决
IU
04-28 2631
a标签如果不添加任何值，会默认跳到顶部，如下 <a href="">点击会跳到顶部</a> 解决以上问题可以用下面三种方式 <a href="###">点击无效跳转</a> <a href="javascript:;">点击无效跳转</a> //qq空间用 <a href="javas...
通过href简单实现点击a链接跳到页面中指定的地方
09-28
本文将详细介绍如何通过`href`属性来实现点击a链接跳到页面中指定的地方，这是一种称为内部链接或锚点链接的机制。 首先，让我们了解`<a>`标签的基本结构。`<a>`标签用于创建超链接，其基本语法如下： ```html ...
HTML: 内联框架 超链接 链接分类 文本标签 列表
weixin_56266471的博客
06-15 865
## 内联框架##### 1. 作用：使用内联框架可以引入一个外部的页面##### 2. 语法使用iframe 来创建一个内联框架``` 像图片一样 需要指定引入的页面 ```##### 3. 属性：**src** : 指向一个外部页面的路径，可以使用相对路径**width**: 定义iframe的宽度，单位px**height**:定义iframe 的高度, 单位px**name**: 定义iframe的名称,``` ...
修改代码，当通过其他sheet的超链接回来该sheet时，不要更改原本的显示比例，如本来此sheet的比例是150%，当我从超链接跳转回来该sheet时显示比例应该保持150%Option Explicit Private TextBoxUpdateInProgress As Boolean ' ==== ??????? ==== Dim currentMatches As Collection ' ????????? Dim currentMatchIndex As Long ' ????????? Dim originalZoom As Integer ' ?????? ' ==== ????????? ==== Private Sub TextBox1_Change() Static lastSearch As Single If Timer - lastSearch < 0.3 Then Exit Sub ' 300ms?? lastSearch = Timer Dim searchVal As String: searchVal = Trim(Me.TextBox1.Text) ' ?????? Set currentMatches = New Collection currentMatchIndex = -1 ' ????=3????? If Len(searchVal) < 3 Then Exit Sub Dim arrColumns: arrColumns = Array("A", "C", "D", "F") Dim found As Boolean: found = False application.ScreenUpdating = False application.Calculation = xlCalculationManual application.EnableEvents = False ' ?????????? Dim col As Variant For Each col In arrColumns Dim lastRow As Long lastRow = Cells(Rows.Count, col).End(xlUp).Row If lastRow < 3 Then lastRow = 3 Dim searchRange As Range Set searchRange = Range(col & "3:" & col & lastRow) Dim dataArr As Variant dataArr = searchRange.Value Dim i As Long For i = 1 To UBound(dataArr, 1) If InStr(1, CStr(dataArr(i, 1)), searchVal, vbTextCompare) > 0 Then currentMatches.Add searchRange.Cells(i, 1) found = True End If Next i Next col ' ???????? If currentMatches.Count > 0 Then currentMatchIndex = 0 application.Goto currentMatches(1), True End If CleanExit: application.Calculation = xlCalculationAutomatic application.EnableEvents = True application.ScreenUpdating = True End Sub ' ==== ????????? ==== Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' ??? If currentMatches Is Nothing Then Exit Sub If currentMatches.Count = 0 Then Exit Sub ' ?????????(??) currentMatchIndex = (currentMatchIndex + 1) Mod currentMatches.Count application.Goto currentMatches(currentMatchIndex + 1), True End If End Sub ' ==== ?????? ==== Private Sub Worksheet_Deactivate() originalZoom = ActiveWindow.Zoom End Sub ' ==== ?????? ==== Private Sub Worksheet_Activate() If originalZoom > 10 And originalZoom < 400 Then ActiveWindow.Zoom = originalZoom End If End Sub ' ==== ??????? ==== Private Sub TextBox1_LostFocus() Me.TextBox1.Text = "" End Sub ' ==== ??????? ==== Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) application.ScreenUpdating = False ' ????????? Dim h As Hyperlink For Each h In Me.Hyperlinks With h.Range.Font .ThemeColor = xlThemeColorLight1 .Bold = False End With Next h ' ????????? With Target.Range.Font .Color = RGB(255, 0, 0) .Bold = True End With application.ScreenUpdating = True End Sub ' ==== ?????? ==== Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo CleanExit If TextBoxUpdateInProgress Then Exit Sub DeleteTextBox"InfoTextBox" If Target.CountLarge > 1 Then Exit Sub If Target.Column <> 3 Or Target.Row < 4 Then Exit Sub Dim searchValue As String: searchValue = Trim(CStr(Target.Value)) If Len(searchValue) = 0 Then Exit Sub ' ?????? TextBoxUpdateInProgress = True application.ScreenUpdating = False application.EnableEvents = False application.Calculation = xlCalculationManual ' ??????????? DeleteTextBox "InfoTextBox" ' ??ZPM008????? Dim crcSheet As Worksheet Set crcSheet = ThisWorkbook.Sheets("ZPM008") Dim lastRowCRC As Long lastRowCRC = crcSheet.Cells(crcSheet.Rows.Count, "D").End(xlUp).Row ' ??????? Dim dataCRC As Variant dataCRC = crcSheet.Range("D1:I" & lastRowCRC).Value ' ?????I?? Dim resultDict As Object Set resultDict = CreateObject("Scripting.Dictionary") Dim i As Long For i = 2 To UBound(dataCRC, 1) ' ??2??? If StrComp(CStr(dataCRC(i, 1)), searchValue, vbTextCompare) = 0 Then Dim cellValue As String cellValue = Trim(CStr(dataCRC(i, 6))) ' I? If Len(cellValue) > 0 Then resultDict(cellValue) = 1 ' ?????? End If End If Next i ' ???????? If resultDict.Count = 0 Then MsgBox "???????: " & searchValue, vbInformation GoTo CleanExit End If ' ??super repair????? Dim Sheet3 As Worksheet Set Sheet3 = ThisWorkbook.Sheets("super repair") Dim lastRowSheet3 As Long lastRowSheet3 = Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row ' ??????? Dim dataSheet3 As Variant dataSheet3 = Sheet3.Range("A1:B" & lastRowSheet3).Value ' ????(A??B???) Dim sheet3Map As Object Set sheet3Map = CreateObject("Scripting.Dictionary") For i = 2 To UBound(dataSheet3, 1) ' ??2??? Dim aValue As String: aValue = Trim(CStr(dataSheet3(i, 1))) If Len(aValue) > 0 Then sheet3Map(aValue) = CStr(dataSheet3(i, 2)) End If Next i ' ?????????? Dim finalDict As Object: Set finalDict = CreateObject("Scripting.Dictionary") Dim key As Variant For Each key In resultDict.Keys If sheet3Map.Exists(key) Then finalDict(sheet3Map(key)) = 1 ' ?? End If Next key If finalDict.Count = 0 Then MsgBox "???????????: " & searchValue, vbInformation GoTo CleanExit End If ' ??????? Dim resultString As String For Each key In finalDict.Keys resultString = resultString & key & vbLf Next key resultString = Left(resultString, Len(resultString) - 1) ' ????????? ' ?L????????????? Dim destCell As Range Set destCell = Me.Cells(Target.Row, "L") Dim textBox As Shape Set textBox = Me.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=destCell.Left, _ Top:=destCell.Top, _ Width:=destCell.Width * 4, _ Height:=application.Max(40, finalDict.Count * 14)) With textBox .name = "InfoTextBox" .TextFrame.Characters.Text = resultString .Fill.ForeColor.RGB = RGB(255, 255, 230) ' ??? .Line.ForeColor.RGB = RGB(150, 150, 150) ' ??? .TextFrame.HorizontalAlignment = xlHAlignCenter .TextFrame.VerticalAlignment = xlVAlignCenter .TextFrame.Characters.Font.Size = 9 .TextFrame2.AutoSize = msoAutoSizeShapeToFitText .Placement = xlFreeFloating ' ?????? End With CleanExit: ' ???? TextBoxUpdateInProgress = False application.Calculation = xlCalculationAutomatic application.EnableEvents = True application.ScreenUpdating = True If Err.Number <> 0 Then Err.Clear End Sub ' ==== A????? ==== Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range: Set rng = Intersect(Target, Me.Columns("A")) If rng Is Nothing Then Exit Sub application.ScreenUpdating = False application.EnableEvents = False application.Calculation = xlCalculationManual On Error Resume Next Dim wsTemplate As Worksheet Set wsTemplate = ThisWorkbook.Worksheets("Template") If wsTemplate Is Nothing Then MsgBox "???Template???!", vbExclamation GoTo CleanExit End If Dim cell As Range, wsNew As Worksheet For Each cell In rng If Not IsEmpty(cell) Then Dim strName As String strName = CStr(cell.Value) If Not WorksheetExists(strName) Then ' ?????????? wsTemplate.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Set wsNew = ActiveSheet wsNew.name = strName wsNew.Range("A2").Value = strName ' ????? Me.Hyperlinks.Add _ Anchor:=cell, _ Address:="", _ SubAddress:="'" & strName & "'!A1", _ TextToDisplay:=strName End If End If Next cell CleanExit: application.Calculation = xlCalculationAutomatic application.EnableEvents = True application.ScreenUpdating = True End Sub Private Sub DeleteTextBox(name As String) On Error Resume Next Me.Shapes(name).Delete On Error GoTo 0 End Sub Private Function WorksheetExists(shtName As String) As Boolean On Error Resume Next WorksheetExists = (ThisWorkbook.Worksheets(shtName).name <> "") End Function
最新发布
09-18
当用户点击超链接跳转到其他工作表时，会触发Worksheet_FollowHyperlink事件。但是，当从超链接返回时（即从其他工作表通过超链接跳回到本工作表），实际上也是激活本工作表，所以会触发Worksheet_Activate事件。 ...
锚点链接不链接到顶部，离顶部有点距离
qq_20723129的博客
07-20 1749
https://zhidao.baidu.com/question/438504548.html
HTML中点击超链接 会跳至页面顶部的解决方法
no_head_no_hand的博客
01-06 3736
有时候我们点击超链接不需要跳转至其他页面，只需要改变页面中的某些元素的时候，我们不希望页面跳转至顶部。比如：点击 换张图 切换验证码的时候 这个时候有两种解决方式： 第一种： <a href="#" >换张图</a> <!--会跳转至页面的顶部--> 我们将其改为 <a href="##" >换张图</a> <!--保持当前页面不动--> 第二种： ...
ie6下点击超级连接页面跳到顶端的解决方法--href=“###”的妙用
SeaSonS
04-25 1209
无作用连接一般都是用来执行click事件的，例如： 弹窗 点下连接时，页面不会跳转，而是执行函数eHandler()。 无作用连接通常有2种写法： 和 。 但是，这两种写法，在IE6下会带来一些问题，就是网页的滚动条会移到顶端或者通过eHandler()弹出的窗口会跑到页面顶端去。 解决方法：将连接中的href="#"或href="javascript: void
禁用HTML超链接URL的双击
苏显斌的Java空间
05-26 799
有时候我们希望控制用户在点击URL超链接的时候，只允许点击一次，下面这个方法可以解决这个问题： [code="javascript"] disableDoubleClick = function() { if (typeof(_linkEnabled)=="undefined") _linkEnabled = true; setTimeout("bl...
html超链接点击不,css怎么设置超链接不可点击
weixin_33055757的博客
06-16 1960
css设置超链接不可点击的方法：首先通过“cursor:pointer;”属性使鼠标变成箭头；然后通过“pointer-events:none;”属性使超链接失效不可点击即可。本文操作环境：windows7系统、HTML5&&CSS3版，DELL G3电脑。利用css设置使超链接不能点击或者失效cursor:pointer;pointer-events: none;第一行是使鼠标变...
防止空连接 “#“ 返回到页面顶端的5种方法
lampsunny的专栏
04-12 851
有时我们需要把超连接做成空连接在连接上加onclick事件 比如: test 或着如果出现了滚动条，并且下拉了一些，那么当点击这个链接的时候页面就会返回到顶部. 如何防止点击空连接页面返回到顶部呢.下面有几种方法. 以下为引用的内容： 1.将 test 改为 test 2.将 test 改为 3.将 test 改为 tes2 4.将 test 改为 test 以上
点击＜a＞标签，解决页面自动跳转到顶部的问题
toobad_的博客
10-30 1065
把 href="#"改为 href="###" 即可 浏览器会把“#”当作一种页面跳转的口令，会把页面滚动到原始位置。
有关HTMl中a标签跳转到顶部的解决办法
算法与编程之美
08-08 3388
本文首发于微信公众号："算法与编程之美"，欢迎关注，及时了解更多此系列文章。问题描述<a>标签在HTML中是可以实现页面的跳转。它的定义是：标签用于定义超链接...
javascript超链接禁止点击
03-29
可以通过以下两种方式禁止JavaScript超链接的点击事件： 1. 在JavaScript中使用preventDefault()方法： ``` ()">禁止点击 ``` 2. 通过CSS样式禁用链接： ``` 禁止点击 .disabled { pointer-events: none; ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值