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



<!--#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. 小弟我用VB6开发了一个软件，让客户使用，小弟我在不断改进小弟我的软件，小弟我想用ASP通过internet让客户实现在线升级。请教，怎么实现在线升级，哪本书
3. 用XMLHTTP做一个自己特色的Google
4. asp怎样调用dll解决思路
5. 不能进行宏存储解决方案
6. hTML的form小弟我想转发后通过asp程序处理后直接发到email里边　如何实现 着急高手帮忙
7. 我的asp整理
8. 求解:javascript导致页面跳出iframe,该怎么处理
9. 2个dropdownlist、1个按钮、1个gridview控件实现数据动态查询解决方法
10. VBScript函数补习课
11. 从字符串中提取指定字符,该如何处理
12. ReplaceStyle "id"rs("id"),t_uLoop 哪位高手帮小弟我解释上
13. 用ASP实现自动建站.实现虚拟二级目录
14. js confirm执行有关问题
15. 怎么用DIV+CSS来实现文本框的显示和隐藏
16. 在ASP中处理数据库的NULL记录_数据库相关_ASP教程
17. asp修改数据有关问题
18. 汉字转化为拼音(asp版)
19. ASP 如何排序，求码解决。
20. 关于记录集的有关问题