超碰在线影院,一二三区在线,xxxxx成人.com

MR.CHEN — Wed, 21 Nov 2012 07:41:00 GMT

我能抽象出整个世界．�Q?img height="20" src="http://www.aygfsteel.com/Emoticons/QQ/14.gif" width="20" border="0" alt="" />�Q?nbsp; 但是我却不能抽象��Z��Q�．�Q?nbsp; 你肯定是一个单例，因�ؓ你是那样的独一无二... 所以我的世界�ƈ不完��_��Q�．我可以重载甚臌��盖这个世界里的�Q何一�U�方法．�Q�．但是却不能覆盖对你的思念�Q�．�Q?也许命中注定�?你与我存在于不同的包�?.. 在你的世界里�Q�你被烙上了�U�有的属�?.. 我用��全�w�力气，也找不到讉K��你的接口... 我不愿就此甘心，扑ֈ�了藏�w�在javaeye��殿的巫师，教会了我�I�越时空的方�?.. �l�于�Q�我用反��这把利剑，打开了你�I�间的缺�?.. �q�发��C��接近你的�U�密... 当我�q�不及待地调用了�׃��q�个�Ҏ��Q�．�Q?nbsp; �q�义无返�儡��把自�׃��为参��C��q�这个方法时�Q�．�Q?nbsp; 我才发现�׃��你是一个没有终止条件的递归�Q�．�Q?nbsp; 它不停的�q�回我对你的思念�q�压入我心里的堆栈．�Q�．在这无尽的黑夜中 �Q?a style="color: #000000" >tb�l�于体验��C��Ҏ��q��回调... 我的内存里已�l�再也装不下别�h... 当我以�ؓ��与你在�q�个��d�@环中天荒地老时... 万恶的系�l�抛��Z��q��异常... 此刻我才发现�Q�我不过是操�U�于虚拟��Z��的一个线�E�，你也�?.. 但我毫不后悔�Q�因为在��q��z�礼之后... 我看见了一个新的生命，那是我们�? �l�承

MR.CHEN 2012-11-21 15:41 发表评论

java �U�程基础学习

MR.CHEN — Mon, 05 Nov 2012 05:20:00 GMT

�U�程是Java语言的一个部分，而且是Java的最强大的功能之一。究竟什么是�U�程�Q��ؓ什么要开发基于线�E�的应用�E�序�Q�在本文中，我们��深入了解一下线�E�的用法�Q�以及��用线�E�的一些技术。在我们开始讲�q�线�E�之前，最好先了解一下有兌��景知识和分析一下线�E�的工作原理�?

　　当程序员一开始开发应用程序时�Q�这些应用程序只能在一个时间内完成一件事情。应用程序从�ȝ��序开始执行，直到�q�行�l�束�Q�像 Fortran/Cobol/Basic�q�些语言均是如此�?/p>

　　随着旉��的推�U�，计算机发展到可以在同一旉��D�内�q�行不止一个应用程序的时代了，但是应用�E�序�q�行时仍然是串行的，即从开始运行到�l�束�Q�下一条指令接着上一条指令执行。到最�q�，�E�序发展到可以在执行�Ӟ��以若�q�个�U�程的�Ş式运行。Java��具有运行多�U�程的能力，可以在同一旉��D�内�q�行几个操作�Q�这��意味着�l�定的操作不必等到另外一个操作结束之后，才能开始。而且�Ҏ��个操作可以指定更高一�U�的优先�U��?/p>

　　不少�E�序语言�Q�包括ADA�Q?Modula-2和C/C++�Q�已�l�可以提供对�U�程的支持。同�q�些语言相比�Q�Java的特�Ҏ��从最底层开始就对线�E�提供支持。除此以外，标准的Java�c�L��可重入的�Q�允许在一个给定的应用�E�序中由多个�U�程调用同一�Ҏ��Q?a style="color: #000000" >tb而线�E�彼此之间又互不�q�扰。Java的这些特点�ؓ多线�E�应用程序的设计奠定了基��?/p>

　　什么是�U�程?

　　�I�竟什么是�U�程呢？正如在图A中所�C�，一个线�E�是�l�定的指令的序列 (你所�~�写的代�?�Q�一个栈(在给定的�Ҏ��中定义的变量)�Q�以及一些共享数�?�c�M��U�的变量)。线�E�也可以从全局�c�M��讉K��静态数据�?/p> #g_kclist{font-size:12px;width:570px;float:none; margin-top:5px; clear:right} #g_kclist a{color:#000; text-decoration:none} #g_kclist h2{margin:0px;padding:0px;font-size:14px; text-align:center;background:url(http://www.thea.cn/zt/zt_img/zczhongduan.gif) no-repeat;line-height:31px;color:#fff} #g_kclist table{line-height:25px;background:#B0DA90;margin-top:8px} #g_kclist table td{ text-align:center;background:#fff} #g_kclist table td.td1 a{color:#f00} #g_kclist table th{background:#F2F7ED;color:#525F46}

MR.CHEN 2012-11-05 13:20 发表评论

PB数据�H�口怎么�Ҏ��内容昄��

MR.CHEN — Tue, 23 Oct 2012 07:37:00 GMT

有多�U�方法的�Q�我只说两种最��单的�?br />
一、定义数据源sql�Ӟ��定义一个变量：xb�Q�然后数据源写成�Q?br />
select * from [�q�动员表] where [性别]=:xb

