日期:2014-05-16 浏览次数:21066 次
<%
  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
%>