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



<!--#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. > 第五章 类（rainbow 翻译）*1 （来自重粒子空间）
2. asp要实现在浏览器里显示xsl文件，该文件是靠asp代码新建生成某个文件名以及路径的,具体如何做
3. 一种模式的实现—.
4. jquery datagrid,该如何解决
5. 启动 W3SVC 效劳报错怎样处置
6. 用ASP实现网上“五子棋”大赛
7. ASP的运行环境和虚拟目录的设置
8. 使用xmlhttp检测表单与数据库是否重复.该如何处理
9. 在FLASH中调用ASP
10. ASP怎么获取javascript编码过的URL
11. 提高ASP执行权限的问题
12. 最新的JMail（4.3版本）发送代码
13. ASP程序将网页中的电话号码生成图片
14. asp数组最大可以多长啊该怎么解决
15. 参数提交的多少是否影响页面执行速度解决方案
16. 一个关于分页的有关问题()
17. 问个asp变量赋值的有关问题
18. 字符串处置用正则表达式效率慢还是高
19. ASP代码的对象化
20. 怎么用正则表达式匹配这样的字符串