再从�H�口的open事�g中写�Q?br />
dw_1.settransobject(sqlca)
dw_1.retrieve('�?)//把变量传�l�数据窗口，只刷出男生�?br />
卛_��实现�?br />

二、定义数据源sql�Ӟ��直接写成�Q?br />
select * from [�q�动员表]

�H�口的open事�g中写�Q?br />
dw_1.settransobejct(sqlca)
dw_1.retrieve()//�q�句是刷新出所有的�q�动员，包括男女
dw_1.setfilter("[性别]='�?")//为数据窗口设�|�过�?br /> dw_1.filter()//使用�q��o字符串过滤数�?br />
也可以实��C��所要求的�?br />
是不是数据窗口的行高不够�Q�这个会挡住每行数据的一点点�Q�，
�q�有可能是details的bandtb向下拖拖多放点空�?�Q�这个肯能挡住最下面的数据）

MR.CHEN 2012-10-23 15:37 发表评论

MR.CHEN — Wed, 17 Oct 2012 09:06:00 GMT

扑ֈ�了问题��生的原因后，下面来讨论如何解册��问题。对于Oracle Enterprise Manager中的所有工��P��有一个配�|�文件名为dbappscfg.properties�Q�修改该文�g卛_��解决上述问题。这个文件的位置�?ORACLE_HOME\sysman\config目录下，用�Q何的文本�~�辑器打开该文�Ӟ��在这个文仉��面，扑ֈ��q�样一��，

　　# SQLPLUS_NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1

　　��L��注释�W?�Q�同时将其修改�ؓ

　　SQLPLUS_NLS_LANG=AMERICAN_AMERICA.ZHS16GBK

　　对于Windows操作�pȝ��Q�还需要修改一��，在文件中扑ֈ�# SQLPLUS_SYSTEMROOT=c:\\WINNT40�Q�去掉注释符�Q�将其修改�ؓ你所在机器的操作�pȝ��ȝ��录。如操作�pȝ��的主目录在D盘的Winnt下，则将其修改�ؓ

　　SQLPLUS_SYSTEMROOT=d:\\WINNT�?/p>

　　对于后面一��的修改只对Windows操作�pȝ��q�行�Q�对UNIX操作�pȝ��则不需要。如果在Windows操作�pȝ��中不修改该项�Q�在Oracle Enterprise Manager中，�q�接�pȝ��Ӟ��会提�C�如下的错误�Q?/p>

　　ORA-12560 TNS:protocol adapter error

　　或�?/p>

　　ORA-12545 Connect failed because target host or objectb does not exist

　　修改完成后，保存文�g�Q�退出编辑。重新连接SQL PLUS Worksheet�Q�字�W�集��q��问题得到解决,昄��正确的简体中文字�W�集�?/p> .item-area{width:578px;margin:15px auto;border-top:1px solid #ddd;color:#666} .item-area a,.item-area a:link,.item-area a:visited{color:#666;text-decoration:none} .item-area a:hover{color:#3a7ad9;text-decoration:underline;} a img{border:none;vertical-align:middle} .item-area h2,.item-area h3{float:none;font-size:100%;font-weight:normal;} .item-area .h2{height:25px;margin:10px 0;padding-left:35px;*float:left;font:bold 14px/25px "宋体";background:url(http://sns.thea.cn/module/images/icos.png) no-repeat 0 0} .item-area span.more{float:right;font:normal 12px/25px "宋体"} .item-area a.more{float:right;font:normal 12px/25px "宋体"} .item-a{margin-bottom:15px} .item-a .h-ksrm{background-position:0 0} .item-a li{*display:inline;overflow:hidden;zoom:1;line-height:2em;padding-left:35px;font-size:14px;background: url(http://sns.thea.cn/module/images/btns.png) no-repeat -1px -28px;} .item-a li a{float:left;} .item-a .testBtn{float:right;width:58px;height:21px;line-height:21px;font-size:12px;margin-top:5px;margin-top:3px;text-align:center;background:url(http://sns.thea.cn/module/images/btns.png) no-repeat -1px -1px; color:#FFFFFF;} .item-a a.freeBtn{width:20px;margin:0 0 0 6px;line-height:28px;color:#fff;font-size:12px;text-indent:-9999px;background: url(http://sns.thea.cn/module/images/icos.png) no-repeat 0 -131px;} .item-a li.hots a.freeBtn{background-position:0 -105px} .item-a a.examnum em{font-style:normal;color:red;font-weight:bold;} .item-b {padding:5px 0 20px;border-top:1px dashed #ddd;border-bottom:1px dashed #ddd} .xsjl-list-col3s li{display:table-cell;*display:inline;zoom:1;vertical-align:top;width:182px;padding-right:10px;line-height:150%;font-size:12px;} .item-b .h-xsjl{background-position:0 -26px} .item-b .pic{float:left;margin:3px 10px 0 0;} .item-b em{font-style:normal;color:#dc2c2c} .item-b a.join{display:inline-block;padding-left:20px;background:url(http://sns.thea.cn/module/images/icos.png) no-repeat 0 -160px} .item-b .xsjl-list-col3s h3 a{display:inline-block;width:120px;overflow:hidden;white-space:nowrap;color:#3a7ad9} .item-b .xsjl-list-col3s h3{text-align:left;line-height:150%;font-family:"宋体","微��Y雅黑"}

MR.CHEN 2012-10-17 17:06 发表评论

Oracle中DBMS_RANDOM包的用法

MR.CHEN — Fri, 21 Sep 2012 05:09:00 GMT

我的myoracle.txt脚本内容如下�Q?

drop procedure PRO_RECEIPTSTOCK_5D19A;

create or replace procedure PRO_RECEIPTSTOCK_5D19A IS

v_STOCKID NUMBER(13);

v_STARTNO VARCHAR2(10);

v_ENDNO VARCHAR2(10);

v_RECEIPTTYPE NUMBER(13);

v_STATUS CHAR(1);

v_COUNT NUMBER(13);

v_UNITID NUMBER(13);

V_RELATEUSERNAME VARCHAR2(150);

V_GLIDENUM NUMBER(20);

V_FLAG VARCHAR2(2);

V_PROCTM DATE;

V_SPROCTM VARCHAR2(30);

V_REGISTERTM DATE;

V_SREGISTERTM VARCHAR2(30);

V_DBUSER VARCHAR2(20);

V_CURSQL VARCHAR2(4000);

V_MYCOUNT NUMBER;

CURSOR C_RECEIPTSTOCK_TMP IS

SELECT

STOCKID,

STARTNO,

ENDNO,

RECEIPTTYPE,

STATUS,

COUNT,

UNITID,

RELATEUSERNAME,

GLIDENUM,

FLAG,

PROCTM,

REGISTERTM,

DBUSER

FROM GFMIS_ALL.RECEIPTSTOCK_5D19A_TMP

WHERE

ZTOF_STATUS = '1'

AND DBUSER IS NOT NULL;

begin

--把票据类型�ؓ5D的缴�ƾ书在库存中更新成一般缴�ƾ书

UPDATE GFMIS_ALL.RECEIPTSTOCK T SET T.RECEIPTTYPE=4765 WHERE EXISTS (SELECT 1 FROM GFMIS_ALL.RECEIPTSTOCK_5D19A_TMP TT WHERE TT.STOCKID = substr(T.STOCKID, 4, length(TRIM(T.STOCKID))) AND TT.ZTOF_STATUS = '1' AND TT.RECEIPTTYPE=11533);

OPEN C_RECEIPTSTOCK_TMP;

LOOP

FETCH C_RECEIPTSTOCK_TMP INTO v_STOCKID,

v_STARTNO,

v_ENDNO,

v_RECEIPTTYPE,

v_STATUS,

v_COUNT,

v_UNITID,

V_RELATEUSERNAME,

V_GLIDENUM,

V_FLAG,

V_PROCTM,

V_REGISTERTM,

V_DBUSER;

EXIT WHEN C_RECEIPTSTOCK_TMP%NOTFOUND;

V_CURSQL := 'SELECT COUNT(1) FROM ' || V_DBUSER || '.RECEIPTSTOCK WHERE STOCKID = ' || v_STOCKID;

EXECUTE IMMEDIATE V_CURSQL INTO V_MYCOUNT;

IF (V_MYCOUNT = 0) THEN

V_SPROCTM :=TO_CHAR(V_PROCTM,'YYYY-MM-DD HH24:MI:SS');

V_SREGISTERTM :=TO_CHAR(V_REGISTERTM,'YYYY-MM-DD HH24:MI:SS');

IF (v_RECEIPTTYPE = 11533) THEN

v_RECEIPTTYPE := 4765;

END IF;

V_CURSQL :='INSERT INTO ' || V_DBUSER || '.RECEIPTSTOCK (STOCKID,STARTNO,ENDNO,RECEIPTTYPE,STATUS,COUNT,UNITID,RELATEUSERNAME,GLIDENUM,FLAG,PROCTM,REGISTERTM) VALUES (' || v_STOCKID || ',''' || v_STARTNO || ''',''' || v_ENDNO || ''',' || v_RECEIPTTYPE || ',''' || v_STATUS || ''',' || v_COUNT || ',' || 1 || ',''' || V_RELATEUSERNAME || ''',' || NVL(V_GLIDENUM, 0) || ',''' || V_FLAG || ''', TO_DATE(''' || V_SPROCTM || ''',''YYYY-MM-DD HH24:MI:SS''), TO_DATE(''' || V_SREGISTERTM || ''',''YYYY-MM-DD HH24:MI:SS''))';

EXECUTE IMMEDIATE V_CURSQL;

UPDATE GFMIS_ALL.RECEIPTSTOCK_5D19A_TMP T SET T.ZTOF_STATUS = '0' WHERE T.STOCKID = v_STOCKID AND T.ZTOF_STATUS = '1';

DELETE FROM GFMIS.RECEIPTSTOCK WHERE STOCKID = v_STOCKID;

END IF;

END LOOP;

UPDATE GFMIS_ALL.RECEIPTSTOCK_5D19A_TMP T SET T.ZTOF_STATUS = '0' WHERE T.ZTOF_STATUS = '1' AND T.RECEIPTTYPE=11533;

COMMIT;

EXCEPTION

WHEN NO_DATA_FOUND THEN

NULL;

WHEN OTHERS THEN

CLOSE C_RECEIPTSTOCK_TMP;

dbms_output.put_line(SQLERRM);

IF C_RECEIPTSTOCK_TMP%ISOPEN THEN

CLOSE C_RECEIPTSTOCK_TMP;

END IF;

RAISE;

end PRO_RECEIPTSTOCK_5D19A;

DROP TRIGGER TRI_RECEIPTSTOCK_CHG_AFT;

CREATE OR REPLACE TRIGGER TRI_RECEIPTSTOCK_CHG_AFT

AFTER DELETE OR INSERT OR UPDATE

ON RECEIPTSTOCK

REFERENCING NEW AS NEW OLD AS OLD

FOR EACH ROW

DECLARE

curTable varchar2(50);

curType char(1);

curTime TimeStamp;

id number(13);

curID number(13);

curSQL varchar2(4000);

curUser varchar2(30);

v_distno varchar2(30);

v_dbuser varchar2(30);

v_mycount number(13);

BEGIN

IF (INSERTING) THEN

--把票据类型�ؓ5DTB的缴�ƾ书在库存中更新成一般缴�ƾ书或�?把指定的19个单位的库存�U�d��分库里面

SELECT COUNT(1) INTO v_mycount FROM GFMIS_ALL.RECEIPTSTOCK_DISTRICT T WHERE T.UNITID = :NEW.UNITID;

IF (v_mycount > 0) THEN

SELECT T.DBUSER INTO v_dbuser FROM GFMIS_ALL.RECEIPTSTOCK_DISTRICT T WHERE T.UNITID = :NEW.UNITID;

curSQL := 'SELECT COUNT(1) FROM ' || v_dbuser || '.RECEIPTSTOCK WHERE UNITID = ' || substr(:NEW.UNITID, 4, length(TRIM(:NEW.UNITID))) || ' AND RECEIPTTYPE = ' || :NEW.RECEIPTTYPE || ' AND STARTNO <= ''' || :NEW.STARTNO || ''' AND ENDNO >= ''' || :NEW.ENDNO || '';

EXECUTE IMMEDIATE curSQL INTO v_mycount;

if (v_mycount = 0) then

INSERT INTO GFMIS_ALL.RECEIPTSTOCK_5D19A_TMP (STOCKID,STARTNO,ENDNO,RECEIPTTYPE,STATUS,COUNT,UNITID,RELATEUSERNAME,GLIDENUM,FLAG,PROCTM,REGISTERTM,DBUSER,ZTOF_STATUS) VALUES (substr(:NEW.STOCKID, 4, length(TRIM(:NEW.STOCKID))),:NEW.STARTNO,:NEW.ENDNO,:NEW.RECEIPTTYPE,:NEW.STATUS,:NEW.COUNT,substr(:NEW.UNITID, 4, length(TRIM(:NEW.UNITID))),:NEW.RELATEUSERNAME,:NEW.GLIDENUM,:NEW.FLAG,:NEW.PROCTM,:NEW.REGISTERTM,v_dbuser,'1');

end if;

END IF;

IF (:NEW.RECEIPTTYPE = 11533) THEN

END IF;

select seq_exchange_temp.nextval into id from dual;

curUser :=lower(SYS_CONTEXT('userenv', 'session_user'));

if (curUser != 'all_exchange_user') then

SELECT CURRENT_TIMESTAMP INTO curTime FROM DUAL;

curTable := 'RECEIPTSTOCK';

if (deleting) then

v_distno:=substr(:OLD.STOCKID,2,2);

select dbuser into v_dbuser from GFMIS_ALL.DISTRICT where distno=v_distno;

curType := '3';

curID := :OLD.stockid;

if (curUser = 'gfmis_all') then

curSQL := 'SP_EX_RECEIPTSTOCK_DEL(''' || :OLD.STOCKID || ''')';

else

curSQL := 'SP_EX_RECEIPTSTOCK_DEL(''' || substr(:OLD.STOCKID,4) || ''')';

end if;

if (updating) then

v_distno:=substr(:OLD.STOCKID,2,2);

select dbuser into v_dbuser from GFMIS_ALL.DISTRICT where distno=v_distno;

curType := '2';

curID := :OLD.stockid;

if (curUser = 'gfmis_all') then

curSQL := 'SP_EX_RECEIPTSTOCK_UPD(''' || :OLD.STOCKID || ''', ''' || :NEW.COUNT || ''', ''' || FN_FMT_SQL(:NEW.ENDNO) || ''', ''' || FN_FMT_SQL(:NEW.FLAG) || ''', ''' || :NEW.GLIDENUM || ''', ''' || TO_CHAR(:NEW.PROCTM,'YYYY-MM-DD HH24:MI:SS') || ''', ''' || :NEW.RECEIPTTYPE || ''', ''' || TO_CHAR(:NEW.REGISTERTM,'YYYY-MM-DD HH24:MI:SS') || ''', ''' || FN_FMT_SQL(:NEW.RELATEUSERNAME) || ''', ''' || FN_FMT_SQL(:NEW.STARTNO) || ''', ''' || FN_FMT_SQL(:NEW.STATUS) || ''', ''' || :NEW.STOCKID || ''', ''' || :NEW.UNITID || ''')';

else

curSQL := 'SP_EX_RECEIPTSTOCK_UPD(''' || substr(:OLD.STOCKID,4) || ''', ''' || :NEW.COUNT || ''', ''' || FN_FMT_SQL(:NEW.ENDNO) || ''', ''' || FN_FMT_SQL(:NEW.FLAG) || ''', ''' || :NEW.GLIDENUM || ''', ''' || TO_CHAR(:NEW.PROCTM,'YYYY-MM-DD HH24:MI:SS') || ''', ''' || :NEW.RECEIPTTYPE || ''', ''' || TO_CHAR(:NEW.REGISTERTM,'YYYY-MM-DD HH24:MI:SS') || ''', ''' || FN_FMT_SQL(:NEW.RELATEUSERNAME) || ''', ''' || FN_FMT_SQL(:NEW.STARTNO) || ''', ''' || FN_FMT_SQL(:NEW.STATUS) || ''', ''' || substr(:NEW.STOCKID ,4) || ''', ''' || substr(:NEW.UNITID ,4) || ''')';

end if;

if (inserting) then

v_distno:=substr(:NEW.STOCKID,2,2);

select dbuser into v_dbuser from GFMIS_ALL.DISTRICT where distno=v_distno;

curType := '1';

curID := :NEW.stockid;

if (curUser = 'gfmis_all') then

curSQL := 'SP_EX_RECEIPTSTOCK_INS(''' || :NEW.COUNT || ''', ''' || FN_FMT_SQL(:NEW.ENDNO) || ''', ''' || FN_FMT_SQL(:NEW.FLAG) || ''', ''' || :NEW.GLIDENUM || ''', ''' || TO_CHAR(:NEW.PROCTM,'YYYY-MM-DD HH24:MI:SS') || ''', ''' || :NEW.RECEIPTTYPE || ''', ''' || TO_CHAR(:NEW.REGISTERTM,'YYYY-MM-DD HH24:MI:SS') || ''', ''' || FN_FMT_SQL(:NEW.RELATEUSERNAME) || ''', ''' || FN_FMT_SQL(:NEW.STARTNO) || ''', ''' || FN_FMT_SQL(:NEW.STATUS) || ''', ''' || :NEW.STOCKID || ''', ''' || :NEW.UNITID || ''')';

else

end if;

if (curUser = 'gfmis_all') then

INSERT INTO exchange_temp (ID,SEQID, TABLENAME, GENSQL, TYPE, DT, STATUS,ZKSTATUS,DBUSER)

VALUES (id, curID,curTable, curSQL, curType, curTime, '2','1',v_dbuser );

else

INSERT INTO exchange_temp (ID,SEQID, TABLENAME, GENSQL, TYPE, DT, STATUS,ZKSTATUS,DBUSER)

VALUES (id, curID,curTable, curSQL, curType, curTime, '2','0',v_dbuser );

end if;

EXCEPTION

WHEN OTHERS THEN

RAISE;

end TRI_RECEIPTSTOCK_CHG_AFT;

commit;

【注】：在每一个DROP语句后面不能�?span style="color: rgb(255,11,242); line-height: 21px">/�Q�而在创徏PROCEDURE和TRIGGER的之后必��d��/�W�号�Q�否则下面的脚本�?/span>

执行��p�|的�?/span>

执行txt和sql的脚本写法如下：

SQL> @D:\myoracle.txt;

Procedure dropped

Procedure created

Trigger dropped

Trigger created

Commit complete

SQL>

exec后面执行跟存储过�E�名或函数名[exec只能在命令行执行�Q�call可以在�Q何环境下执行]�?/div>

MR.CHEN 2012-09-21 13:09 发表评论

Oracle中DBMS_RANDOM包的用法

MR.CHEN — Fri, 21 Sep 2012 05:08:00 GMT

1.dbms_random.value�Ҏ��

dbms_random是一个可以生成随机数值或者字�W�串的程序包。这个包�?/span>initialize()�?/font>seed()�?/font>terminate()�?/font>value()�?/font>normal()�?/font>random()�?/font>string()�{�几个函敎ͼ�但value()是最常用的，value()的用法一般有两个�U�，�W�一
function value return number;
�q�种用法没有参数�Q�会�q�回一个具�?8位精度的数��|��范围�?.0�?.0�Q�但不包�?.0�Q�如下示例：
SQL> set serverout on
SQL> begin
2 for i in 1..10 loop
3    dbms_output.put_line(round(dbms_random.value*100));
4 end loop;
5  end;
6  /
46
19
45
37
33
57
61
20
82
8

PL/SQL �q�程已成功完成�?nbsp;

SQL>

�W�二�U�value带有两个参数�Q�第一个指下限�Q�第二个指上限，��会生成下限��C��限之间的数字�Q�但不包含上限，“学无止境”兄说的就是第二种�Q�如下：
SQL> begin
2 for i in 1..10 loop
3    dbms_output.put_line(trunc(dbms_random.value(1,101)));
4 end loop;
5  end;
6  /
97
77
13
86
68
16
55
36
54
46

PL/SQL �q�程已成功完成�?nbsp;

2. dbms_random.string �Ҏ��

某些用户��理�E�序可能需要�ؓ用户创徏随机的密码。��?0G下的dbms_random.string 可以实现�q�样的功能�?/p>

例如�Q?/div>

SQL> select dbms_random.string('P',8 ) from dual ;

DBMS_RANDOM.STRING('P',8)

--------------------------------------------------------------------------------

�W�一个参数的含义�Q?/div>

■ 'u', 'U' - returning string in uppercase alpha characters

■ 'l', 'L' - returning string in lowercase alpha characters

■ 'a', 'A' - returning string in mixed case alpha characters

■ 'x', 'X' - returning string in uppercase alpha-numeric

characters

■ 'p', 'P' - returning string in any printable characters.

Otherwise the returning string is in uppercase alpha

characters.

P 表示 printable�Q�即字符串由��L��可打印字�W�构�?/font>

而第二个参数表示�q�回的字�W�串长度�?/div>

3. dbms_random.random �Ҏ��

random�q�回的是BINARY_INTEGER�c�d��?产生一个�Q意大��的随机�?/font>

�?font face="Arial">dbms_random.value 的区别�D�?

Order By dbms_random.value;
�q�条语句功能是实现记录的随机排序
另外�Q?br />dbms_random.value �?br />dbms_random.random 两者之间有什么区别？
1。Order By dbms_random.value �Q��ؓ�l�果集的每一行计��一个随机数�Q�dbms_random.value 是结果集的一个列�Q�虽然这个列�q�不在select list 中）�Q�然后根据该列排序，得到的顺序自然就是随机的啦�?br />2。看看desc信息便知道vlue和random�q�两个函数的区别了，value�q�回的是number�c�d��Q?a style="color: #000000" >tb�q�且�q�回的��g��?�?之间�Q�而random�q�回的是BINARY_INTEGER�c�d��Q�以二进制�Ş式存储的数字�Q�据说运��的效率高于number但我没测试过�Q�但取��D��围肯定小于number�Q�具体限制得查资料了�Q?br />如果你要实现随机排序�Q�还是用value函数�?/font>

4. dbms_random.normal�Ҏ��

NORMAL函数�q�回服从正态分布的一�l�数。此正态分布标准偏差�ؓ1�Q�期望��gؓ0。这个函数返回的数��g��?8%是介�?1�?1之间�Q?5%介于-2�?2之间�Q?9%介于-3�?3之间�?/font>

5. dbms_random.send�Ҏ��

用于生成一个随机数�U�子,讄��U�子的目的是可以重复生成随机敎ͼ�用于调试。否则每�ơ不同，难以调度�?/span>

MR.CHEN 2012-09-21 13:08 发表评论

MR.CHEN — Fri, 21 Sep 2012 05:07:00 GMT

对于一般的select操作,如果使用动态的sql语句则需要进行以下几个步�?

open cursor---> parse---> define column---> excute---> fetch rows---> close cursor;

而对于dml操作(insert,update)则需要进行以下几个步�?

open cursor---> parse---> bind variable---> execute---> close cursor;

对于delete操作只需要进行以下几个步�?

open cursor---> parse---> execute---> close cursor;

例一�Q?/div>

create table test(n_id number, v_name varchar2(50), d_insert_date date);

alter table test add constraint pk_id primary key(n_id);

declare

v_cursor number;

v_sql varchar2(200);

v_id number;

v_name varchar2(50);

v_date date;

v_stat number;

begin

v_id := 1;

v_name := '��试 insert';

v_date := sysdate;

v_cursor := dbms_sql.open_cursor; --打开游标

v_sql := 'insert into test(n_id, v_name, d_insert_date) values(:v_id,:v_name,:v_date)';

dbms_sql.parse(v_cursor, v_sql, dbms_sql.native); --解析SQL

dbms_sql.bind_variable(v_cursor, ':v_id', v_id); --�l�定变量

dbms_sql.bind_variable(v_cursor, ':v_name', v_name);

dbms_sql.bind_variable(v_cursor, ':v_date', v_date);

v_stat := dbms_sql.execute(v_cursor); --执行

dbms_sql.close_cursor(v_cursor); --关闭游标

commit;

end;

例二�Q?/div>

declare

v_cursor number;

v_sql varchar2(200);

v_id number;

v_name varchar2(50);

v_stat number;

begin

v_name := '��试 update';

v_id := 1;

v_cursor := dbms_sql.open_cursor;

v_sql := 'update test set v_name = :v_name, d_insert_date = :v_date where n_id = :v_id';

dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);

dbms_sql.bind_variable(v_cursor, ':v_name', v_name);

dbms_sql.bind_variable(v_cursor, ':v_date', sysdate);

dbms_sql.bind_variable(v_cursor, ':v_id', v_id);

v_stat := dbms_sql.execute(v_cursor);

dbms_sql.close_cursor(v_cursor);

commit;

end;

例三�Q?/div>

declare

v_cursor number;

v_sql varchar2(200);

v_id number;

v_stat number;

begin

v_id := 1;

v_sql := 'delete from test where n_id = :v_id';

v_cursor := dbms_sql.open_cursor;

dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);

dbms_sql.bind_variable(v_cursor, ':v_id', v_id);

v_stat := dbms_sql.execute(v_cursor);

dbms_sql.close_cursor(v_cursor);

commit;

end;

例四�Q?/div>

declare

v_cursor number;

v_sql varchar2(200);

v_id number;

v_name varchar2(50);

v_date varchar2(10);

v_stat number;

begin

v_sql := 'select n_id, v_name, to_char(d_insert_date, ''yyyy-mm-dd'') from test';

v_cursor := dbms_sql.open_cursor; --打开游标

dbms_sql.parse(v_cursor, v_sql, dbms_sql.native); --解析游标

dbms_sql.define_column(v_cursor, 1, v_id); --定义�?/font>

dbms_sql.define_column(v_cursor, 2, v_name, 50); --注意�Q�当变量为varchar2�c�d��Ӟ��要加长度

dbms_sql.define_column(v_cursor, 3, v_date, 10);

v_stat := dbms_sql.execute(v_cursor); --执行SQL

loop

exit when dbms_sql.fetch_rows(v_cursor) <= 0; --fetch_rows在结果集中移动游标，如果未抵达末��，�q�回1�?/font>

dbms_sql.column_value(v_cursor, 1, v_id); --��当前行的查询结果写入上面定义的列中�?/font>

dbms_sql.column_value(v_cursor, 2, v_name);

dbms_sql.column_value(v_cursor, 3, v_date);

dbms_output.put_line(v_id || ':' || v_name || ':' || v_date);

end loop;

end;

--------------------------------------------------------------------------------------------------

PL/SQL中��用动态SQL�~�程

在PL/SQL�E�序设计�q�程中，会遇到很多必��M��用动态sql的地方，oracle�pȝ��所tb提供的DMBS_SQL包可以帮助你解决问题�?br />

(一)介绍

    DBMS_SQL�pȝ��包提供了很多函数及过�E?现在��要阐�q�其中��用频率较高的几种:

    function open_cursor:打开一个动态游�?�q�返回一个整�?

    procedure close_cursor(c in out integer) :关闭一个动态游�?参数为open_cursor所打开的游�?

    procedure parse(c in integer, statement in varchar2, language_flag in integer):对动态游标所提供的sql语句�q�行解析,参数C表示游标,statement为sql语句,language-flag��析sql语句所用oracle版本,一般有V6,V7跟native(在不明白所�q�database版本�?使用native);

    procedure define_column(c in integer, position in integer, column any datatype, [column_size in integer]):定义动态游标所能得到的对应�?其中c为动态游�?positon为对应动态sql中的位置(�?开�?,column��值所对应的变�?可以��Z�Q何类�?column_size只有在column为定义长度的�c�d��中��用如VARCHAR2,CHAR�{?该过�E�有很多�U�情�?此处只对一般��用到的类型进行表�q?;

    function execute(c in integer):执行游标,�q�返回处理一个整�?代表处理�l�果(对insert,delete,update才有意义,而对select语句而言可以忽略);

    function fetch_rows(c in integer):�Ҏ��标进行��@环取数据,�q�返回一个整�?�?时表�C�已�l�取到游标末�?

    procedure column_value(c in integer, position in integer, value):��所取得的游标数据赋值到相应的变�?c为游�?position��Z��|?value则�ؓ对应的变�?

    procedure bind_variable(c in integer, name in varchar2, value):定义动态sql语句(DML)中所对应字段的�?c为游�?name为字�D�名�U?value为字�D늚��?

    以上是在�E�序中经�怋�用到的几个函数及�q�程,其他函数及过�E�请参照oracle所提供定义语句dbmssql.sql

(�?一般过�E?/font>

对于一般的select操作,如果使用动态的sql语句则需要进行以下几个步�?
open cursor--->parse--->define column--->excute--->fetch rows--->close cursor;

而对于dml操作(insert,update)则需要进行以下几个步�?
open cursor--->parse--->bind variable--->execute--->close cursor;

对于delete操作只需要进行以下几个步�?
open cursor--->parse--->execute--->close cursor;

(�?具体案例

下面��本人所开发系�l�中某一�E�序做分�?br /> 该过�E��ؓ一股票技术曲�U�计��程�?��数据从��x��数据表中取出,�q�按照计��曲�U�的公式,tb对这些数据进行计��?�q�将�l�果保存到技术曲�U�表�?

--**********************************
--procedure name:R_Ma_Main
--入口参数�Q�PID股票代码,PEND旉��,pinterval旉��间隔,totab目标数据�?br />--调用函数�Q�R_GetSql1,R_GetSql2
--功能�Q�具体计��单支股��ma技术曲�U?br />--旉��Q?001-06-20
--**********************************
create or replace procedure R_Ma_Main
  (
pid varchar2,
pend varchar2,
pinterval varchar2,
totab varchar2
  ) is

--定义数组
type Date_type is table of varchar2(12) index by binary_integer;
type Index_type is table of number index by binary_integer;

TempDate Date_Type;--旉��数组
TempIndex Index_Type;--股票收盘��h��l?br />TempMa Index_Type;--ma技术曲�U�数�?br />
cursor1 integer;--游标
cursor2 integer;--游标
rows_processed integer;--执行游标�q�回

TempInter integer;--参与计算数��g��?br />TempVal integer;--计算旉��c�d��
TempSql varchar2(500);--动态sql语句
MyTime varchar2(12);--旉��
MyIndex number;--数�?br />MidIndex number;--中间变量
i integer := 999;
j integer;
begin
  TempInter := to_number(substr(pinterval,1,4));
  TempVal := to_number(substr(pinterval,5,2));
  TempSql := R_GetSql1(pid, pend, TempVal);--得到选择数据的sql语句

  --得到当天的即时数�?�q�依�ơ保存到数组�?br />  cursor1 := dbms_sql.open_cursor;  --创徏游标
  dbms_sql.parse(cursor1, TempSql, dbms_sql.native);  --解析动态sql语句,取两个字�D?旉��及�h�?其中旉��?4位的varchar2表示
  dbms_sql.define_column(cursor1, 1, MyTime, 12);  --分别定义sql语句中各字段所对应变量
  dbms_sql.define_column(cursor1, 2, MyIndex);
  rows_processed := dbms_sql.execute(cursor1);
  loop
if dbms_sql.fetch_rows(cursor1) > 0 then
   begin
      dbms_sql.column_value(cursor1, 1, MyTime);
      dbms_sql.column_value(cursor1, 2, MyIndex);
      TempDate(i) := MyTime;
      TempIndex(i) := MyIndex;
      i := i - 1;--按倒序的方法填入数�l?br />    end;
else
   exit;
end if;
  end loop;
  dbms_sql.close_cursor(cursor1);

  --如果取得的数据量不够计算个数,则蟩出程�?br />  if i > 999-TempInter then
goto JumpLess;
  end if;

  --初始化中间变�?br />  MidIndex := 0;
  TempIndex(i) := 0;
  for j in i..i+TempInter-1 loop
MidIndex := MidIndex + TempIndex(j);
  end loop;

  --依次对当天数据计��ma�?�q�保存到ma数组�?br />  for j in i+TempInter..999 loop
MidIndex := MidIndex - TempIndex(j-TempInter) + TempIndex(j);
TempMa(j) := MidIndex/TempInter;
  end loop;

  if TempVal < 6 then--如果计算的是分钟跟天的ma技术曲�U?br /> begin
cursor2 := dbms_sql.open_cursor;
TempSql := 'insert into ' || totab || ' values(:r_no, :i_interval, :i_time, :i_index)';
dbms_sql.parse(cursor2, TempSql, dbms_sql.native);
for j in i+TempInter..999 loop
   dbms_sql.bind_variable(cursor2, 'r_no', pid);
   dbms_sql.bind_variable(cursor2, 'i_interval', pinterval);
   dbms_sql.bind_variable(cursor2, 'i_time', TempDate(j));
   dbms_sql.bind_variable(cursor2, 'i_index', TempMa(j));
   rows_processed := dbms_sql.execute(cursor2);--插入数据
end loop;
end;
  end if;
  commit;
  dbms_sql.close_cursor(cursor2);
  --数据量不��?br />  <>
  null;

  --exception处理,无关本话�?br />end;
/

(�?个�h观点

在��用dbms_sql�pȝ��包的�q�程�?其方法简单而又不失灉|��,但还是需要注意一些问�?

    1、在整个�E�序的设计过�E�中,�Ҏ��标的操作切不可有省略的部�?一旦省略其中某一步骤,则会�E�序�~�译�q�程既告��p�|,如在�E�序�l�尾处未�Ҏ��游标�q�行关闭操作,则在再次调用�q�程时会出现错误.
    2、dbms_sql除了可以做一般的select,insert,update,delete�{�静态的sql做能在过�E�中所做工作外,�q�能执行create�{�DDL操作,不过在执行该�c�L��作时应首先显式赋予执行用��L��应的�pȝ��权限,比如create table�{?该类操作只需open cursor--->prase--->close cursor卌��完成.

    以上为本人在工作中对dbms_sql的一点点看法,不到之处,请予指正.
    对于��x��׃��解dbms_sql的朋�?请阅读dbmssql.sql文�g.

附个Oracle自带的流�E�说�?强大�?�Q?/span>

-- The flow of procedure calls will typically look like this:
--
--                      -----------
--                    | open_cursor |
--                      -----------
--                           |
--                           |
--                           v
--                         -----
--          ------------>| parse |
--         |               -----
--         |                 |
--         |                 |---------
--         |                 v         |
--         |           -------------- |
--         |-------->| bind_variable | |
--         |     ^     -------------   |
--         |     |           |         |
--         |      -----------|         |
--         |                 |<--------
--         |                 v
--         |               query?---------- yes ---------
--         |                 |                           |
--         |                no                           |
--         |                 |                           |
--         |                 v                           v
--         |              -------                  -------------
--         |----------->| execute |            ->| define_column |
--         |              -------             |    -------------
--         |                 |------------    |          |
--         |                 |            |    ----------|
--         |                 v            |              v
--         |           --------------     |           -------
--         |       ->| variable_value |   | ------>| execute |
--         |      |    --------------     | |         -------
--         |      |          |            | |            |
--         |       ----------|            | |            |
--         |                 |            | |            v
--         |                 |            | |        ----------
--         |                 |<----------- |----->| fetch_rows |
--         |                 |              |        ----------
--         |                 |              |            |
--         |                 |              |            v
--         |                 |              |    --------------------
--         |                 |              | | column_value         |
--         |                 |              | | variable_value       |
--         |                 |              |    ---------------------
--         |                 |              |            |
--         |                 |<--------------------------
--         |                 |
--          -----------------|
--                           |
--                           v
--                      ------------
--                    | close_cursor |
--                      ------------
--
---------------

MR.CHEN 2012-09-21 13:07 发表评论

js 异步加蝲延迟执行插�g

MR.CHEN — Tue, 18 Sep 2012 08:29:00 GMT

最�q�因工作的需要主要做web前段的优化，其中之一��是js的优化，在项目中的js代码相对比较规范的，都是$(function(){})�q�种格式。但是大安��知道js的下载比较耗时的，它的解析和执行是��d��式的。我们是否可以先让js下蝲下来�Q�在windows的load事�g中在去解析和执行了。答案是肯定的，其中ControlJS .js��实��C��q�种方式。个��得它比LAB的�g�q�加载要优秀的一点，减少了js的加载时间。但是该js功能相对比较强大�Q�同时也没有解决js依赖关系的加载。个��己写了一个小插�g 来实现js异步加蝲延迟执行�?/span>

代码如下�Q?/span>

[javascript]
(function () {
    var document = window.document;
    var getAttribute = function (elem, name) {
        var attrs = elem.attributes;
        var len = attrs.length;
        for (var i = 0; i < len; i++) {
            var attr = attrs[i];
            if (name === attr.nodeName) {
                return attr.nodeValue;
            }
        }

        return undefined;
    };

    var scriptstbData;
    var orders = [];
    var findScripts = function () {
        var aScripts = document.getElementsByTagName('script');
        var len = aScripts.length;
        var scriptsArr = [];
        var scriptsSrc = [];

        for (var i = 0; i < len; i++) {
            var script = aScripts[i];
            if ("text/asynjs" === getAttribute(script, "type") && "undefined" === typeof (script.founded)) {
                script.founded = true;
                var order = getAttribute(script, "order") || getAttribute(script, "data-order") || 0;
                script.order = order;
                if (orders.indexOf(order) < 0) {
                    orders.push(order);
                }
                var src = getAttribute(script, "asynsrc") || getAttribute(script, "data-asynsrc");
                script.src = src;
                if (src && scriptsSrc.indexOf(src) < 0) {
                    scriptsArr.push(script);
                }
            }

        }
        orders.sort(function compare(a, b) { return a - b; });
        return scriptsData = scriptsArr;
    };
    var downloadScripts = function (scriptArr) {
        var scripts = scriptArr || findScripts();
        var len = scripts.length;

        for (var i = 0; i < len; i++) {
            var img = new Image();
            img.src = scripts[i].src;
            img.style.display = "none";
        }
    };

    var processScripts = function (scriptArr) {
        var scripts = (scriptArr && scriptArr.constructor === Array) ? scriptArr : scriptsData;
        var len = scripts.length;
        var failscripts = [];
        var wdata = [];
        for (var i = orders.length - 1; i >= 0; i--) {
            var order = orders[i];
            var urls = [];
            var fns = [];
            for (var j = 0, len = scripts.length; j < len; j++) {
                var script = scripts[j];
                if (script.order == order) {
                    urls.push(script.src);
                }
            }
            if (i == orders.length - 1) {
                wdata[order] = processScript(urls)
            }
            else {
                var nextorder = orders[i + 1];
                fns.push(wdata[nextorder]);
                wdata[order] = processScript(urls, fns);
            }
        }
        var exorder = orders[0]
        wdata[orders[0]]();
    };
    var processScript = function (urls, fn) {
        return function () {
            for (var i = 0; i < urls.length; i++) {
                var se = document.createElement('script');
                if (fn && fn[i]) {
                    se.onload = se.onreadystatechange = fn[i];
                }
                se.src = urls[i];
                var s1 = document.getElementsByTagName('script')[0];
                s1.parentNode.insertBefore(se, s1);
            }
        }
    }

    if (document.addEventListener) {
        document.addEventListener("DOMContentLoaded", function () { downloadScripts(); }, false);
        window.addEventListener("load", function () { setTimeout(processScripts, 0); }, false);

    } else if (document.attachEvent) {

        document.attachEvent("onreadystatechange", function () { downloadScripts(); });
        window.attachEvent("onload", function () { setTimeout(processScripts, 0); });
    }

})();
(function () {
    var document = window.document;
    var getAttribute = function (elem, name) {
        var attrs = elem.attributes;
        var len = attrs.lengthtb;
        for (var i = 0; i < len; i++) {
            var attr = attrs[i];
            if (name === attr.nodeName) {
                return attr.nodeValue;
            }
        }

return undefined;
};

    var scriptsData;
    var orders = [];
    var findScripts = function () {
        var aScripts = document.getElementsByTagName('script');
        var len = aScripts.length;
        var scriptsArr = [];
        var scriptsSrc = [];

        for (var i = 0; i < len; i++) {
            var script = aScripts[i];
            if ("text/asynjs" === getAttribute(script, "type") && "undefined" === typeof (script.founded)) {
                script.founded = true;
                var order = getAttribute(script, "order") || getAttribute(script, "data-order") || 0;
                script.order = order;
                if (orders.indexOf(order) < 0) {
                    orders.push(order);
                }
                var src = getAttribute(script, "asynsrc") || getAttribute(script, "data-asynsrc");
                script.src = src;
                if (src && scriptsSrc.indexOf(src) < 0) {
                    scriptsArr.push(script);
                }
            }

        }
        orders.sort(function compare(a, b) { return a - b; });
        return scriptsData = scriptsArr;
    };
    var downloadScripts = function (scriptArr) {
        var scripts = scriptArr || findScripts();
        var len = scripts.length;

        for (var i = 0; i < len; i++) {
            var img = new Image();
            img.src = scripts[i].src;
            img.style.display = "none";
        }
    };

    if (document.addEventListener) {
        document.addEventListener("DOMContentLoaded", function () { downloadScripts(); }, false);
        window.addEventListener("load", function () { setTimeout(processScripts, 0); }, false);

} else if (document.attachEvent) {

        document.attachEvent("onreadystatechange", function () { downloadScripts(); });
        window.attachEvent("onload", function () { setTimeout(processScripts, 0); });
    }

})();调用代码�Q?/span>

[html]

    test

    test

MR.CHEN 2012-09-18 16:29 发表评论

关于JS异步加蝲的测�?

MR.CHEN — Tue, 18 Sep 2012 08:29:00 GMT

对IE8和Firefox3.6��试�l�果�Q?/span>
1.常规的在head里面使用Script标签引用js,不再是堵塞模式加载（也就是说脚本文�g不再是一个一个被加蝲�Q�加载完成一个才开始加载另一个）�Q�而是最

�?个JS同时开始加载（�q�发限制�?个）�Q�但是script的执行顺序还是按照Script标签��序�Q�而且会阻��页面的呈现�?/span>
2.�׃��1的原因，所以��用document.write("")(此方式对Firefox无效)的方式和head.append(script)�Q�此方式兼容IE和Firefox�Q�的方式

使用异步加蝲意义不大
3.但是使用head.append(script)的方式，不会�ȝ��界面的呈玎ͼ�但是要注意：
�Q?�Q�如果对于window.onload事�g的触发有所影响�Q�在 IE中，window.onload事�g会在tb��面其它元素被加载完毕之后立卌��发（即不必等所有脚本加载完�Q��?/span>

是html��面加蝲完）�Q�而FireFox里的window.onload事�g会等待动态添加的那些脚本文�g也被加蝲完毕后才触发�?/span>
�Q?�Q�虽然我们动态加载的script元素是有严格��序的，但是��览器可不一定这栯��为。在FireFox中，脚本文�g会按照它动态加载的script元素的顺序执

行，而IE会根据脚本文件下载完毕的��序执行�?/span>

注意�Q?/span>
1.在IE6和IE7中，常规的在head里面使用Script标签引用js�Q�是堵塞模式加蝲�Q�也��是说必��d��载完一个JS�Q�才能去加蝲下一个JS
2.在IE6和IE7中，�q�发限制�?个。也��是即��使用head.append(script)的方式异步加�?个JS�Q�也会等前两个JS加蝲完成以后才会加蝲�W�三个JS�?/span>

��试工具�Q�Firebug�Q�Fiddler�Q�HttpWatch

MR.CHEN 2012-09-18 16:29 发表评论

MR.CHEN — Mon, 17 Sep 2012 08:55:00 GMT

嫁�h不嫁�E�序员，
一�q�到头到处忙�Q?br />我是一个程序员�Q?br />背井��M��在外忙，
白天累得脑发涨，
晚上仍�ؓ资料忙；
思乡痛苦心里藏，
四�v漂泊习�ؓ常，
长年累月在外奔，
不能回家陪爹娘，
�l��n大事无心��，
亲戚朋友摧喜�p�，
心中有苦说不出，
回答只能�W�来搪；
工资一�Ҏ��成行�Q?br />怎能买�v商品房，
压力大得气难喘，
前途在哪�\�q��Q?
恋�h分别各一方，
妹盼大哥早还乡，
相思之苦妹隑֒��Q?
距离拉得爱情黄；
好女不嫁�E�序员，
一�q�四季守�I�房�Q?br />家中琐事无暇惻I��
内心愧对爹和娘，
朦胧月色撒地上，
兄弟把酒聚一堂，
后悔��C��q�条路，
同舟共济把帆扬�?
表面风光�Q�内心彷徨；
定w��未老，心已苍桑�Q?br />成就难有�Q�郁��L��常；
比骡子篏�Q?a style="color: #000000" >tb比蚂蚁忙�Q?/div>

MR.CHEN 2012-09-17 16:55 发表评论

超碰在线影院,一二三区在线,xxxxx成人.com

java �U�程基础 学习

PB数据�H�口怎么�Ҏ��内容昄���

Oracle中DBMS_RANDOM包的用法

Oracle中DBMS_RANDOM包的用法

js 异步加蝲 延迟执行 插�g

关于JS异步加蝲的测�?

java �U�程基础学习

PB数据�H�口怎么�Ҏ��内容昄��

js 异步加蝲延迟执行插�g