破风筝

SQL语法
说明：复制表(只复制结构,源表名：a 新表名：b)
SQL: select * into b from a where 1<>1

说明：拷贝表(拷贝数据,源表名：a 目标表名：b)
SQL: insert into b(a, b, c) select d,e,f from b;

说明：显示文章、提交人和最后回复时间
SQL: select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b

说明：外连接查询(表名1：a 表名2：b)
SQL: select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c

说明：日程安排提前五分钟提醒
SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5


说明：两张关联表，删除主表中已经在副表中没有的信息
SQL:
delete from info where not exists ( select * from infobz where info.infid=infobz.infid )

说明：--
SQL:
SELECT A.NUM, A.NAME, B.UPD_DATE, B.PREV_UPD_DATE
FROM TABLE1,
  (SELECT X.NUM, X.UPD_DATE, Y.UPD_DATE PREV_UPD_DATE
    FROM (SELECT NUM, UPD_DATE, INBOUND_QTY, STOCK_ONHAND
          FROM TABLE2
        WHERE TO_CHAR(UPD_DATE,'YYYY/MM') = TO_CHAR(SYSDATE, 'YYYY/MM')) X,
        (SELECT NUM, UPD_DATE, STOCK_ONHAND
          FROM TABLE2
        WHERE TO_CHAR(UPD_DATE,'YYYY/MM') =
            TO_CHAR(TO_DATE(TO_CHAR(SYSDATE, 'YYYY/MM') &brvbar;&brvbar; '/01','YYYY/MM/DD') - 1, 'YYYY/MM') ) Y,
    WHERE X.NUM = Y.NUM （+）
      AND X.INBOUND_QTY + NVL(Y.STOCK_ONHAND,0) <> X.STOCK_ONHAND ) B
WHERE A.NUM = B.NUM

说明：--
SQL:
select * from studentinfo where not exists(select * from student where studentinfo.id=student.id) and 系名称='"&strdepartmentname&"' and 专业名称='"&strprofessionname&"' order by 性别,生源地,高考总成绩

