日期：2014-05-16 浏览次数：21225 次
联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的 <!--#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> <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 %> ? 分享到： 更多 推荐阅读更多> sql语句写入单引号的有关问题 乱码有关问题不解决，根本没有周末 请问网页格式在客户端保存，刷新后不会改变格式 表单递交合法性检测-只接受数字 调试SharePoint web part时, 如何可以多个人同时启动调试? ASP作的剪包锤游戏 100分急求asp导出到excel的有关问题！ 为什么定义数组可以是-1解决办法 见着有分,该如何解决 急一个多线程抽奖程序.该如何处理 ASP中从数据库读取二进制文件数据代码 Asp.net连接数据实例（ACCESS版） ASP实例：计数器程序详解 麻烦解释一下这个语句解决方法 【征集意见】对于建设门户网站,怎么才能应用缓存技术? asp怎么过滤字符串中的非汉字 关于\&\运算符效率低下的问题 为什么不读取session,该怎么解决 在access中怎么实现 些方法 Microsoft VBScript 运行时异常 (0x800A01AD)
联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的 <!--#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> <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 %>