asp里使用M$的ACTIVE控件:LISTVIEW
<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> 只能显示“修改”,超链接的效果出不来。