说明：
从数据库中去一年的各单位电话费统计(电话费定额贺电化肥清单两个表来源）
SQL:
SELECT a.userper, a.tel, a.standfee, TO_CHAR(a.telfeedate, 'yyyy') AS telyear,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS JAN,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS FRI,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS MAR,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS APR,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS MAY,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS JUE,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS JUL,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS AGU,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS SEP,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS OCT,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS NOV,
    SUM(decode(TO_CHAR(a.telfeedate, 'mm'), ?', a.factration)) AS DEC
FROM (SELECT a.userper, a.tel, a.standfee, b.telfeedate, b.factration
    FROM TELFEESTAND a, TELFEE b
    WHERE a.tel = b.telfax) a
GROUP BY a.userper, a.tel, a.standfee, TO_CHAR(a.telfeedate, 'yyyy')

说明：四表联查问题：
SQL: select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where .....

说明：得到表中最小的未使用的ID号
SQL:
SELECT (CASE WHEN EXISTS(SELECT * FROM Handle b WHERE b.HandleID = 1) THEN MIN(HandleID) + 1 ELSE 1 END) as HandleID
FROM Handle
WHERE NOT HandleID IN (SELECT a.HandleID - 1 FROM Handle a)

小懒虫

我也占个位
到时在发

hlbejy

来晚了，先占个位子

风中的无脚鸟

赶紧先占一个位，琢磨琢磨再发

gareth

鱼怎么没设置顶啊

lyct

以后天天来看

alpar

函数收藏

1. 
   
2. '*******************************************************************
   
3. '检测是否是手机浏览
   
4. '*******************************************************************
   
5. <%
   
6. if instr(request.ServerVariables("HTTP_USER_AGENT"),"Mozilla")=0 then
   
7.   response.redirect "/wap" '如果客户端为手机访问,则进入/wap目录
   
8. else
   
9.   response.redirect "http://wap.fz0132.com" '如果客户端不是手机访问,则进入指定地址
   
10. end if
    
11. %>

复制代码

[#splitline#]

1. '*******************************************************************
   
2. '取得IP地址
   
3. '*******************************************************************
   
4. Function Userip()
   
5.     Dim GetClientIP
   
6.     '如果客户端用了代理服务器，则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
   
7.     GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   
8.     If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
   
9.         '如果客户端没用代理，应该用Request.ServerVariables("REMOTE_ADDR")方法
   
10.         GetClientIP = Request.ServerVariables("REMOTE_ADDR")
    
11.     end if
    
12.     Userip = GetClientIP
    
13. End function
    

复制代码

1. '*******************************************************************
   
2. ' 弹出对话框
   
3. '*******************************************************************
   
4. Sub alert(message)
   
5.   message = replace(message,"'","\'")
   
6.   Response.Write ("<script>alert('" & message & "')</script>")
   
7. End Sub

复制代码

　

1. '*******************************************************************
   
2. ' 返回上一页，一般用在判断信息提交是否完全之后
   
3. '*******************************************************************
   
4. Sub GoBack()
   
5.   Response.write ("<script>history.go(-1)</script>")
   
6. End Sub

复制代码

　

1. '*******************************************************************
   
2. ' 重定向另外的连接
   
3. '*******************************************************************
   
4. Sub Go(url)
   
5.   Response.write ("<script>location.href('" & url & "')</script>")
   
6. End Sub

复制代码

　

1. '*******************************************************************
   
2. ' 指定秒数重定向另外的连接
   
3. '*******************************************************************
   
4. sub GoPage(url,s)
   
5.   s=s*1000
   
6.   Response.Write "<SCRIPT LANGUAGE=JavaScript>"
   
7.   Response.Write "window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")"
   
8.   Response.Write "</script>"
   
9. end sub

复制代码

1. '*******************************************************************
   
2. ' 判断数字是否整形
   
3. '*******************************************************************
   
4. function isInteger(para)
   
5. on error resume next
   
6. dim str
   
7. dim l,i
   
8. if isNUll(para) then
   
9. isInteger=false
   
10. exit function
    
11. end if
    
12. str=cstr(para)
    
13. if trim(str)="" then
    
14. isInteger=false
    
15. exit function
    
16. end if
    
17. l=len(str)
    
18. for i=1 to l
    
19. if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
    
20. isInteger=false
    
21. exit function
    
22. end if
    
23. next
    
24. isInteger=true
    
25. if err.number<>0 then err.clear
    
26. end function

复制代码

　

1. '*******************************************************************
   
2. ' 获得文件扩展名
   
3. '*******************************************************************
   
4. function GetExtend(filename)
   
5. dim tmp
   
6. if filename<>"" then
   
7. tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
   
8. tmp=LCase(tmp)
   
9. if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then
   
10. getextend="txt"
    
11. else
    
12. getextend=tmp
    
13. end if
    
14. else
    
15. getextend=""
    
16. end if
    
17. end function

复制代码

　

1. ' *----------------------------------------------------------------------------
   
2. ' * 函数：CheckIn
   
3. ' * 描述：检测参数是否有SQL危险字符
   
4. ' * 参数：str要检测的数据
   
5. ' * 返回：FALSE：安全 TRUE：不安全
   
6. ' * 作者：
   
7. ' * 日期：
   
8. ' *----------------------------------------------------------------------------
   
9. function CheckIn(str)
   
10. if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then
    
11. CheckIn=true
    
12. else
    
13. CheckIn=false
    
14. end if
    
15. end function

复制代码

1. ' *----------------------------------------------------------------------------
   
2. ' * 函数：HTMLEncode
   
3. ' * 描述：过滤HTML代码
   
4. ' * 参数：--
   
5. ' * 返回：--
   
6. ' * 作者：
   
7. ' * 日期：
   
8. ' *----------------------------------------------------------------------------
   
9. function HTMLEncode(fString)
   
10. if not isnull(fString) then
    
11. fString = replace(fString, ">", "&gt;")
    
12. fString = replace(fString, "<", "&lt;")
    
13. 
    
14. fString = Replace(fString, CHR(32), "&nbsp;")
    
15. fString = Replace(fString, CHR(9), "&nbsp;")
    
16. fString = Replace(fString, CHR(34), "&quot;")
    
17. fString = Replace(fString, CHR(39), "&#39;")
    
18. fString = Replace(fString, CHR(13), "")
    
19. fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    
20. fString = Replace(fString, CHR(10), "<BR> ")
    
21. 
    
22. HTMLEncode = fString
    
23. end if
    
24. end function

复制代码

1. '*----------------------------------------------------------------------------
   
2. ' * 函数：HTMLcode
   
3. ' * 描述：过滤表单字符
   
4. ' * 参数：--
   
5. ' * 返回：--
   
6. ' * 作者：
   
7. ' * 日期：
   
8. ' *----------------------------------------------------------------------------
   
9. function HTMLcode(fString)
   
10. if not isnull(fString) then
    
11. fString = Replace(fString, CHR(13), "")
    
12. fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    
13. fString = Replace(fString, CHR(34), "")
    
14. fString = Replace(fString, CHR(10), "<BR>")
    
15. HTMLcode = fString
    
16. end if
    
17. end function

复制代码

so cool 菜单(Jave)

1. <style>
   
2. body{
   
3.     background-color:#B8B8A0;
   
4.     }
   
5. #fbtn{
   
6.     display:none;
   
7.     overflow:hidden;
   
8.     border-style:solid;
   
9.     border-width:1px;
   
10.     border-color:#e1e1c9 #e1e1c9 #6e6e56 #6e6e56;
    
11.     padding:1 1 1 1;
    
12.     width:115px;
    
13.     height:30px;
    
14.     }
    
15. #fbtn_txt{
    
16.     position:relative;
    
17.     }
    
18. #fbtn_txt div{
    
19.     height:30px;
    
20.     padding-top:11px;
    
21.     font-size:9px;
    
22.     font-family:small fonts;
    
23.     color:#800080;
    
24.     text-align:center;
    
25.     cursor:hand;
    
26.     }
    
