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



<!--#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. 用asp整理磁盘文件
2. 在WEB应用中报表打印的实现
3. 【最新】IP 地址分配表(7)
4. ?ASP数据库查询语句出错,帮帮找找原因~
5. ASP.NET MVC中几个使用技巧
6. JScript 方法 - join 方法
7. 网站(B/S开发中)cache应用
8. asp 中 使用js 调用XMLHTTP乱码等有关问题
9. xmlhttp 抓取网页内容1
10. ASP漏洞分析和解决方法(4)
11. 请教Session("Categories")="English"和Session.Contents("Categories")="English"有何区别
12. 跨越域的Cookie
13. ASP实现备份sql server数据
14. 挑战高手解决办法
15. 附录：数据结构及测试数据
16. 错误80004005信息处理方法
17. []哪位高手知道和||http://www.dugou.com||这样差不多的程序
18. Asp获取当日文章并支持前一天后一天的方法
19. 如何使用ASP建立虚拟的FTP服务器
20. 一个普通的数据库例子源源程序