' asp添加数据库记录
Dpath =""
Set Conn=Server.CreateObject("Adodb.connection")
if request.QueryString("action")="add" then
Set Rs =Server.CreateObject("Adodb.Recordset")
Conn.connectionstring="Provider=Microsoft.Jet.oledb.4.0;Data source="&Server.MapPath(Dpath)
Conn.open
Dim sql
sql ="select * from test "
rs.open sql,conn,1,3
rs.addnew
rs("uid")=request("uid")
rs("pwd")=request("pwd")
rs.update
response.Write("数据保存成功")
end if