上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
flash与数据库连接(ASP篇)
编辑:dnawo 日期:2007-03-26
前一段发现很多闪友发贴求助flash与数据库连接，所以我研究了一下，决定给大家写下关于ASP\php\JSp的数据库连接的方法，今天给大家的flash与数据库连接(ASP篇)，以后我会陆续为大家奉上，希望大家经常来我的博客做客！一共需要建立三个文件。首先写asp文件，起名为save.asp．具体代码如下：
下面我们做access文件，起名为Msg.mdb！建立表，起名为data表。建立字段名称： id、Name、Company、 Relation、Url、Msg、Time。 数据类型依次设定为：自动编号、文本、文本、文本、文本、备注、日期／时间。 保存关闭。最后我们做flash，文件名我起个conn吧！在工作区，照图一去做，每个元件一层！新建最顶层在最后一帧加上如下代码：
然后把相应的输入文本框的变量起相应的名字！如姓名后面的输入文本框的变量起名为：Name。最后再建一变量名为temp的文本框用于接收消息。如有什么问题请在下面留言，我会尽快帮你解决！
图1
图2
复制内容到剪贴板
程序代码
程序代码<%
u_name=Request.Form("Name")
u_company=Request.Form("Company")
u_relation=Request.Form("Relation")
u_url=Request.Form("Url")
u_msg=Request.Form("Msg")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("Msg.mdb")
sql="Insert into data (Name,Company,Relation,Url,Msg) values ('"&U_name&"','"&u_company&"','"&u_relation&"','"&u_url&"','"&u_msg&"')"
conn.Execute(sql)
conn.close
Set conn=Nothing
Response.Write "&temp=ok"
%>
u_name=Request.Form("Name")
u_company=Request.Form("Company")
u_relation=Request.Form("Relation")
u_url=Request.Form("Url")
u_msg=Request.Form("Msg")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("Msg.mdb")
sql="Insert into data (Name,Company,Relation,Url,Msg) values ('"&U_name&"','"&u_company&"','"&u_relation&"','"&u_url&"','"&u_msg&"')"
conn.Execute(sql)
conn.close
Set conn=Nothing
Response.Write "&temp=ok"
%>
下面我们做access文件，起名为Msg.mdb！建立表，起名为data表。建立字段名称： id、Name、Company、 Relation、Url、Msg、Time。 数据类型依次设定为：自动编号、文本、文本、文本、文本、备注、日期／时间。 保存关闭。最后我们做flash，文件名我起个conn吧！在工作区，照图一去做，每个元件一层！新建最顶层在最后一帧加上如下代码：
复制内容到剪贴板 程序代码
程序代码System.useCodepage = true;
Name = "";
Company = "";
Relation = "";
Url = "";
Msg = "";
function SendData() {
if (Name != "" && Company != "" && Relation != "" && Msg != "") {
var MyVar = new LoadVars();
MyVar.Name = Name;
MyVar.Company = Company;
MyVar.Relation = Relation;
MyVar.Url = Url;
MyVar.Msg = Msg;
MyVar.sendAndLoad("http://localhost/6/save.asp", MyVar, "POST"); //根据实际修改地址
temp = "提交中,請稍侯...";
MyVar.onLoad = function(success) {
if (success) {
temp = "呵呵!成功咯哟！來!再來一條...";
Name = "";
Company = "";
Relation = "";
Url = "";
Msg = "";
} else {
temp = "失敗了！可能網絡有問題！";
}
};
} else {
temp = "請輸入完整！";
}
}
sendBTU.onRelease = function() {
SendData();
};
clearBTU.onRelease = function() {
temp = "歡迎你給我發留言！";
Name = "";
Company = "";
Relation = "";
Url = "";
Msg = "";
};
stop();
Name = "";
Company = "";
Relation = "";
Url = "";
Msg = "";
function SendData() {
if (Name != "" && Company != "" && Relation != "" && Msg != "") {
var MyVar = new LoadVars();
MyVar.Name = Name;
MyVar.Company = Company;
MyVar.Relation = Relation;
MyVar.Url = Url;
MyVar.Msg = Msg;
MyVar.sendAndLoad("http://localhost/6/save.asp", MyVar, "POST"); //根据实际修改地址
temp = "提交中,請稍侯...";
MyVar.onLoad = function(success) {
if (success) {
temp = "呵呵!成功咯哟！來!再來一條...";
Name = "";
Company = "";
Relation = "";
Url = "";
Msg = "";
} else {
temp = "失敗了！可能網絡有問題！";
}
};
} else {
temp = "請輸入完整！";
}
}
sendBTU.onRelease = function() {
SendData();
};
clearBTU.onRelease = function() {
temp = "歡迎你給我發留言！";
Name = "";
Company = "";
Relation = "";
Url = "";
Msg = "";
};
stop();
然后把相应的输入文本框的变量起相应的名字！如姓名后面的输入文本框的变量起名为：Name。最后再建一变量名为temp的文本框用于接收消息。如有什么问题请在下面留言，我会尽快帮你解决！
图1
图2
评论: 1 | 引用: 0 | 查看次数: 4161
发表评论
请登录后再发表评论！
