常用的特效.txt

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

    set  objFSO  =  nothing

%>

待续.....

24.点击返回上页代码:
<form>
  <p><input TYPE="button" value="返回上一步" onCLICK="history.back(-1)"></p>
</form>
24.点击刷新代码:
<form>
  <p><input TYPE="button" value="刷新按钮一" onCLICK="ReloadButton()"></p>
</form>
<script language="javascript"><!--
function ReloadButton(){location.href="allbutton.htm";}
// --></script>

24.点击刷新代码2:
<form>
  <p><input TYPE="button" value="刷新按钮二" onClick="history.go(0)"> </p>
</form>

<form>
  <p><input TYPE="button" value="打开一个网站" onCLICK="HomeButton()"></p>
</form>
<script language="javascript"><!--
function HomeButton(){location.href="http://nettrain.126.com";;;}
// --></script>

25.弹出警告框代码:
<form>
  <p><input TYPE="button" value="弹出警告框" onCLICK="AlertButton()"></p>
</form>
<script language="javascript"><!--
function AlertButton(){window.alert("要多多光临呀！");}
// --></script>

26.状态栏信息
<form>
  <p><input TYPE="button" value="状态栏信息" onCLICK="StatusButton()"></p>
</form>
<script language="javascript"><!--
function StatusButton(){window.status="要多多光临呀！";}
// --></script>

27.背景色变换
<form>
  <p><input TYPE="button" value="背景色变换" onClick="BgButton()"></p>
</form>
<script>function BgButton(){
if (document.bgColor=='#00ffff')
    {document.bgColor='#ffffff';}
else{document.bgColor='#00ffff';}
}
</script>

28.点击打开新窗口
<form>
  <p><input TYPE="button" value="打开新窗口" onCLICK="NewWindow()"></p>
