欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

as3+xml+asp+access做的有獎問答

 更新時(shí)間：2009年02月10日 21:38:22   作者：  
as3+xml+asp+access做的有獎問答實(shí)現(xiàn)代碼
XML部份
復(fù)制代碼 代碼如下:

<?xml version="1.0" encoding="utf-8"?>
<li>
<id>
<pp>1、中國114黃頁貴港站的網(wǎng)址是？</pp>
<aa>www.gg114chn.com</aa>
<aa>gg.114chn.com</aa>
<aa>www.114chn.com</aa>
<aa>www.114.com</aa>
</id>
<id>
<pp>2、中國114黃頁的聯(lián)系電話號碼是多少？</pp>
<aa>0775—4320568</aa>
<aa>0775—4553709</aa>
<aa>0775—4563709</aa>
<aa>114</aa>
</id>
<id>
<pp>3、中國114黃頁貴港運(yùn)營中心客服QQ是？</pp>
<aa>10000</aa>
<aa>380463801</aa>
<aa>1015651717</aa>
<aa>854512401</aa>
</id>
<id>
<pp>4、中國114黃頁的總公司是？</pp>
<aa>中國移動</aa>
<aa>中國電信</aa>
<aa>中國114號碼百事通</aa>
<aa>北京互聯(lián)星空文化傳播有限公司</aa>
</id>
</li>

AS3類-myform,放在一個myfirst包里。生成一個主要由ComboBox組件組的表單,
復(fù)制代碼 代碼如下:

package myfirst{
import flash.display.Sprite;
import flash.events.*;
import flash.net.*;
import flash.text.TextField;
import flash.text.TextFieldType;
import fl.data.DataProvider;
import fl.controls.Button;
import fl.controls.ComboBox;
import fl.controls.SelectableList;
import flash.system.System;
public class myform extends Sprite {
System.useCodePage = true;
var a_form:String="";
var a_num:int;
var a_array:Array=new Array();
public function myform():void {
var loader:URLLoader=new URLLoader;
configureListeners(loader);
var request:URLRequest=new URLRequest("pa.xml");
try {
loader.load(request);
} catch (error:Error) {
trace("Unable to load requested document.");
}
}
private function configureListeners(dispatcher:IEventDispatcher):void {
dispatcher.addEventListener(Event.COMPLETE,completeHandler);
}
private function completeHandler(event:Event):void {
XML.ignoreProcessingInstructions=true;
var loader:URLLoader=URLLoader(event.target);
var myxml:XML=XML(loader.data.toString());
a_num=myxml.id.pp.length();
for (var i:int=0; i <= a_num - 1; i++) {
var p_text:TextField=new TextField();
p_text.text=myxml.id[i].pp;
p_text.width=250;
p_text.y=i*50;
addChild(p_text);
var mycombobox:ComboBox=new ComboBox();
mycombobox.dropdownWidth =180;
mycombobox.move(20,20+i*50);
mycombobox.prompt="選擇答案";
mycombobox.addEventListener(Event.CHANGE, cardSelected);
addChild(mycombobox);
for (var j:int=0; j<=3; j++) {
mycombobox.addItem({label:myxml.id[i].aa[j]});
}
}
}
private function cardSelected(event:Event):void {
var cb:ComboBox=event.currentTarget as ComboBox;
var cbindex:int=getChildIndex(cb)/2;
var aa:int=cb.selectedIndex;
a_array[cbindex]=(String(aa));
}
public function mm(event:Event):void {
for (var k:int=0; k<=a_num-1; k++) {
a_form+=String(a_array[k]);
}
trace(a_form);
}
}
}

同樣放在myfirst包里的另一個類url_asp，主要用于連接ASP文件
復(fù)制代碼 代碼如下:

