sql = "insert into table1(username,password,tel,phone,address,post,email,...) values('"&request.form("username")&"','"&request.form("password")&"','"&request.form("tel")&"','"&request.form("phone")&"','"&request.form("address")&"','"&request.form("post")&"','"&request.form("email")&"',..."&")"

rs.addnew
rs("username") = request.form("username")
rs("password") = request.form("password")
rs("tel") = request.form("tel")
rs("phone") = request.form("phone")
rs("address") = request.form("address")
rs("post") = request.form("post")
rs("email") = request.form("email")
...
rs.update

'添加
Sub InsertSQl()
    inssql="insert into "&TableName&" ("
    for each item in request.form
        inssql=inssql&item&","
    next
    inssql=left(inssql,len(inssql)-1)&")"&" values("
    for each item in request.form
        if isnumeric(request.form(item)) then
        inssql=inssql&""&Sqlstr(request.form(item))&""&","
        else
        inssql=inssql&"'"&Sqlstr(request.form(item))&"'"&","
        end if
        next
    inssql=left(inssql,len(inssql)-1)&")"
    Conn.execute(inssql)
End Sub
'修改
Sub ModifySql()
    modsql="update "&TableName&" set "

    for each item in request.form
        if isnumeric(request.form(item)) then
        modsql=modsql&item&"="&Sqlstr(request.form(item))&","
        else
        if request.form(item)="" then con=" ":else:con=request.form(item)
        modsql=modsql&item&"='"&Sqlstr(con)&"',"
        end if
    next
    modsql=left(modsql,len(modsql)-1)&" where ID="&request("ID")
    Conn.execute(modsql)
End Sub
'删除
Sub DeleteSql()
    for each item in request.form("id")
        delsql="delete from "&TableName&" where id="&item
        Conn.execute(delsql)
    next
End Sub