27. #fbtn_mask{
    
28.     background-color:#ffffff;
    
29.     position:relative;
    
30.     width:100%;
    
31.     height:100%;
    
32.     }
    
33. </style>
    
34. 
    
35. <div id=fbtn>
    
36.     <div id=fbtn_mask></div>
    
37.     <div id=fbtn_txt>
    
38.         <div>G1</div>
    
39.         <div>good morning</div>
    
40.     </div>
    
41. </div>
    
42. <div id=fbtn>
    
43.     <div id=fbtn_mask></div>
    
44.     <div id=fbtn_txt>
    
45.         <div>G2</div>
    
46.         <div>good evening</div>
    
47.     </div>
    
48. </div>
    
49. <div id=fbtn>
    
50.     <div id=fbtn_mask></div>
    
51.     <div id=fbtn_txt>
    
52.         <div>M1</div>
    
53.         <div>my name is mozart0</div>
    
54.     </div>
    
55. </div>
    
56. <div id=fbtn>
    
57.     <div id=fbtn_mask></div>
    
58.     <div id=fbtn_txt>
    
59.         <div>M2</div>
    
60.         <div>mm mm i love u</div>
    
61.     </div>
    
62. </div>
    
63. <div id=fbtn>
    
64.     <div id=fbtn_mask></div>
    
65.     <div id=fbtn_txt>
    
66.         <div>G1</div>
    
67.         <div>good morning</div>
    
68.     </div>
    
69. </div>
    
70. <div id=fbtn>
    
71.     <div id=fbtn_mask></div>
    
72.     <div id=fbtn_txt>
    
73.         <div>G2</div>
    
74.         <div>good evening</div>
    
75.     </div>
    
76. </div>
    
77. <div id=fbtn>
    
78.     <div id=fbtn_mask></div>
    
79.     <div id=fbtn_txt>
    
80.         <div>M1</div>
    
81.         <div>my name is mozart0</div>
    
82.     </div>
    
83. </div>
    
84. <div id=fbtn>
    
85.     <div id=fbtn_mask></div>
    
86.     <div id=fbtn_txt>
    
87.         <div>M2</div>
    
88.         <div>mm mm i love u</div>
    
89.     </div>
    
90. </div>
    
91. 
    
92. <script>
    
93. var current=null;
    
94. for(var i=0;i<fbtn.length;i++){
    
95.     fbtn_txt[i].style.posTop=-30;
    
96.     fbtn_mask[i].style.posTop=-30;
    
97.     fbtn[i].index=i;
    
98.     fbtn[i].style.display="block";
    
99.     fbtn[i].onmouseover=function(){
    
100.         if(!current){
     
101.             current=this;
     
102.             domove(this.index);
     
103.             }
     
104.         else if(current!=this){
     
105.             domove(current.index);
     
106.             domove(this.index);
     
107.             current=this;
     
108.             }
     
109.         }
     
110.     fbtn[i].onmouseout=function(){
     
111.         if(event.toElement==this.parentElement&&current==this){
     
112.             domove(this.index);
     
113.             current=null;
     
114.             }
     
115.         }
     
116.     }
     
117. function domove(num){
     
118.     var o=fbtn_txt[num];
     
119.     var m=fbtn_mask[num];
     
120.     if(o.style.posTop<-60){
     
121.         o.style.display="none";
     
122.         var t=o.children[1].innerHTML;
     
123.         o.children[1].innerHTML=o.children[0].innerHTML;
     
124.         o.children[0].innerHTML=t;
     
125.         o.style.posTop=-30;
     
126.         o.style.display="block";
     
127.         if(m.style.posTop>30)
     
128.             m.style.posTop=-30;
     
129.         else
     
130.             m.style.posTop=0;
     
131.         }
     
132.     else{
     
133.         m.style.posTop+=3;
     
134.         o.style.posTop-=3;
     
135.         setTimeout('domove('+num+')',15);
     
136.         }
     
137.     }
     
138. </script>

复制代码

风行

先占位.等我会啦再补上.

hooyes

<%
response.write"hooyes"
%>
这个最常用的。

elvacn

来晚了！先占位子！