求教：这个b/s系统里面的网格是怎么实现的？请进来看看

哦看错了，能进去了不好意思：P不过右下角没有网格啊？
只有一个表格，相邻两行颜色不同而已啊？？点击相应栏出信息那是用javascript做的，就是简单的
frame1.document.form1.name.value = document.form1.name1.value;
这样的而已

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

代码如下：右下的文件
<HTML>
<HEAD>
<link rel="stylesheet" href="../../style/main.css" type="text/css">
<TITLE>科苑销售员网络管理系统</TITLE><SCRIPT Language="JAVASCRIPT">
    function DocMouseDown()
    {
      var thebutton;
      thebutton=event.button;
      if(thebutton==2)
      {
         alert("本主页禁止下载！！！！")
         return;
      }
    }
    function ShowSearchBox()
    {
       searchBox.style.display="Block";
   return;
    }
function ApplySearch()
{
      Form1.opt.value="sel";
      searchBox.style.display="none";
      Form1.submit()

    }
function CancelSearch()
{
  searchBox.style.display="none";
}


    function MouseOn(Var1)
{
var obj;
obj=Var1;
obj.style.backgroundColor="Tan";
return;
}
function MouseOff(Var1,Var2)
{
var obj;
var Color1;
obj=Var1;
Color1=Var2;
obj.style.backgroundColor=Color1;
return;
}
</SCRIPT><Script language="VBSCRIPT">
    Sub FindStrifeProduct
    Dim MedID
MedID=Form1.SelName.Value
        window.location="SelStrifeProduct.asp?ID='" & MedID &"'"
End Sub
   Sub ClearItem
       If Form1.Add.title="新增" Then
          Form1.T1.value=""
  Form1.T2.value=""
  'Form1.T3.value=""
      Form1.T4.value=""
          Form1.T5.value=""
      Form1.T6.value=""
      Form1.T7.value=""
      Form1.T8.value=""
      Form1.T9.value=""
      Form1.T10.value=""
      Form1.T11.value=""
      Form1.T12.value=""
      Form1.T13.value=""
      Form1.T14.value=""
      Form1.t15.value=""
      Form1.t16.value=""
      Form1.T17.value=""
      Form1.T18.value=""
      Form1.T19.value=""
      Form1.t20.value=""
      Form1.T21.value=""
      Form1.T22.value=Cstr(now)
  Form1.t1.readonly=true
  Form1.t3.readonly=true
  Form1.t22.readonly=true
  Form1.t23.readonly=true
  Form1.opt.value="add"
          Form1.Add.title="保存"
      Form1.Add.src= "..\..\images\edit\save.gif"
Else
          message=msgbox("确定增加竞争产品'" + Form1.t4.value + "'的资料吗?",vbOkCancel,"增加竞争产品资料")
          if message=2 then
            exit sub
          end if
          Form1.Add.src= "..\..\images\edit\new.gif"
          Form1.Add.title="新增"
          Form1.submit
          Form1.t1.readonly=true
       End if
   End Sub
    Sub Show_Data(I)
       On error resume next
       if I=-1 then
      I=Form1.currentRow.value
       else
          Form1.currentRow.value=I
       end if
       if Form1.Add.title="保存"  then
      Form1.Add.title="新增"
      Form1.Add.src= "..\..\images\edit\new.gif"
end if
       Form1.t0.value=xmldoc.documentElement.childnodes.item(I*23).text
       Form1.t1.value=xmldoc.documentElement.childnodes.item(I*23).text
       Form1.t2.value=xmldoc.documentElement.childnodes.item(I*23+1).text
       Form1.t3.value=xmldoc.documentElement.childnodes.item(I*23+2).text
   Form1.t4.value=xmldoc.documentElement.childnodes.item(I*23+3).text
   Form1.t5.value=xmldoc.documentElement.childnodes.item(I*23+4).text
   Form1.t6.value=xmldoc.documentElement.childnodes.item(I*23+5).text
   Form1.t7.value=xmldoc.documentElement.childnodes.item(I*23+6).text
   Form1.t8.value=xmldoc.documentElement.childnodes.item(I*23+7).text
   Form1.t9.value=xmldoc.documentElement.childnodes.item(I*23+8).text
   Form1.t10.value=xmldoc.documentElement.childnodes.item(I*23+9).text
   Form1.t11.value=xmldoc.documentElement.childnodes.item(I*23+10).text
   Form1.t12.value=xmldoc.documentElement.childnodes.item(I*23+11).text
   Form1.t13.value=xmldoc.documentElement.childnodes.item(I*23+12).text
   Form1.t14.value=xmldoc.documentElement.childnodes.item(I*23+13).text
   Form1.t15.value=xmldoc.documentElement.childnodes.item(I*23+14).text
   Form1.t16.value=xmldoc.documentElement.childnodes.item(I*23+15).text
   Form1.t17.value=xmldoc.documentElement.childnodes.item(I*23+16).text
   Form1.t18.value=xmldoc.documentElement.childnodes.item(I*23+17).text
   Form1.t19.value=xmldoc.documentElement.childnodes.item(I*23+18).text
   Form1.t20.value=xmldoc.documentElement.childnodes.item(I*23+19).text
   Form1.t21.value=xmldoc.documentElement.childnodes.item(I*23+20).text
   Form1.t22.value=xmldoc.documentElement.childnodes.item(I*23+21).text
   Form1.t23.value=xmldoc.documentElement.childnodes.item(I*23+22).text
       Form1.t6.style.Display="block"
       Form1.s6.style.Display="none"
   Form1.t12.style.Display="block"
       Form1.s12.style.Display="none"   End Sub
    Sub ShowCombo(Val)
  if Val=1  Then
          Form1.t6.style.Display="none"
          Form1.s6.style.Display="block"
       End if
  if Val=1  Then
          Form1.t12.style.Display="none"
          Form1.s12.style.Display="block"
       End if
   End Sub
   Sub tranDate(Val)
      if Val=1 and Form1.add.title="保存" Then
          Form1.t6.value=Form1.s6.value
      End If
      if Val=1 and Form1.add.title="保存" Then
          Form1.t12.value=Form1.s12.value
      End If
   End Sub   Sub updateData()
     if Form1.add.title="保存" then
       msgbox("处于添加数据状态,不能修改数据")
     else
       message=msgbox("确定修改竞争产品'" + Form1.t4.value + "'的资料吗?",vbOkCancel,"修改竞争产品资料")
       if message=2 then
          exit sub
       end if
       Form1.opt.value="alt"
       Form1.submit
    end if
   End Sub

  Sub deleteData
     if Form1.add.title="保存" then
       msgbox("处于添加数据状态,不能删除数据")
     else
       message=msgbox("确定删除竞争产品'" +  + Form1.t4.value + "'的资料吗?",vbOkCancel,"删除竞争产品资料")
       if message=2 then
          return
       end if
       Form1.opt.value="del"
       Form1.submit
     end if
   End Sub</SCRIPT>
</HEAD>
<BODY onload="Show_Data(0)" bgColor=#F6F6F6 onmousedown="DocMouseDown()">
<Form Name=Form1 Method=Post Action="StrifeProductAction.asp">
<input type="hidden" Name=ItemNo>
<Input type=Hidden Name=CurrentRow>太长了写不下了。
谁回复一下我继续贴