联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的



<!--#include file="heck.asp"-->

<script language="JavaScript">

sall=new Array();

<%

dim i

i=0

set rs=server.CreateObject("adodb.recordset")

    sql="select * from khlist order by id asc"

    rs.open sql,conn,1,1

 if not rs.eof then

 do until rs.eof

%>

sall[<%=i%>]=new Array("<%=rs("khbm")%>","<%=rs("id")%>","<%=rs("khname")%>");



<%

i=i+1

rs.movenext

loop

end if

rs.close

set rs=nothing

%>



function changeselect(selvalue) 

   {   

      document.all.xl.length=0; 

      var selvalue=selvalue;

      var i;

      for(i=0;i<sall.length;i++) 

 {

     if(sall[i][0]==selvalue) 

         {

 var newOption1=new Option(sall[i][2],sall[i][1]);

    document.all.xl.add(newOption1); 

   }

 }

}

</script>

  <form action="" method=post name=form1 onSubmit="return CheckForm()">



<select name="dl" ID="dl" onChange="changeselect(document.all.dl.options[document.all.dl.selectedIndex].value)">

   <option>请选择</option>

<%

set rs=server.CreateObject("adodb.recordset")

sql="select * from khbm order by id asc"

rs.open sql,conn,1,1

do while not rs.eof

%>

      <option value="<%=rs("id")%>"><%=rs("khtype")%></option>

<%

rs.movenext

loop

rs.close





%>

    </select>

 &nbsp;&nbsp; <select name="xl" ID="xl">

     <option>请选择</option>

      </select>

  



    <tr> 

      <td colspan="5" align="center" ><input type="submit" name="add" value=" 添 加 " /></td>

    </tr>

  </form>



<%

If Request.form("add")=" 添 加 " Then

Set rs = Server.CreateObject("ADODB.RecordSet")

Sql = "Select * From [cs]"

rs.Open Sql,Conn,1,3

rs.addNew

rs("x1") = Request.Form("x1")

rs("d1") = Request.Form("d1")

rs.Update

rs.Close

Response.Write "<script>alert('操作成功!');location='javascript:history.back(-1)';</SCRIPT>"

End if

%>

?

分享到： 更多

推荐阅读更多>

1. asp中fso代码的有关问题
2. 在网页中添加天气预报
3. 求一sql复杂语句解决方法
4. ExtAspNet控件库TextBox控件相干属性
5. JavaScript在ASP中实现掩码文本框
6. 如何写出优秀的ASP应用程序
7. 用Delphi开发ASP分页组件
8. ASP中Cookie使用指南
9. asp中如何做出类似ajax的效果
10. asp存储过程使用大全
11. index server example_ASP全文检索_ASP教程
12. Asp.Net(IE) ScriptX/smsx.cab 打印控制 怎么使用详细教程
13. 测字符串长度函数
14. MsgBox函数语言参考
15. 后台登陆不上去 无法跳转至相应页面 求大侠们帮帮忙。解决方案
16. 一个查询中异常,
17. asp留言板有关问题
18. 三级菜单改不好了,该怎么处理
19. 心得分享_ASP技巧_ASP教程
20. 实用技巧：用ASP建立网站地图