<%
title=request.form("title")
content=request.form("content")
author=request.form("author")
sorc=request.form("source")
tim=request.form("time")
outline=request.form("outline")

response.Write((title)&(content)&(author)&(sorc)&(tim))

select case outline
    case "qingan"
        select case outline
        case "lmxz"
            set mycn=server.createobject("ADODB.Connection")
            set myrs=server.createobject("ADODB.Recordset")
            dbq=server.MapPath("/db/qingan.mdb")
            mycn.Open "driver={microsoft access driver (*.mdb)};dbq="&dbq
            strsql="insert into lmxz (title,content,author,source,time) values ('"&title&"','"&content&"','"&author&"','"&sorc&"','"&tim&"')"
            myrs.open strsql, mycn
        
        case "ayac"
            set mycn=server.createobject("ADODB.Connection")
            set myrs=server.createobject("ADODB.Recordset")
            dbq=server.MapPath("/db/qingan.mdb")
            mycn.Open "driver={microsoft access driver (*.mdb)};dbq="&dbq
            strsql="insert into ayac (title,content,author,source,time) values ('"&title&"','"&content&"','"&author&"','"&sorc&"','"&tim&"')"
            myrs.open strsql, mycn
        
        case "qqqj"
            set mycn=server.createobject("ADODB.Connection")
            set myrs=server.createobject("ADODB.Recordset")
            dbq=server.MapPath("/db/qingan.mdb")
            mycn.Open "driver={microsoft access driver (*.mdb)};dbq="&dbq
            strsql="insert into qqqj (title,content,author,source,time) values ('"&title&"','"&content&"','"&author&"','"&sorc&"','"&tim&"')"
            myrs.open strsql, mycn    
        end select        
end select
%>



大虾帮忙看一下，为什么数据库里面没插入记录。原因何在谢谢！

楼上的朋友您好，这只是一部分代码，通过select case来进行比较选择后进行分布骤处理，即根据不同的outline来进行插入哪个数据库，首先进行qingan的辨别，是第一条件，第二条件在进行lmxz、ayac、qqqj辨别后插入数据到相应数据库。程序运行后报错在
strsql="insert into lmxz (title,content,author,source,time) values ('"&title&"','"&content&"','"&author&"','"&sorc&"','"&tim&"')"
myrs.open strsql, mycn

请各位大虾帮忙喔。谢谢，帮我看看代码这段错在哪里怎么修改：）谢谢。

这个参数必须吗，各都表示什么意思？
有朋友说要加execute不知道加哪里，不加能用吗？能不能把文件给你帮我测试一下呢？谢了，老虾

这是两种不同的操作方法。

一种是建立conn，然后定义SQLstr，再执行～

conn.execute(SQLstr)。

你这个是另外的操作方法。

建立conn，定义RecordSet，再定义SQLstr，继而执行～

RecordSet.open SQLstr, conn,参数1,参数2

加上那两个参数试试看？