Question

flash + asp +access，如何读写ACCESS数据库。 access里面有字段username, msg1, msg2, msg3. f

希望一个ASP。
根据flash里传进来4个参数read/ write username msg1/msg2/msg3 str
操作access数据库。
比如：read username msg1读出用户的msg1内容
write username msg3 str 向username 的msg3字段写 入str内容。
下面的ASP能解决部分问题。
但写入哪个字段是由flash传递来的参数确定，这个由变量确定的字段在ASP中如何写，不会了。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'声明变量
dim db,conn,div,rs,username,userMsg,direct
'获取Flash中传过来的变量
username=Request("username")
userMsg=Request("userMsg")
direct=Request("direct")
'设置一个连接对象
set conn=Server.Createobject("adodb.connection")
'数据库的相对路径
db=Server.MapPath("%258%one.mdb")
'数据库的驱动
div="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&db
'打开连接
conn.Open div
'新建记录集对象
set rs=server.createobject("adodb.recordset")
'SQL查询语句,用来查询数据库中是否有数据;

if direct="write" then
sql="select * from UserTable where username='"&username&"'"
'打开查询语句
rs.open sql,conn,1,1
'如果没有数据rs.RecordCount将返回0;
if rs.RecordCount=1 then
sql="update UserTable set msg='"&userMsg&"' where username='"&username&"'"
'打开语句
conn.Execute(sql)
'输出true告诉Flash用户已注册.
Response.Write("true")
else
'否则就输出false告诉Flash用户已存在.
Response.Write("false")
end if
end if

if direct="read" then
'SQL查询语句,用来查询数据库中是否有数据;
sql="select * from UserTable where username='"&username&"'"
'打开查询语句
rs.open sql,conn,1,1
'如果数据库中没有数据rs.RecordCount将返回0;
if rs.RecordCount=1 then
userMsg=rs("msg")
Response.Write(userMsg)
else
Response.Write("no such user")
end if
end if

'释放记录集对象rs
set rs=nothing
'关闭打开的连接
conn.close
'释放连接对象conn
set conn=nothing

%>
具体就是：
sql="update UserTable set msg='"&userMsg&"' where username='"&username&"'"
里面
set msg='"&userMsg&"'
里字段msg也是变量决定的，如何引用。

Answer 1

笨死了 直接把msg当做变量组合进去就可以了

追问

set "&ziduan&" ='"&userMsg&"'
成功。