目的:这个页面主要是修改各个用户的资料,页面的上部分是客户列表。下半部分默认为添加新用户的表格,当需要对已存在客户的资料进行修改时,单击相应的用户,下半部分变为要修改用户的资料,此时进行修改。
问题:如何实现单击列表中用户时,页面下半部分显示要修改用户的资料,实现一个值传递。声明的secBoard()函数中,mainTable.tBodies[1].tds[0].value="x";引用单元格的内容存在错误。页面代码如下,请高手赐教!<!--#include file="../Connections/cli.asp" -->
<%
var Recordset1 = Server.CreateObject("ADODB.Recordset");
Recordset1.ActiveConnection = MM_cli_STRING;
Recordset1.Source = "SELECT * FROM dbo.users";
Recordset1.CursorType = 0;
Recordset1.CursorLocation = 2;
Recordset1.LockType = 1;
Recordset1.Open();
var Recordset1_numRows = 0;
%>
<%
var Repeat1__numRows = 8;
var Repeat1__index = 0;
Recordset1_numRows += Repeat1__numRows;
var varcode = 1;
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="javascript">
<!--
function secBoard(x)

  mainTable.tBodies[0].style.display="none";
  mainTable.tBodies[1].style.display="block";
  mainTable.tBodies[1].tds[0].value="x";
}
//-->
</script>
<style>
td  {
 font-size: 13px;
 line-height: 25px;
 border-collapse:collapse;

};
.td1  {
 font-size: 13px;
 line-height: 25px;
 border-collapse:collapse;
 border:1px solid #cccccc;
};
.td2  {
 font-size: 13px;
 line-height: 25px;
 border-collapse:collapse;
 border:1px solid #cccccc;
 cursor: hand;
}
</style>
</head><body>
<table width="666">
<tr><td align="center">用户权限管理</td></tr>
<tr><td>用户列表:</td></tr>
<tr><td height="240" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse:collapse;" >
  <tr>
    <td width="100" class="td1">用户代码</td>
<td width="100" class="td1">用户密码</td>
    <td width="100" class="td1">用户名称</td>
    <td width="100" class="td1">权限范围</td>
    <td width="100" class="td1">操作权限</td>
    <td width="100" class="td1">说明</td>
  </tr>
  <% while ((Repeat1__numRows-- != 0) && (!Recordset1.EOF)) { %>
  <tr onMouseover="this.bgColor='orange'" onMouseOut="this.bgColor='white'">      <td class="td1"><%=(Recordset1.Fields.Item("usercode").Value)%></td>
  <td class="td1"><%=(Recordset1.Fields.Item("password").Value)%></td>
      <td class="td1"><%=(Recordset1.Fields.Item("username").Value)%></td>
      <td class="td1"><%=(Recordset1.Fields.Item("rightarea").Value)%></td>
      <td class="td1"><%=(Recordset1.Fields.Item("rightlevel").Value)%></td>
      <td class="td2" onClick="<%varcode=(Recordset1.Fields.Item('usercode').Value)%>;secBoard(<%=varcode%>)">双击修改</td>
  </tr>
  <%
  Repeat1__index++;
  Recordset1.MoveNext();
}
%>
</table>
</td></tr>
<tr><td height="25"></td></tr>
</table>
<table name=mainTable id=mainTable>
 <tbody style="display:block;">
          <tr> 
            <td valign="top" >增加新用户</td>
          </tr>
        </tbody>
        
        <tbody style="display:none;">
          <tr> 
            <td valign="top" id=td1><%=varcode%></iframe></td>
          </tr>
        </tbody>
</table>
</body>
</html>
<%
Recordset1.Close();
%>