日期:2014-05-16 浏览次数:21269 次
联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的 <!--#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 Base64 Unicode编码与解码函数 中文编码使用GB2312方式非UTF-8 下一篇: asp概率有关问题 免责声明: 本文仅代表作者个人观点,与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。 相关资料更多> ASP.NET数据库连接实例 存储过程调用异常 asp性能测试第二部分(转)(十) 用一个asp文件根据里面不同的号码来打开另一个asp文件,用来显示相应的数据库里的内容,在第一个asp文件里写了 function goNews(no) {,该如何解决 MD5算法解释_ASP安全加密_ASP教程 调用SQL SERVER数据库存储过程实现ASP用户身份验证 今天正好用MD5,.Net的Framework里有现成的。但是俺又找了个算法原型(VbScript)。一供其它语言参考 求小学2年级班级网站源码解决办法 我写的一段递归生成类似Windows资源管理器一样效果的树状菜单的代码,请指正
联动已经解决 但是写入不了数据库 提交后数据库会自动增加一列 但是是空的 <!--#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 %>