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