程序代码：

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="./conn.asp"-->
<%
if trim(Request("submit")) = "提交" then
    dim title
    dim salary
    dim num
    dim sex
    dim age
    dim discrip
    
    title = Trim(Request("title"))
    salary = Trim(Request("salary"))
    num = Trim(Request("num"))
    sex = Trim(Request("sex"))
    age = Trim(Request("age"))
    discrip  = Trim(Request("fContent"))
    
    
    set rs=server.createobject("adodb.recordset")
    sql="select * from job"
    rs.open sql,conn,1,3
    'rs.movelast 
    rs.AddNew
    rs("title") = title
    rs("num") = num
    rs("salary") = salary
    rs("sex") = sex
    rs("discrip")= discrip
    rs.update
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    response.write "<script> alert('hi'); </script>"
end if
%>

Set conn=Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./job.mdb")