主题:  齐毅斑竹再请教一个问题!有时间帮我看看。。。

janus

职务:普通成员
等级:1
金币:0.0
发贴:26
注册:2001/5/22 14:35:13
#12001/6/5 18:20:06
前段时间你告诉我的这个留言本:

go.163.com/~blackflash2000/swf/flash.zip

我现在想把它放在我的一个已注册的留言本中,
所以发言中的用户名就得去调用注册时的名字了,
为此我改动了一下你的asp代码,但是不知为什么
不行,是不是我在flash调用变量的时候不对阿?
那又是如何调,帮我看看问题出在哪?好吗???

改后的ASP如下:
<%
db1 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bbs.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Dim DBConn, strSECTION
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open db1
Set CmdA = Server.CreateObject("ADODB.Recordset")
CmdA.Open "guest", DBConn,1, 3
if request("action") = "new" then

        CmdA.AddNew
        name0=session("name")
        
        if not request("email") = "" then CmdA("email") = replace(request("email"),"&","and")
        if not request("mess") = "" then CmdA("message") = replace(request("mess"),"&","and")
        CmdA.Update
        %>succes=1<%

else
%>count=<%=CmdA.recordCount%><%
if not CmdA.Eof then
%>&f_name<%=x%>=<%=CmdA("name")%>&f_mess<%=x%>=<%=CmdA("message")%>&f_email<%=x%>=<%=CmdA("email")%><%
end if
x = 0
do until CmdA.eof
x = x + 1

%>&name<%=x%>=<%=CmdA("name")%>&mess<%=x%>=<%=CmdA("message")%>&email<%=x%>=<%=CmdA("email")%><%

CmdA.Movenext
loop
end if

CmdA.Close
Set CmdA = nothing
DBConn.Close
Set DBConn = nothing
%>

flash中我是这样定义那个用户名的:

new_name = eval("name" add load);
name0 = new_name;
stop();



janus

职务:普通成员
等级:1
金币:0.0
发贴:26
注册:2001/5/22 14:35:13
#22001/6/5 19:04:11
不好意思,怎么内容全成了这个啦!
对了,我给你发了个mail,内容在那里面呢?
谢谢了。。。