js 代码
- 函数收藏
- 程序代码
- '*******************************************************************
- '检测是否是手机浏览
- '*******************************************************************
- 程序代码
- '*******************************************************************
- '取得IP地址
- '*******************************************************************
- Function Userip()
- Dim GetClientIP
- '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法
- GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then
- '如果客户端没用代理,应该用Request.ServerVariables("REMOTE_ADDR")方法
- GetClientIP = Request.ServerVariables("REMOTE_ADDR")
- end if
- Userip = GetClientIP
- End function
- 程序代码
- '*******************************************************************
- ' 弹出对话框
- '*******************************************************************
- Sub alert(message)
- message = replace(message,"'","\'")
- Response.Write ("<script>alert('" & message & "')</script>")
- End Sub
- 程序代码
- '*******************************************************************
- ' 返回上一页,一般用在判断信息提交是否完全之后
- '*******************************************************************
- Sub GoBack()
- Response.write ("<script>history.go(-1)</script>")
- End Sub
- 程序代码
- '*******************************************************************
- ' 重定向另外的连接
- '*******************************************************************
- Sub Go(url)
- Response.write ("<script>location.href('" & url & "')</script>")
- End Sub
- 程序代码
- '*******************************************************************
- ' 指定秒数重定向另外的连接
- '*******************************************************************
- sub GoPage(url,s)
- s=s*1000
- Response.Write "<script language=javascript>"
- Response.Write "window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")"
- Response.Write "</script>"
- end sub
- 程序代码
- '*******************************************************************
- ' 判断数字是否整形
- '*******************************************************************
- function isInteger(para)
- on error resume next
- dim str
- dim l,i
- if isNUll(para) then
- isInteger=false
- exit function
- end if
- str=cstr(para)
- if trim(str)="" then
- isInteger=false
- exit function
- end if
- l=len(str)
- for i=1 to l
- if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
- isInteger=false
- exit function
- end if
- next
- isInteger=true
- if err.number<>0 then err.clear
- end function
- 程序代码
- '*******************************************************************
- ' 获得文件扩展名
- '*******************************************************************
- function GetExtend(filename)
- dim tmp
- if filename<>"" then
- tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
- tmp=LCase(tmp)
- 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
- getextend="txt"
- else
- getextend=tmp
- end if
- else
- getextend=""
- end if
- end function
- 程序代码
- ' *----------------------------------------------------------------------------
- ' * 函数:CheckIn
- ' * 描述:检测参数是否有SQL危险字符
- ' * 参数:str要检测的数据
- ' * 返回:FALSE:安全 TRUE:不安全
- ' * 作者:
- ' * 日期:
- ' *----------------------------------------------------------------------------
- function CheckIn(str)
- if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or instr(1,str,chr(59))>0 then
- CheckIn=true
- else
- CheckIn=false
- end if
- end function
- 程序代码
- ' *----------------------------------------------------------------------------
- ' * 函数:HTMLEncode
- ' * 描述:过滤HTML代码
- ' * 参数:--
- ' * 返回:--
- ' * 作者:
- ' * 日期:
- ' *----------------------------------------------------------------------------
- function HTMLEncode(fString)
- if not isnull(fString) then
- fString = replace(fString, ">", ">")
- fString = replace(fString, "<", "<")
- fString = Replace(fString, CHR(32), " ")
- fString = Replace(fString, CHR(9), " ")
- fString = Replace(fString, CHR(34), """)
- fString = Replace(fString, CHR(39), "'")
- fString = Replace(fString, CHR(13), "")
- fString = Replace(fString, CHR(10) & CHR(10), "
- fString = Replace(fString, CHR(10), "
") - HTMLEncode = fString
- end if
- end function
- 程序代码
- '*----------------------------------------------------------------------------
- ' * 函数:HTMLcode
- ' * 描述:过滤表单字符
- ' * 参数:--
- ' * 返回:--
- ' * 作者:
- ' * 日期:
- ' *----------------------------------------------------------------------------
- function HTMLcode(fString)
- if not isnull(fString) then
- fString = Replace(fString, CHR(13), "")
- fString = Replace(fString, CHR(10) & CHR(10), "
- fString = Replace(fString, CHR(34), "")
- fString = Replace(fString, CHR(10), "
") - HTMLcode = fString
- end if
- end function
- so cool 菜单(Jave)
- 程序代码
- <style type="text/css">
- body{
- background-color:#B8B8A0;
- }
- #fbtn{
- display:none;
- overflow:hidden;
- border-style:solid;
- border-width:1px;
- border-color:#e1e1c9 #e1e1c9 #6e6e56 #6e6e56;
- padding:1 1 1 1;
- width:115px;
- height:30px;
- }
- #fbtn_txt{
- position:relative;
- }
- #fbtn_txt div{
- height:30px;
- padding-top:11px;
- font-size:9px;
- font-family:small fonts;
- color:#800080;
- text-align:center;
- cursor:hand;
- }
- #fbtn_mask{
- background-color:#ffffff;
- position:relative;
- width:100%;
- height:100%;
- }
- </style>
-
G1
-
good morning
-
G2
-
good evening
-
M1
-
my name is mozart0
-
M2
-
mm mm i love u
-
G1
-
good morning
-
G2
-
good evening
-
M1
-
my name is mozart0
-
M2
-
mm mm i love u
- <script>
- var current=null;
- for(var i=0;i<fbtn.length;i++){ <="" span="">
- fbtn_txt[i].style.posTop=-30;
- fbtn_mask[i].style.posTop=-30;
- fbtn[i].index=i;
- fbtn[i].style.display="block";
- fbtn[i].οnmοuseοver=function(){
- if(!current){
- current=this;
- domove(this.index);
- }
- else if(current!=this){
- domove(current.index);
- domove(this.index);
- current=this;
- }
- }
- fbtn[i].οnmοuseοut=function(){
- if(event.toElement==this.parentElement&¤t==this){
- domove(this.index);
- current=null;
- }
- }
- }
- function domove(num){
- var o=fbtn_txt[num];
- var m=fbtn_mask[num];
- if(o.style.posTop<-60){
- o.style.display="none";
- var t=o.children[1].innerHTML;
- o.children[1].innerHTML=o.children[0].innerHTML;
- o.children[0].innerHTML=t;
- o.style.posTop=-30;
- o.style.display="block";
- if(m.style.posTop>30)
- m.style.posTop=-30;
- else
- m.style.posTop=0;
- }
- else{
- m.style.posTop+=3;
- o.style.posTop-=3;
- setTimeout('domove('+num+')',15);
- }
- }
- </script>