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



<!--#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. 请教一句话有关问题
2. 急如何在调用存储过程后，把得到的记录集分页显示
3. 关于url地址的有关问题
4. 这个异常是什么意思
5. ECC加密算法入门介绍_ASP安全加密_ASP教程
6. 一个文本框里有内容1, 2, 3 请教如何将123分别保存到数据库成为三条数据
7. 在ASP中编写DLL的问题
8. -请教一下这样的效果如何做-
9. 无组件上传文件(1)
10. js elementFromPoint 获取对象,如何知道这个对象在文档中的index ?
11. 打开网页执行指定的命令。DOS命令解决方案
12. 隔几个字符自动换行解决方法
13. 浏览器语种检测，适合于多语言版本的站点
14. ASP.NET兑现二维码（QRCode）的创建和读取
15. 网络编程中点击不同记录进行修改,删除不同记录的另一编程思想ASP与数据库的应用
16. 怎么用asp+ms sql的jmail收发邮件(内网和外网)
17. 列表项可上下移动的Multiple列表
18. 页面跳转有关问题
19. 获取每行最后一个不为空的列解决方案
20. ASP中的sql语句中怎么调用sql自定义函数