package myfirst{
import flash.display.Sprite;
import flash.events.*;
import flash.net.*;
import flash.text.TextField;
import flash.text.TextFieldType;
import fl.controls.Button;
import fl.controls.TextInput;
import flash.system.System;
public class url_asp extends Sprite {
public function url_asp() {
System.useCodePage=true;
var form_name:TextField=new TextField();
var form_tel:TextField=new TextField();
form_name.text="姓名:";
form_tel.text="電話:";
form_name.x=100;
form_name.y=350;
form_tel.x=100;
form_tel.y=300;
addChild(form_name);
addChild(form_tel);
var form_value=new myform();
form_value.x=10;
form_value.y=10;
addChild(form_value);
var myname:String="";
var telephone:String="";
var a_form:String ="";
var variables:URLVariables=new URLVariables();
var myrequest:URLRequest=new URLRequest("save.asp");
var loader:URLLoader = new URLLoader();
var mybutton1:Button=new Button();
mybutton1.x=180;
mybutton1.y=250;
mybutton1.label="確認(rèn)答案";
mybutton1.addEventListener(MouseEvent.CLICK,form_value.mm);
addChild(mybutton1);
var myname_input:TextInput=new TextInput();
myname_input.x=180;
myname_input.y=350;
addChild(myname_input);
var telephone_input:TextInput=new TextInput();
telephone_input.x=180;
telephone_input.y=300;
addChild(telephone_input);
var mybutton:Button=new Button();
mybutton.x=180;
mybutton.y=400;
mybutton.label="提交信息";
addChild(mybutton);
mybutton.addEventListener(MouseEvent.CLICK,onclik);
function onclik(event:Event):void {
variables.myname=myname_input.text;
variables.telephone=telephone_input.text;
variables.a_form= form_value.a_form;
trace( form_value.a_form);
myrequest.data=variables;
myrequest.method=URLRequestMethod.POST;//指定 URLRequest 對象為 POST。
loader.dataFormat = URLLoaderDataFormat.TEXT;
loader.load(myrequest);//發(fā)送數(shù)據(jù)
}
}
}
}

建一個FLA，言文檔類就寫myfirst.url_asp。
ASP部份，三個文件。
---conn.asp---
asp文件1數(shù)據(jù)庫連接
復(fù)制代碼 代碼如下:

<%
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("msg.mdb")
%>

--save.asp----
asp文件2保存數(shù)據(jù)
復(fù)制代碼 代碼如下:

<!-- #include file=conn.asp -->
<%
if request("myname")="" then
response.Write("no data")
response.End()
else
myname=Request("myname")
telephone=Request("telephone")
a_form=Request("a_form")
sql="Insert into data (myname,telephone,a_form) values ('"&myname&"','"&telephone&"','"&a_form&"')"
conn.Execute(sql)
conn.close
Set conn=Nothing
Response.Write "ok"
end if
%>

----list.asp------
asp文件3查看答題者
復(fù)制代碼 代碼如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>無標(biāo)題文檔</title>
<style type="text/css">
<!--
body {
background-color: #B57202;
}
-->
</style></head>
<!-- #include file="conn.asp" -->
<body>
<%
dim rs_zl
set rs_zl =server.createobject("adodb.recordset")
rs_zl.open "select * from data",conn,1,1
rs_zl.pagesize=15
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs_zl.pagecount then epage=rs_zl.pagecount
else
epage=1
end if
rs_zl.absolutepage=epage
%>
<table width="750" border="0" cellpadding="2" cellspacing="2">
<tr bgcolor="#666666">
<td>ID</td>
<td>姓名</td>
<td>電話</td>
<td>答案</td>
<td>&nbsp;</td>
</tr>
<%
for i=0 to rs_zl.pagesize-1
if rs_zl.eof then exit for
%>
<tr bgcolor="#666666">
<td><%=rs_zl("id")%></td>
<td><%=rs_zl("myname")%></td>
<td><%=rs_zl("telephone")%></td>
<td><%=rs_zl("a_form")%></td>
<td>&nbsp;</td>
</tr>
<%
rs_zl.movenext
next
%>
</table>
<table width="530">
<tr>
<td width="124" height="38">&nbsp;</td>
<td width="259">
<p align="center">
<a href="list.asp">首頁</a>&nbsp;
<a href="list.asp?page=<%=epage-1%>">前一頁</a>&nbsp;
<a href="list.asp?page=<%=epage+1%>">后一頁</a>&nbsp;
<a href="list.asp?page=<%=rs_zl.pagecount%>">末頁</a>
</p>
<p align="center">現(xiàn)在是第<%=epage%>頁一共有<%=rs_zl.pagecount%>頁</p>
</td>
<td width="131">&nbsp;</td>
</tr>
</table>
<%
rs_zl.close
set rs_zl = nothing
conn.close()
%>
</body>
</html>

