asp里使用M$的ACTIVE控件：LISTVIEW

idlecloud 2005-09-09 09:37:52
<script language = 'javascript'>
function InitList(theList, theTable, iEnd, iId, checkIt)
{
var colWidth = (document.body.clientWidth - 200) / iEnd

with(theList)
{
View = 3
BorderStyle = 0
GridLines = true
Checkboxes = checkIt
FullRowSelect = true
LabelEdit = 1

for(var i = 0; i < iEnd; i ++)
{
ColumnHeaders.Add(i + 1, 'Col' + i, theTable.rows[0].cells[i].innerText, colWidth) //, 100, myAlign)
}
for(var i = 1; i < theTable.rows.length; i ++)
{
myList.ListItems.Add( i, 'Key' + theTable.rows[i].cells[iId -1].innerText.replace(" ", ""), theTable.rows[i].cells[0].innerText.replace(" ", ""))
for(var j = 1; j < iEnd; j ++)
{
ListItems(i).SubItems(j) = theTable.rows[i].cells[j].innerText.replace(" ", "")
}
}
Sorted = true
}
}
</script>
<script language = 'javascript' for = 'myList' event = 'ColumnClick(ColumnHeader)'>

if(ColumnHeader.SubItemIndex == myList.SortKey)
{
if(myList.SortOrder == 0) myList.SortOrder = 1
else myList.SortOrder = 0
}
else
{
myList.SortKey = ColumnHeader.SubItemIndex
if(myList.SortOrder == 0) myList.SortOrder = 1
else myList.SortOrder == 0
}
</script>
<script language = 'javascript' for = 'myList' event = 'ItemClick(Item)'>
var theValue = ""

theValue = Item.Text
for(i = 1; i <= Item.ListSubItems.Count; i ++) theValue = theValue + "\n" + Item.ListSubItems(i).Text
myValue.value = theValue
</script>
<script language = 'javascript' for = 'myList' event = 'ItemdbClick(Item)'>
var theValue = ""

theValue = Item.Text+key
for(i = 1; i <= Item.ListSubItems.Count; i ++) theValue = theValue + "\n" + Item.ListSubItems(i).Text
myValue.value = theValue
</script>
<body onload = 'InitList(myList, myTale, 11,1, false)' scroll = 'no' bgcolor = 'buttonface' topmargin='0' leftmargin='0'>
<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%' height='100%'>
<tr>
<td nowrap>
<script language = 'javascript'>
document.write( "<object classid='clsid:BDD1F04B-858B-11D1-B16A-00C0F0283628' style = 'width:" + (document.body.clientWidth - 150) + ";height:" + document.body.clientHeight + "' id='myList'></object> ")
</script>

请问大家有没有用过以上这个控件，如何在其显示的表格列表里能显示超级链接。
下面这样写没有用：
<td width='6%'><a href='change.asp?id=200406080008&id1=339'>修改</a></td> 只能显示“修改”，超链接的效果出不来。
...全文
212 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
idlecloud 2005-09-16
  • 打赏
  • 举报
 回复
100分啊，没人知道吗？大家来抢分吧！！
idlecloud 2005-09-09
  • 打赏
  • 举报
 回复
上面的回答是错误的，在LISTVIEW里显示的列表都是以文本就显示出来，你上面的语句和我原来的实际效果是一样的。

源代码如下，但实际显示出来，修改无法显示超链接。
<!--
body { font-size: 12px }
table { font-size: 13px }
-->
</style>



<script language = 'javascript'>
function InitList(theList, theTable, iEnd, iId, checkIt)
{
var colWidth = (document.body.clientWidth - 200) / iEnd

with(theList)
{
View = 3
BorderStyle = 0
GridLines = true
Checkboxes = checkIt
FullRowSelect = true
LabelEdit = 1

for(var i = 0; i < iEnd; i ++)
{
ColumnHeaders.Add(i + 1, 'Col' + i, theTable.rows[0].cells[i].innerText, colWidth) //, 100, myAlign)
}
for(var i = 1; i < theTable.rows.length; i ++)
{
myList.ListItems.Add( i, 'Key' + theTable.rows[i].cells[iId -1].innerText.replace(" ", ""), theTable.rows[i].cells[0].innerText.replace(" ", ""))
for(var j = 1; j < iEnd; j ++)
{
ListItems(i).SubItems(j) = theTable.rows[i].cells[j].innerText.replace(" ", "")
}
}
Sorted = true
}
}
</script>
<script language = 'javascript' for = 'myList' event = 'ColumnClick(ColumnHeader)'>

if(ColumnHeader.SubItemIndex == myList.SortKey)
{
if(myList.SortOrder == 0) myList.SortOrder = 1
else myList.SortOrder = 0
}
else
{
myList.SortKey = ColumnHeader.SubItemIndex
if(myList.SortOrder == 0) myList.SortOrder = 1
else myList.SortOrder == 0
}
</script>
<script language = 'javascript' for = 'myList' event = 'ItemClick(Item)'>
var theValue = ""

theValue = Item.Text
for(i = 1; i <= Item.ListSubItems.Count; i ++) theValue = theValue + "\n" + Item.ListSubItems(i).Text
myValue.value = theValue
// window.location.href = "change.asp?id=200406080007&id1=" + Item.Key
</script>

