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



<!--#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代码如何看不懂啊跪求高手帮忙解释.
2. 置对象作用域
3. 用数组实现数据记录的批量录入方法
4. ASP 3.0新特性概要
5. 高手在那？帮忙改一下，多表查询，多谢啦
6. window.open()与window.location()的区别
7. 如何用asp做域名查询注册网站
8. 求顺便散分
9. 当知道查询结果只有1条时，用哪个判断解决方法
10. asp页面局部刷新解决办法
11. 表单提交，路过的来瞧瞧，也许你的一句话就帮到小弟我了
12. 如何把ASP编写成DLL
13. ASP.NET MVC案例课程（基于ASP.NET MVC beta）——第二篇：第一个页面
14. ASP,隐藏图片的真实地址
15. 大家看看这个http://vbs.net.cn是如何做的
16. bbs的数据结构和存储过程
17. 生成静态页面的新闻系统，是不是只要在后台发一篇新闻，就要更新一次首页 和 所有的栏目首页 和分页。解决方案
18. 请问application有关问题，为什么小弟我的服务器读取也写入不了application
19. 第十五篇 常用的 ASP ActiveX 组件
20. VBScript在PD中的应用