获取href超链接中的参数并把参数填充到到页面上的input输入框中

本文介绍了一种在网页中使用参数的方法,通过示例代码展示了如何在链接中传递ID参数,并在页面加载时利用该参数进行操作。
 例:"<a href='preUpdateCaptureInfo.action?id="+obj.id+"'>修改</a>"
   结果:value="${param.id }---使用param

山东航空学院2024-2025学年第二学期期末考查 计算机科学与技术专业2023级 《Web前端开发技术》上机操作要求 制作一个如下图所示的网页,图中的方框仅表示网页中展示的不同内容所在的区域以及各区域相对位置,各个区域实际大小及是否有边框根据内容需求自定。 图1 布局图 具体要求: 1、文件夹根目录用“学号姓名”命名,主页文件命名index.html,登录页面login.html,注册页面register.html,其它文件及文件夹取名要合适,最终提交直接把文件夹根目录压缩提交。(5分) 2、页面布局使用div+css的方式,页面中除了指定内容栏位,其余栏位内容自行设计。要求页面主题要突出,布局合理,内容完整,外观美观。(25分) 3、导航内容使用文字列表,不允许使用表格组织导航内容。导航超链接设置为空链接,实现鼠标经过颜色变化,鼠标经过导航文字变大及背景颜色变化。(20分) 4、“登录”实现超链接跳转到login.html页面,登录页面布局及包含元素如图2所示。 “注册”实现超链接跳转到register.html页面,注册页面布局、内容自定。(15分) 图2 登录界面示意图 5、搜索栏实现当表单得到焦点,显示下拉菜单,且文本框和下列列表框边框变色,失去焦点隐藏下来菜单,文本框边框恢复颜色。(15分) 6、左边广告位固定屏幕左下角,实现5秒钟后自动关闭;右边广告位使用合适定位固定在网页上,位置不随网页滚动而变化,同右上角加关闭链接,点击实现关闭广告位。(10分) 7、底部栏位按照要求显示相应信息。(5分) 8、代码书写、命名符合规范,在代码中添加必要的注释。(5分) 友情提示: 1、使用其他同学的进行简单修改,双方(多方)判0分。 2、使用网上下载网页进行修改,判0分。 3、考查过程中使用邮箱、QQ、网盘、u盘等任何工具相互传递文件判作弊。
06-28
Sub InsertHyperlinksFromSelectedCells() Dim rng As Range Dim cell As Range Dim folderPath As String Dim inputPath As String Dim fileName As String Dim fullFilePath As String Dim ws As Worksheet Dim linkCol As Long Dim fso As Object ' 创建 FileSystemObject 对象(用于路径合法性检查) Set fso = CreateObject("Scripting.FileSystemObject") ' 获取当前选区 Set rng = Selection Set ws = ActiveSheet ' 验证是否只选中了一列 If rng.Columns.Count > 1 Then MsgBox "请仅选择同一列中的多个单元格!", vbExclamation Exit Sub End If ' 弹出输入框,提示用户输入文件夹路径 inputPath = InputBox("请输入目标文件夹的完整路径:" & vbCrLf & _ "例如:C:\MyFiles\" & vbCrLf & _ "注意:路径必须存在且包含对应文件。", "输入文件夹路径") ' 如果用户点击取消或未输入 If inputPath = "" Then MsgBox "未输入路径,操作已取消。", vbInformation Exit Sub End If ' 去除首尾空格,标准化路径格式(确保以 \ 结尾) folderPath = Trim(inputPath) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" End If ' 检查路径是否存在 If Not fso.folderExists(folderPath) Then MsgBox "错误:该文件夹路径不存在!" & vbCrLf & _ "您输入的是:" & folderPath & vbCrLf & _ "请确认路径正确后重试。", vbCritical Exit Sub End If ' 插入新列用于放超链接(在选区左侧插入) linkCol = rng.Column Columns(linkCol).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Application.ScreenUpdating = False ' 提高执行速度,避免闪烁 ' 遍历选中的每个单元格 For Each cell In rng fileName = Trim(cell.value) If fileName <> "" Then ' 使用 Dir 查找匹配任意扩展名的文件 fullFilePath = Dir(folderPath & fileName & ".*") If fullFilePath <> "" Then ' 构造完整地址添加超链接 With ws.Hyperlinks.Add( _ Anchor:=ws.Cells(cell.Row, linkCol), _ Address:=folderPath & fullFilePath, _ TextToDisplay:="?? 文件") .ScreenTip = "点击打开: " & fullFilePath End With Else ws.Cells(cell.Row, linkCol).value = "未找到" ws.Cells(cell.Row, linkCol).Font.Color = RGB(255, 0, 0) ' 红色提示 End If Else ws.Cells(cell.Row, linkCol).value = "" End If Next cell Application.ScreenUpdating = True ' 恢复屏幕刷新 MsgBox "已完成超链接插入!共处理 " & rng.Rows.Count & " 个单元格。", vbInformation End Sub 每次运行宏默认上次输入的路径
最新发布
10-22
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值