相關(guān)文章

  • AS3自寫類整理筆記 ClassLoader類

    AS3自寫類整理筆記 ClassLoader類

    在用flash做項(xiàng)目的時(shí)候，把一些元件，通過設(shè)置鏈接類，然后使用這個類，通過getClass方法即可把這個素材拿下來
    2008-06-06
  • As3.0 xml + Loader應(yīng)用代碼

    As3.0 xml + Loader應(yīng)用代碼

    簡單說說AS3.0中對于XML支持的不同吧： .AS2.0對XML的支持勉勉強(qiáng)強(qiáng)，將就著可以用。而AS3.0中對XML的支持是全方位的，極其強(qiáng)大和靈活的
    2008-03-03
  • Actionscript 3.0 鼠標(biāo)事件

    Actionscript 3.0 鼠標(biāo)事件

    這本書是一本經(jīng)典的書籍，說實(shí)話一些小的AS3的項(xiàng)目是做了好幾個，基本的語法也都知道（其實(shí)有面向?qū)ο缶幊陶Z言的基礎(chǔ)后再入門一門新的語言還是很快的）?，F(xiàn)在找到了這邊經(jīng)典書籍完整版，就好好看看，順便寫一些總結(jié)。
    2009-02-02
  • AS3打開新窗口不被屏蔽的代碼

    AS3打開新窗口不被屏蔽的代碼

    有時(shí)候flash打開的網(wǎng)址會出現(xiàn)被屏蔽的現(xiàn)象，如何能輕松的打開而不被屏蔽呢，下面是具體的代碼。
    2010-08-08
  • Actionscript 3.0中Singleton實(shí)現(xiàn) 修正篇

    Actionscript 3.0中Singleton實(shí)現(xiàn) 修正篇

    說明：上一篇"一個簡單的Actionscript的單態(tài)模式類"的實(shí)現(xiàn)在Actionscript中報(bào)錯，具體原因會在這篇Blog中詳細(xì)說明。
    2009-02-02
  • as3 rollOver or mouseOver使用說明

    as3 rollOver or mouseOver使用說明

    rollOver與mouseOver同樣在鼠標(biāo)移到目標(biāo)上時(shí)觸發(fā)事件，細(xì)微區(qū)別在于，mouseOver的bubbles等于true,而rollOver的bubbles是false.
    2009-10-10
  • flash PureMVC 使用例子

    flash PureMVC 使用例子

    昨天下了PureMVC, 看了一天文檔, 迷茫啊, 找例子也沒找到, 后來破解了一個看了一下, 大概地寫了一個簡單的用例, 先算是學(xué)習(xí)筆記吧, 先把這最簡單的例子做法寫一下吧( 也不知道這種理解是否正確哦~~汗一個!)
    2009-01-01
  • Google Analytics在Flash cs3下的使用教程分析

    Google Analytics在Flash cs3下的使用教程分析

    因?yàn)楣ぷ鞯脑颍罱褂玫紾oogle Analytics組件，這個組件在網(wǎng)上的資料很多，但是大部分都是詳談組件的優(yōu)勢的，具體的使用沒有很詳細(xì)的說明
    2009-02-02
  • AS3中的反射（速記） 分析

    AS3中的反射（速記） 分析

    詳細(xì)了解AS3的反射，請google相關(guān)文章，這里只是速記一下
    2008-03-03
  • 編寫高效率的AS3代碼的小技巧

    編寫高效率的AS3代碼的小技巧

    最近我研究了一些AS3代碼優(yōu)化的文章，一般都是集中在研究loops 和 Number types上的，本文不在重復(fù)類似的測試
    2009-02-02

最新評論