日期：2014-05-16 浏览次数：20889 次
联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的 <!--#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 %> ? 分享到： 更多 推荐阅读更多> 一个非常奇怪的有关问题 类的两个实例怎么进行值拷贝 提高ASP应用程序的技巧(2) set被困在conn里了？该怎么处理 Response.contentType= "application/vnd.ms-excel "得不到excel格式文件,该如何处理 一直有个有关问题不明白 关于梅的树型结构,哪位高手能帮小弟我回答一个有关问题 WSH 直接将查询数据结果生成 EXCEL 表 asp如何实现下拉框和表格的二级联动 URL如何代入复选框 Request.ServerVariables("PATH_TRANSLATED")中的translate是什么意思,该怎么处理 文本搜索 如何准确定时运行ASP文件 关于大型网站首页新闻生成有关问题 给看看这个代码做什么用的？avast报告说有病毒 使用XMLHttp和ADODB.Stream取得远程文件并保存到本地_ASP XML教程_ASP教程 使用ASPMail组件发送数字卡片 ajax为何不能刷新session的更新时间？ remote script文档(转载自微软)(六) isNull(str), isEmpty(str)和 str = 的区别
联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的 <!--#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 %>