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



<!--#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. FTP的安全问题 《转》
2. 用ASP和WML来实现数据库查询
3. ASP内建对象Request
4. 数据显示函数(asp)
5. 帮忙测速,有好的意见另外给分,多谢了
6. 跨多数据库
7. asp.net讯息提示框代码
8. What's new in Microsoft SQL Server 2000（二）_数据库相关_ASP教程
9. WebClass入门(1)
10. ASP之对象总结
11. insert into 的有关问题
12. 看看这样的数据显示方式应该如何写
13. Visual Studio 2010 MSDN文档里的HTML/CSS相关内容哪里去了？该如何处理
14. ASP实用函数库
15. 用ASP设计收发文管理系统(1)
16. 生成一个不重复的随即数字
17. ADO事件之(4)---FetchComplete (RecordsetEvent) 方法
18. VS和VB有什么区别啊解决方案
19. 看人家用使用InstallShield制作ASP安装程序 (续2)
20. 哪位高手给一段网页飘窗的代码，就是那种飘动广告的，但小弟我要的是让flash飘动，不是图片飘动