高手!200分~求教!flash+asp+Access记录问题
我这里有一个动画,效果是这样的:点击按钮加1。并且刷新动画,也同样加1!!现在我不想在网页上刷新动画加1。我只想点击按钮加1。那我的代码应如何修改呢??as2.0代码如下...
我这里有一个动画,效果是这样的:点击按钮加1。并且刷新动画,也同样加1!!
现在我不想在网页上刷新动画加1。我只想点击按钮加1。那我的代码应如何修改呢??
as2.0代码如下:
var update_lv:LoadVars = new LoadVars();
function update_func() {
update_lv.onLoad = function(scu:Boolean) {
if (scu) {
updatenum_txt.text = this.update_num_asp;
} else {
updatenum_txt.text = "刷新失败!";
}
};
update_lv.sendAndLoad("update.asp", update_lv, "post");
}
update_func();
update_btn.onRelease = update_func;
ASP代码如下:
<%
Dim Conn,SQL
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0;Data Source="& Server.MapPath("update.mdb")
Conn.Open
'刷新
SQL="UPDATE updatebook SET update_num=update_num+1"
Conn.Execute(SQL)
Response.Write("&scu_asp=刷新成功!")
''''''''''''''''''''
Dim RS
Set RS=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * From updatebook Order by update_num Desc"
RS.Open SQL,Conn,1,1
Response.Write("&update_num_asp="&RS("update_num"))
'''''''''''''''''''''
RS.Close
set RS = nothing
Conn.Close
Set Conn=nothing
%>
还有一个Access是记录这个文本数据的!
请问我的那些代码改如何修改呢~? 展开
现在我不想在网页上刷新动画加1。我只想点击按钮加1。那我的代码应如何修改呢??
as2.0代码如下:
var update_lv:LoadVars = new LoadVars();
function update_func() {
update_lv.onLoad = function(scu:Boolean) {
if (scu) {
updatenum_txt.text = this.update_num_asp;
} else {
updatenum_txt.text = "刷新失败!";
}
};
update_lv.sendAndLoad("update.asp", update_lv, "post");
}
update_func();
update_btn.onRelease = update_func;
ASP代码如下:
<%
Dim Conn,SQL
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0;Data Source="& Server.MapPath("update.mdb")
Conn.Open
'刷新
SQL="UPDATE updatebook SET update_num=update_num+1"
Conn.Execute(SQL)
Response.Write("&scu_asp=刷新成功!")
''''''''''''''''''''
Dim RS
Set RS=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * From updatebook Order by update_num Desc"
RS.Open SQL,Conn,1,1
Response.Write("&update_num_asp="&RS("update_num"))
'''''''''''''''''''''
RS.Close
set RS = nothing
Conn.Close
Set Conn=nothing
%>
还有一个Access是记录这个文本数据的!
请问我的那些代码改如何修改呢~? 展开
1个回答
AiPPT
2024-09-19 广告
2024-09-19 广告
作为北京饼干科技有限公司的工作人员,关于AIPPT免费生成PPT的功能,我可以简要介绍如下:AIPPT是一款基于人工智能技术的PPT制作工具,它为用户提供了免费生成PPT的便捷服务。用户只需简单输入PPT的主题或内容大纲,AIPPT便能智能...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询