日期:2014-05-16 浏览次数:20935 次
<% Dim Conn,ConnStr Set Conn=Server.CreateObject("ADODB.Connection") ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("DataBase/db.mdb")&";" Conn.Open(ConnStr) If Request.Form("menu")<>"" Then menu_s=Request.Form("menu") name_s=Request.Form("name") link_s=Request.Form("link") Set rs=Server.CreateObject("ADODB.Recordset") sql="select * from baidu" rs.open sql,conn,1,3 rs.addnew() rs("bdmenu")=menu_s rs("bdname")=name_s rs("bdlink")=link_s rs.update() End If %>