</form>
<script language="javascript"><!--
function NewWindow(){window.open("http://www.mcmx.com";;,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");}
// --></script></body>
验证合法EMAIL地址：
function IsValidEmail(email)
 dim names, name, i, c
 IsValidEmail = true
 names = Split(email, "@")
 if UBound(names) <> 1 then 
   IsValidEmail = false
   exit function
 end if
 for each name in names 
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then 
      IsValidEmail = false
      exit function
   end if
 next
 if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
 end if
 i = Len(names(1)) - InStrRev(names(1), ".")
 if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
 end if
 if InStr(email, "..") > 0 then
   IsValidEmail = false
 end if

end function

 
Windows Media Player 播放器
<OBJECT id=MediaPlayer1 
            style="LEFT: 0px; VISIBILITY: visible; POSITION: absolute; TOP: 0px;z-index:2" 
codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby=

Loading 
            type=application/x-oleobject height=300 width=320 
            classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 VIEWASTEXT>
 <PARAM NAME="URL" value="地址">

            
  <param name="AudioStream" value="-1">
    <param name="AutoSize" value="0">
    <param name="AutoStart" value="-1">
    <param name="AnimationAtStart" value="0">
    <param name="AllowScan" value="-1">
    <param name="AllowChangeDisplaySize" value="-1">
    <param name="AutoRewind" value="0">
    <param name="Balance" value="0">
    <param name="BaseURL" value>
    <param name="BufferingTime" value="5">
    <param name="CaptioningID" value>
    <param name="ClickToPlay" value="-1">
    <param name="CursorType" value="0">
    <param name="CurrentPosition" value="-1">
    <param name="CurrentMarker" value="0">
    <param name="DefaultFrame" value>
    <param name="DisplayBackColor" value="0">
    <param name="DisplayForeColor" value="16777215">
    <param name="DisplayMode" value="0">
    <param name="DisplaySize" value="4">
    <param name="Enabled" value="-1">
    <param name="EnableContextMenu" value="-1">
    <param name="EnablePositionControls" value="0">
    <param name="EnableFullScreenControls" value="0">
    <param name="EnableTracker" value="-1">
    <param name="InvokeURLs" value="-1">
    <param name="Language" value="-1">
    <param name="Mute" value="0">
    <param name="PlayCount" value="1">
    <param name="PreviewMode" value="0">
    <param name="Rate" value="1">
    <param name="SAMILang" value>
    <param name="SAMIStyle" value>
    <param name="SAMIFileName" value>
    <param name="SelectionStart" value="-1">
    <param name="SelectionEnd" value="-1">
    <param name="SendOpenStateChangeEvents" value="-1">
    <param name="SendWarningEvents" value="-1">
    <param name="SendErrorEvents" value="-1">
    <param name="SendKeyboardEvents" value="0">
    <param name="SendMouseClickEvents" value="0">
    <param name="SendMouseMoveEvents" value="0">
    <param name="SendPlayStateChangeEvents" value="-1">
    <param name="ShowCaptioning" value="0">
    <param name="ShowControls" value="-1">
    <param name="ShowAudioControls" value="-1">
    <param name="ShowDisplay" value="0">
    <param name="ShowGotoBar" value="0">
    <param name="ShowPositionControls" value="-1">
    <param name="ShowStatusBar" value="-1">
    <param name="ShowTracker" value="-1">
    <param name="TransparentAtStart" value="-1">
    <param name="VideoBorderWidth" value="0">
    <param name="VideoBorderColor" value="0">
    <param name="VideoBorder3D" value="0">
    <param name="Volume" value="70">
    <param name="WindowlessVideo" value="0">
</OBJECT>

RealPlayer 播放器
<object id=video1 classid=" clasid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA" 
      width=320 height=240 align="middle">
        <param name="controls" value="inagewindow">
        <param name="console" value="chicp1">
        <param name="autostar" value="true">
        <param name="src" value="地址">
        <embed        
                 src="地址"          
               type="audio/x-pn-realaudio-plugin" console="chip1"                
         controls="imagewindow" width=320 height=240 autostart=true align="middle">
        </embed> 
      </object>
删除记录时弹出确认框：

<script LANGUAGE="VBSCRIPT">         
a=msgbox("真的要删除该记录吗？",1,"注意")
if a=1 then
  location="Dodelete.asp?id=<%=id%>"           //指向执行删除的页面Dodelete.asp
  else 
  history.go(-1)
end if
</script>

其中id=<%=id%>是指从表单中取得的数据编号，当然也可以是其他的东东。
将查询数据时得到的记录关键字用红色显示：

<% =replace(RS("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>") %>

其中SEARCHNAME是查询时输入的关键字，这个效果就向大多数查询功能中常用的那样，也是在论坛中问人得来的答案，希望对和我一样的菜鸟有帮助，

5.session
<% 
'设置时间
session.timeout=1
'结束一个
session.abandon
%>
6.关闭子窗口时刷新父窗口
在子窗口
<script language="javascript">
window.opener.location="父窗口页面"
window.close()
</script>

目录树生成器。生成指定的目录结构。
如下：
：<%
'目录树生成器，功能：生成指定的目录结构
   'dbpath=server.mappath(".\xsadxx\assdd\bsdsdf\c\d\e\f\g\")
   dbpath="c:\www\s\s\d\f\we\v\sdf\x\sf\x\sf\x\sf\s\f\sf\sdf\sfd\sdfs\"
   function cutx(str,cx)
    dim x,y,z
    y=str
    x=InStrRev(y,cx)
    if x=len(y) then
     y=left(y,len(y)-1)
     x=InStrRev(y,cx)
    end if
    cutx=left(y,x)
   end function
  
   Function addx(str,mode)
    dim x,y,z,m,n
    x=str
    z=mode
    If right(x,1)<>"\" then
     x=x&"\"
    end if
    If right(z,1)<>"\"  then
     z=z&"\"
    end if
    y=Replace(x,z,"")
    m=instr(y,"\")
    m=left(y,m)
    addx=z&m
   end function
  function findfolder(dbpath)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If not fso.folderExists(dbpath) Then
     findfolder(cutx(dbpath,"\"))
    else
     xx=dbpath
    end if
    Set fso1 = nothing
  end function
  
  function createfolder(truep,dbpath)
  Set fsof = CreateObject("Scripting.FileSystemObject")
  dbpath1=addx(dbpath,truep)
   If not fsof.folderExists(dbpath1) then
    'Response.Write dbpath1
    Fsof.Createfolder(dbpath1)
    createfolder dbpath1,dbpath 
   else
    createfolder=true
   end if
   
   Set fsof = nothing
  end function
  Function createtree(foder)
   dim dbpath   
   dbpath=foder
   findfolder dbpath
      createfolder xx,dbpath
  End Function 
  xx=""
  'Response.Write findfolder(dbpath)
  
  'Response.Write createfolder(xx,dbpath)
  createtree dbpath
  
  
  %>

点击按纽后进入指定页面，不是提交按纽，是普通按纽
onclick="action='你的页面地址';form.submit()"
2.文本提交自动分行
text=replace(text,chr(10),"<br>")
text=replace(text,chr(13),"<br>")
3.不同星期调用不同网页
<%response.buffer=false%>
<html><head>
<title>dailystuff.asp</title>
</head>
<body>
<%
whatweekday=Weekday(now())
select case whatweekday
case vbSunday
   response.redirect "http://www.cnn.com";;
case vbMonday
   response.redirect "http://www.activeserverpages.com";;
case vbTuesday
   response.redirect "http://www.aspalliance.com";;
case vbWednesday
   response.redirect "http://www.aspconvention.com";;
case vbThursday
   response.redirect "http://www.aspmagazine.com";;
case vbFriday
   response.redirect "http://www.dilbert.com";;
case vbSaturday
   response.redirect "http://www.movielink.com";;
end select
%>
</body>
</html>
让页面五秒钟后自动关闭
<script> 
setTimeout("window.close()",5000); 
</script>
如何做到点某一按钮时进入指定页
<input type=button onclick="javascript:location.href='http://dvbbs.net&#39;" value='动网论坛 '>