经典实用的基础asp程序整理

[ 2006-06-01 01:51:24 | 作者: kite ]

字体大小: 大 | 中 | 小

1、关闭窗口在图片的连接上写
javascript:window.close();

2、用VBScript弹出提示框然后跳转到指定页面
<%
response.write "<script language='javascript'>" & chr(13)
    response.write "alert('成功删除！');" & Chr(13)
    response.write "window.document.location.href='set2.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
Response.End
%>

3、页面摘入等待。。。。脚本说明:
　　把如下代码加入<head>区域中
　　<SCRIPT LANGUAGE="JavaScript">
　　document.write("<font size=6 color=blue face='楷体_GB2312'><B>正在载入心月湖首页,请稍等..</B></font>");
　　window.clear;
　　window.location.href="http://www.ewyu.com";
　　</SCRIPT>

4.让页面五秒钟后自动关闭
<script>
setTimeout("window.close()",5000);
</script>

5.对操作再次确认的实现方法
想对某项操作给予再次确认，如删除,可以用下面的JS实现。
<script language="JavaScript">
function Del(){if(confirm("您确定要删除?")){return true;}return false;}
</script>
然后在你删除的连接上加上下面的语句
onClick="return Del()"
如<a href="newdel.asp?id=<%=rs("newsid")%> onClick="return Del()">删除</a>

6.对某些项一定要填定的实现方法
方法一VBSCRIPT
<SCRIPT LANGUAGE="VBSCRIPT">
Sub Checkdata()
If Attend.song1.Value = Empty Then
Window.Alert "“歌手”一定要填写哦..."
Exit Sub
End if
If Attend.song2.Value = Empty Then
Window.Alert "“歌名”一定要填写哦..."
Exit Sub
End if
   If Attend.song3.Value = Empty Then
Window.Alert "“文件URL”一定要填写哦..."
Exit Sub
End if
   If Attend.song4.Value = Empty Then
Window.Alert "“添加者”一定要填写哦..."
Exit Sub
End if
  Attend.Submit
End sub
</SCRIPT>
其中Attend是表名，song1等等是文本域的名，最后在提交按钮加参数onClick="Checkdata"
如 <input name="button" type="button" onClick="Checkdata" value="提交" />

方法二JSSCRIPT
<script language="JavaScript">
function CheckForm()
{
  if (formadduser.UserNameAdd.value=="")
  {
  alert("用户名称不能为空！");
    formadduser.UserNameAdd.focus();
    return false;
  }

  if (formadduser.PasswdAdd1.value.length<6 || formadduser.PasswdAdd1.value.length>15 )
   {
    alert("密码必须大于六位和小于15位!");
    formadduser.PasswdAdd1.focus();
    return false;
  }

  if (formadduser.PasswdAdd1.value!=formadduser.PasswdAdd2.value)
  {
    alert("密码输入不匹配,请检查！");
    formadduser.PasswdAdd1.focus();
    return false;
  }

}
</script>
其中formadduser是表名，UserNameAdd等等是文本域的名，最后在表单<form>中加参数onSubmit="return CheckForm()"
如<FORM METHOD=POST name="formadduser" ACTION="UserADD_C.asp" onSubmit="return CheckForm()">

[最后编辑于 kite, at 2006-08-19 01:07:57]