<body onload = 'InitList(myList, myTale, 13,1, false)' scroll = 'no' bgcolor = 'buttonface' topmargin='0' leftmargin='0'>
<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%' height='100%'>
<tr>
<td nowrap>
<script language = 'javascript'>
document.write( "<object classid='clsid:BDD1F04B-858B-11D1-B16A-00C0F0283628' style = 'width:" + (document.body.clientWidth - 150) + ";height:" + document.body.clientHeight + "' id='myList'></object> ")
</script>



<table border="1" cellpadding="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" id = 'myTale' style = 'display:none'>
<tr id = 'tablehead'>
<td>0</td><td>1</td><td>2</td><td>3</td><td>4</td><td>5</td><td>6</td><td>7</td><td>8</td><td>9</td><td>10</td><td>11</td><td>12</td>
</tr>
<tr id='mytr'>
<td id='mytd'>1289</td><td id='mytd'></td><td id='mytd'>q</td><td id='mytd'>面</td><td id='mytd'>58143</td><td id='mytd'></td><td id='mytd'></td><td id='mytd'></td><td id='mytd'></td><td id='mytd'></td><td id='mytd'></td><td id='mytd'></td><td width='6%'><a href='change.asp?id=1234&id1=1289'>修改</a></td>
</tr>



</table>
</td>
<td nowrap width='150' align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber1">
<tr>
<td>
</td>
</tr>
<tr>
<td> 内容：</td>
</tr>
<tr>
<td>
<TEXTAREA name=myValue rows=30 cols=16></TEXTAREA> </TD></TR>
<tr><td>

<BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
tigerwen01 2005-09-09
  • 打赏
  • 举报
 回复
document.write(<td width='6%'><a href='change.asp?id=200406080008&id1=339'>修改</a></td> );
C# Cast＜T＞原理与实战：LINQ泛型桥接核心技术
本文深入剖析C#中Cast的底层实现机制，揭示其三大核心使命：泛型契约兑现、LINQ方法链准入许可、运行时类型安全校验。基于.NET Core 3.1反编译分析，阐明Cast与OfType的本质区别、装箱/拆箱限制及性能边界。重点覆盖WinForms/WPF控件集合（如Controls、SelectedItems）、非泛型集合（ArrayList、Hashtable）及第三方库集成等12类实战场景，并给出延迟执行固化、类型排查、安全扩展等关键实践规范。
【创新未发表】绿电直连型电氢氨园区优化运行研究（Matlab代码、Python、数据、word论文）
内容概要：本研究聚焦于绿电直连型电氢氨园区的优化运行，提出一种集成绿色电力直接供给、电解水制氢及氢气合成氨工艺的综合能源系统架构。通过建立包含风光发电、电解槽、氨合成反应器、储氢罐、电网交互及多类型负荷在内的系统模型，综合考虑绿电直供优先、能量梯级利用与多能互补原则，构建以系统综合运行成本最小化为目标的优化调度模型。研究采用Matlab与Python工具进行算法求解和仿真分析，利用实际气象与负荷数据完成案例验证，评估了不同运行策略下系统的经济性、可再生能源消纳能力与碳减排效益，为新型电氢氨一体化园区的规划与运行提供了理论依据和技术支撑。; 适合人群：具备一定电力系统、新能源或化工背景的研究生、科研人员及从事综合能源系统规划与优化工作的工程技术人员。; 使用场景及目标：①用于科研学习，理解电-氢-氨多能转换系统的建模与优化方法；②为工业园区的低碳化、智能化改造提供技术参考与决策支持；③作为开发类似综合能源管理系统的理论基础。; 阅读建议：此资源包含完整的模型代码、数据与论文，使用者应结合代码仔细研读论文中的模型构建部分，重点关注目标函数与约束条件的设计逻辑，并尝试修改参数进行仿真，以深入掌握优化算法在实际系统中的应用。
微型打印机控制电路的设计资料.rar
微型打印机控制电路的设计资料.rar
HZJZC.rar
当 CAD 缺失对应字体时，图纸文字会显示异常，出现乱码、问号。将下载好的字体文件复制到 AutoCAD 的 Fonts 文件夹中，即可恢复正常显示。
芯片测试基于RS485与Modbus RTU的自动化测试通信系统设计：工业级抗干扰控制与实时数据采集架构
内容概要：本文深入探讨了RS485通信协议在芯片行业自动化测试系统中的实际开发与应用，涵盖其关键概念、电气特性、通信机制及与Modbus RTU协议的结合使用。文章重点介绍了差分信号完整性设计、主从时序控制、CRC校验与重传机制等核心技术要点，并通过一个基于Python的完整代码实例，展示了如何实现RS485主站对探针台、自动分选机等芯片测试设备的控制与数据采集。此外，还分析了RS485在晶圆探针台、ATE设备集群和环境监控等典型场景的应用，并展望了其与工业以太网融合、智能化诊断、高速化及AI集成的发展趋势。; 适合人群：具备一定嵌入式系统或工业通信基础，从事芯片测试、自动化设备开发及相关领域的研发人员，尤其是工作1-3年希望提升现场总线应用能力的工程师。; 使用场景及目标：①理解RS485在高干扰芯片测试环境中稳定通信的设计原理；②掌握Modbus RTU协议在Python下的实现方法，用于实际控制探针台、Handler等设备；③构建可靠的数据采集与设备控制系统，支持CRC校验、异常处理和日志追踪；④为后续向高速通信和智能诊断系统升级提供技术储备。; 阅读建议：此资源强调实战开发，建议结合硬件环境动手调试代码，重点关注线程锁、CRC计算、帧解析和超时控制等关键环节，在真实产线中验证通信稳定性，并利用日志系统进行故障分析与优化。
ASP

28,403

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章