ASP常用语句

 

================点击显示
<script>
function showimg(sid){

for (var i=1;i<=6;i++){//所有的显示执行为不显示。6为最大可能的
eval("pic"+i+".style.display='none';");
}
if (sid!=0){//不为空值时
eval("pic"+sid+".style.display='';");//按传递值显示

}
document.form1.xxwl_xxfl_id_h.value=sid
return false;
}
</script>

显示位置上 id="pic1" style="display='none'" //none为不显示，''为显示

调用：onChange="showimg(this.value);"

----------------------读取IP
<%dim userip
 userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
%>

----------------------链接、按钮上直接打开新窗口
onClick="MM_openBrWindow('jsxxpic_tj_xg.asp?jsxx_id=<%=(jsxx.Fields.Item("jsxx_id").Value)%>&wjm=<%=(jsxx.Fields.Item("jsxx_wjm").Value)%>','','scrollbars=0,resizable=no,width=455,height=120,left=300,top=300')"
-----------------------链接、按钮询问打开新窗口
<SCRIPT language=javascript1.2>
function chkfm_yh(file_id,wjm,wl_id){ 
　　if (confirm('确定删除吗？')){ 
　　MM_openBrWindow('jsxxxx_del.asp?fileid='+file_id+'&wjm='+wjm+'&wl_id='+wl_id+'','','scrollbars=0,resizable=no,width=300,height=80,left=300,top=300');
　　} 
　　} 
　　</script>
---------------------
<%
MM_connasp_xx_STRING="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../#data/asp_xx.mdb")&";"

'设置数据库链接
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../#data/asp_xx.mdb")   
'session("strconn")=strConn
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
%>
<%
'dim conn,connstr,db,rs,rstemp,sql
db="../#data/asp_xx.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.createobject("adodb.recordset")
%>
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features) {
  window.open(theURL,winName,features);
}
</script>
----------------------
数据添加、修改
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM c_ylsy",dbc,1,3
%>
<%
rs.AddNew
 rs("ylsy_cl_id")=trim(Request("ylsy_cl_id"))'trim除去前面的空格
 rs.Update
  rs.Close

%>
<%
set rsa=server.CreateObject("adodb.recordset")
rsa.Open "SELECT * FROM c_ylgy  WHERE clylgy_id="&Request("clylgy_id"),dbc,1,3
%>
<%
'rs.AddNew
 rsa("ylgy_sys")=rsa("ylgy_sys")+Request("ylsy_sl")
rsa.Update
  rsa.Close
  dbc.Close
  %>
---------------进入页面聚集文本框
<script language="JavaScript">
 function checkk_null(){
            document.form1.yhm.focus();
  return true;
 }
</script>
οnlοad="checkk_null()"
------------屏蔽F5、Ctrl+N、Alt+F4的源码
<script language="javascript">
             function DisableKey()
              {
                     //8   退格键
                     //78  Ctrl+N
                     //37  Alt+ 方向键 ←
                     //39  Alt+ 方向键 →
                     //116       F5 刷新键
                     //82  Ctrl + R
                     //121       shift+F10
                     //115       屏蔽Alt+F4
                     //屏蔽 shift 加鼠标左键新开一网页
                     if (window.event.keyCode==8
                            ||event.keyCode==78
                            ||event.keyCode==37
                            ||event.keyCode==39
                            ||event.keyCode==116
                            ||event.keyCode==82
                            ||event.keyCode==121
                            ||event.keyCode==115
                            ||(window.event.srcElement.tagName == "A" && window.event.shiftKey))
                            {
                                   alert('请通过事物代码进行操作！');
                                   window.event.returnvalue=false;
                            }
                    
              }
       </script>
       </HEAD>
       < body MS_POSITIONING="GridLayout" onKeyDown="DisableKey()">

--------------------字号放大与缩小
【<a href="javascript:doZoom(24)">大</a> <a  href="javascript:doZoom(18)">中</a> <a href="javascript:doZoom(12)">小</a>】
        字号放大与缩小－表格行名称为id=zoom　调用common.js内容function doZoom(size){ document.getElementById('zoom').style.fontSize = size + 'px';}
-----------
走动的时钟
<span id="liveclock" style"=width: 109px; height: 15px"></span>
<SCRIPT language=javascript>
function www_helpor_net()
{
var Digital=new Date()
var hours=Digital.getHours()
var minutes=Digital.getMinutes()
var seconds=Digital.getSeconds()

if(minutes<=9)
minutes="0"+minutes
if(seconds<=9)
seconds="0"+seconds
myclock="现在时刻：<font size='5' face='Arial black'>"+hours+":"+minutes+":"+seconds+"</font>"
if(document.layers){document.layers.liveclock.document.write(myclock)
document.layers.liveclock.document.close()
}else if(document.all)
liveclock.innerHTML=myclock
setTimeout("www_helpor_net()",1000)
}
www_helpor_net();
//-->
</SCRIPT>
  
---------------------
javascript的容错脚本，有了它，你的页面就不会出现错误提示了。
<SCRIPT LANGUAGE="JavaScript">
 <!--
  function Helpor_net() {
  return true;
   }
 window.onerror = Helpor_net();
 // -->
         </SCRIPT>
     
-------------时间相减===只能本月相减
<script type="text/javascript">
//只能本月相减？？
var t1="2002-11-1" 
var t2="2002-12-12" 
//execScript('n = DateDiff("d",t2,t1)','vbscript')
eval(execScript('n = DateDiff("d",'+t1+','+t2+')','vbscript'));
alert(n)
</script>
--------------调用比较时间大小函数（聚集时）<%=m%>为变量表单
Onselect="if(ks_sj.value!=''){javascript:return che_sj_null(this.value,document.form<%=m%>.ks_sj.value,<%=m%>);}"
--------------比较时间大小
<script language="JavaScript">
   function che_sj_null(sj2,sj1,y){
   var  t1=sj1;
   var t2=sj2;
   var t_a=t1.split("-")[0]+'/'+t1.split("-")[1]+'/'+t1.split("-")[2]//转换为时间格式：年/月/日
   var t_b=t2.split("-")[0]+'/'+t2.split("-")[1]+'/'+t2.split("-")[2]
if(Date.parse(new  Date(t_a))>Date.parse(new  Date(t_b)))//比较时间大小
{alert("归队日期["+t_b+"]不能小于/r/n出车日期["+t_a+"]");
eval('document.form'+y+'.js_sj.value=""')
}
}
 </script>
--------------
datediff(dd,convert(datetime,'"&str1&"'),dbill_date)<=0 ，str:时间字符串
sql="select * from table1 where time bttween '#"&time1&"#' and '#"&time2&"#'"
时间比较
--------------
<script language="JavaScript">
   function che_null(ff,m){
    var mm=m
   var q=ff
   if (q!=''){
     qm=ff.split("|")
eval('document.form'+mm+'.dwcl_clid.value="/qm[0]')
//mm为变量　eval(string)函数是把其字符串参数当作是JavaScript脚本来运行
eval('document.form'+mm+'.dwcl_clbh.value=qm[1]')//
eval('document.form'+mm+'.dwcl_clmc.value=qm[2]"')//
   }
   }
   </SCRIPT>

---------------
eval(string)函数是把其字符串参数当作是JavaScript脚本来运行
------------------通用翻页程序
<%if clxx.recordcount<>0 then
%>
<%'更改数据源名称clxx
data_count=clxx.recordcount'总信息条数
clxx.pagesize=1
data_a=clxx.pagesize'每页显示几条
 data_aa=clxx.pagecount '页数
page=Request("page")
if (page-data_aa) > 0 then
page=data_aa
elseif page = "" or page < 1 then
page = 1
end if
clxx.absolutepage=page'更改数据源名称clxx
'%>
<!--＃i nclude file="page_xx.txt" -->
<%end if %>
-===-
<%bb="clgl_xxgl.asp?xx=1&dh_h="&Request("dh_h")&"&txt="&txt_z%>//上下页的路径和变量
      <%'下拉列表中的隐含变量值
 sub listPages()
   %>
      <input type="hidden" name="xx" value="1">
      <input type="hidden" name="dh_h" value="<%=Request("dh_h")%>">
      <input type="hidden" name="txt" value="<%=txt_z%>">
      <%
 end sub
%>
      <%call listpages_a()%>//调用隐含变量
------------
new Array(3);
-----------
2396657 佳慧经理
--------------------------
用数组显示数据库值<%=rs(0)%>

-------------------------替换
Replace( 字符串表达式,findnreplacewith[,start[,count[,compare]]])
将一个字符串取代 部份字。寻找待取代的原字符串 (find) ， 若找到则被取代为新字符串 (replacewith) 。
find ：待寻找取代的原字符串。
replacewith ：取代后的字。
start ：从第几个字开始寻找取代， 若未设定则由第一个字开始寻找。
count ：取代的次数。 若未设定则所有寻找到的字符串取代字符 串全部被取代。
compare ：寻找比较的方法， compare=0 表示二进制比较法， compare=1 表文字比较法， compare =2 表根据比较的 数据型态而定，若省略 compare 则为预设的二进制比较法。
------------
<%=FormatDateTime("2000-9-12", vbLongDate)%>//显示为2000年9月12日
<%=FormatDateTime("2000,9,12", vbLongDate)%>//显示为2000年9月12日
<%=FormatDateTime("2000.9.12", vbLongDate)%>//错误显示
<%=IsDate("2005,12,23")%>//True是时间  是否可以转换成日期  是 (True) 否 (False)
<%=IsDate("05.12.23")%>//True是时间
<%=IsDate("2005.12.23")%>//false不是时间

<%=DateSerial (2000,9,12)%>//显示为2000-9-12
<%=DateSerial (03,9,12)%>//显示为2003-9-12
-----------------
相同值时取不同值
gb_xx.Source = "SELECT DISTINCT(gb_gjmc)  FROM gb_xx"
-----------------
 if rs("userpass")=trim(trpass(request("pw"))) then
trpass密码加密后读取
-----------------
图片位置：
right靠右
left靠左
--------------
flash动画透明设置：
设置parameters
parameter＝wmode　　value=transparent
<param name="wmode" value="transparent">
------------------------
两个时间相减
 <%=Abs(DateDiff ("d",时间值,date())) %>
----------------
将ryxx.Fields.Item("ry_dw").Value字符串由左而右与dwxx_pp.Fields.Item("lw_dw").Value &"|"(分搳值)比较，传回第一个相同的位置.无时为0
InStr(ryxx.Fields.Item("ry_dw").Value,dwxx_pp.Fields.Item("lw_dw").Value &"|")
-------------
上传文件格式判断－可上传文件格式
<input type="file" name="file" class=input_text size="8" onChange=if(file.value.indexOf(".jpg")==-1&&file.value.indexOf(".gif")==-1&&file.value.indexOf(".JPG")==-1&&file.value.indexOf(".GIF")==-1){alert("照片格式不正确！");file.outerHTML=file.outerHTML.replace();} title="照片格式只能是gif 或jpg">
  <br>
 <input type=button class=input_text οnclick=shownews(file.value) value=预览照片 title="选择照片后可点击预览该照片">
---
不可上传文件格式
file.value.indexOf(".gif")!=-1||file.value.indexOf(".JPG")!=-1
--------
预览照片时调用的函数
<script language="javascript">
function shownews(URL){
   if (URL=="")
 {
 alert("请点击[浏览]选择文件!");
 }
   else
  {
window.open(URL,"news",'menubar=no,scrollbars=no,resizable=no,width=620,height=440,left=130,top=100');
  }
}
</script>
---------------
parseFloat()//取小数，parseInt()//取整数。都是将值转换为数值的函数
将parseInt(jr<%=did%>.value)值转换为数字进行和的计算
hj_je<%=did%>.value=parseInt(jr<%=did%>.value)+parseInt(wx_jr<%=did%>.value)
--------------
如果不是数字符时[if (isNaN(value)]其值等于某值[value="/<%=(ffxg.Fields.Item("je").Value)%>']
onBlur="if (value ==''){value="/<%=(ffxg.Fields.Item("je").Value)%>"};if (isNaN(value)){value="/<%=(ffxg.Fields.Item("je").Value)%>'}"  title="只能填写数字且不能为空"
----
如果不是数字符时[if (isNaN(value)]弹出提示窗口
onBlur="if (value ==''){value="/<%=(ffxg.Fields.Item("je").Value)%>"};if (isNaN(value)){alert('只能填写数字')}"  title="只能填写数字且不能为空"
-----------
限制输入数字和小数、小数点
onKeyPress="if (event.keyCode ==47 || (event.keyCode < 46 || event.keyCode > 57)) event.returnValue = false;"
限制输入整数字
onKeyPress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue = false;"
限制输入数字、小数、小数点、和，/
onKeyPress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"
----------------
只能输入汉字
οnkeyup="value="/value.replace(/[" -~]/g,'')" οnkeydοwn="if(event.keyCode==13)event.keyCode=9"title="姓名只能输入汉字"
--------------------
不能输入汉字
 <input type="text" name="yhm" size="20" value="<%=yhm_a%>" οnkeyup="value="/value.replace(/[/W]/g,"'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^/d]/g,''))" οnkeydοwn="if(event.keyCode==13)event.keyCode=9" title="请不要输入汉字">
------------------------

ENTER键可以让光标移到下一个输入框
<input οnkeydοwn="if(event.keyCode==13)event.keyCode=9" > <br>

只能是中文<input οnkeyup="value="/value.replace(/[" -~]/g,'')" οnkeydοwn="if(event.keyCode==13)event.keyCode=9"> <br>

屏蔽输入法<input style="ime-mode:disabled" οnkeydοwn="if(event.keyCode==13)event.keyCode=9"> <br>

只能输入英文和数字<input οnkeyup="value="/value.replace(/[/W]/g,"'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^/d]/g,''))" οnkeydοwn="if(event.keyCode==13)event.keyCode=9"> <br>

只能是数字<input οnkeyup="value="/value.replace(/["^/d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^/d]/g,''))"><br>

只能显示，不能修改<input readonly value="只能显示，不能修改">
--------------------------
点击调用判断
onBlur="if (this.value ==''){this.value="/<%=(ksgz.Fields.Item("zc").Value)%>"};if (isNaN(this.value)){return checkk_kk();}"
------------
HMTL中的四个特殊字符(<,>,&,")是不能直接写在文件中的,必须用后面的语句来替换, <=&lt; >=&gt; &=&amp; "=&quot;(英文字母一定要小写)

要输出"%>"时，用"%/>"转义字符代替.
------------
readonly 文本框禁止输入
-----------
分搳
V= Split(Request("cpflh"),",")
For i=0 To UBound(V)'少循环一次但不理解
next

-----
分搳
onChange="javascript:return che_null(this.value);"传递值this.value
分搳后可赋值给QQ，也可显示alert("对不起！"+qm[0])
<script language="JavaScript">
   function che_null(ff){
   var q=ff
     qm=ff.split("|")
 //  alert("对不起！"+qm[0]);
document.form1.qq.value=qm[1]
   }
   </SCRIPT>
－－－－－继上
<input type="hidden" name="qq">
<input type="hidden" name="qqm" value="<%=dw_bhxx%>">
<input type="text" name="cbh" size="20" value="车辆牌照"onFocus="if (value =='车辆牌照'){value ='苏G-';select()}"  onBlur="if (value ==''){value='车辆牌照'};if (this.value ==qq.value){alert('车辆牌照信息没有改变');value='车辆牌照'};if (qqm.value.indexOf(this.value+'|')!=-1){alert('此车辆牌照正在使用');value='车辆牌照'}">
<%=dw_bhxx%>为多个包含｜的值
--------------

<script language="JavaScript">
   function che_null(ff){
   var q=ff
     qm=ff.split("|")
document.form1.qq.value="/qm[1];
document.form1.cbh.value=qm[1]
document.form1.cl_sydw_id.value=qm[2]
  " }
   </SCRIPT>
//document.form1.cl_sydw_id.value=qm[2]赋值给下面。显示值会跟随着变化！　好
<select name="cl_sydw_id">
<option value="" >车辆使用单位</option>
<%
While (NOT dwxx.EOF)
%>
<option value="/<%=(dwxx.Fields.Item("dwxx_id").Value)%>" ><%=(dwxx.Fields.Item("dwmc").Value)%></option>
<%
  dwxx.MoveNext()
Wend
If (dwxx.CursorType > 0) Then
  dwxx.MoveFirst
Else
  dwxx.Requery
End If
%>
                </select>
---------------
(InStr(字符串,包含的值)＝包含值所有在的位置数
当判断包含值存在不时可用<>0或=0
-----------
数据集总记录数
数据集名.recordcount
修改数据集的“数据集名.CursorType＝0 ”为“数据集名.CursorType=1”
排序：ORDER BY xm_xx.xm_id desc
Session("MM_Username")储存登陆客户的登陆用户名信息
Response.Redirect "跳转到网址变量或字符串"
Response.Write 显示发送到浏览器的内容
------------------
------------
循环月份
  <select name="yf">
    <option value="<%=month(date())%>"><%=month(date())%></option>
    <%for r=1 to 12%>
    <option value="<%=r%>"><%=r%></option>
    <%next %>
</select>
循环日　
<select name="yf">
　　　　　　　　　　　<option value="<%=day(date())%>"><%=day(date())%></option>
 <%if month(date())=1 or month(date())=3 or month(date())=5 or month(date())=7 or month(date())=8 or month(date())=10  or month(date())=12 then
    te_z=31
    elseif month(date())=4 or month(date())=6 or month(date())=9 or month(date())=11  then
    te_z=30
    elseif month(date())=2 then
    te_z=28
    end if
    for te=-1 to te_z%>
                  <option value="<%=te%>"><%=te%></option>
      <%next %>
                </select>

----------------
title="提示内容"
换行方法：
         1、title="第一行提示内容<%response.write chr(13)%>第二行提示内容"
         2、title="第一行提示内容&#13&#10第二行提示内容&#13&#10第三行提示内容"
         3、title="提示内容<%=chr(13)%>提示内容"　
------------
随机生成一个多位数的号(六位数)
<% dim Str,length,i,passStr,pos
passStr=""
Str="qq0w1e2r3t4y5u6i7o8p9a0s1d2f3g4h5j6k7z8x9c0v1b2n3m4Z5X6C7V8B9N0M1A2S3D4F5G6H7J8K9L0Q1W2E3R4T5Y6U7I8O9P0"
length=len(Str)
Randomize
for i=0 to 5
 pos=Int((length)*rnd+1)
 passStr=passStr+Mid(Str,pos,1)
next
response.write passStr
%>
---------
日期时间：
now()　日期时间
date()　日期
time 时间
year(now)年
month(now)月
day(now)日
hour(now)时
minute(now)分
second(now)秒
weekDay(date)星期
weekdayname将数字星期转化为汉字星期　　　<%=weekdayname(weekday(date))%>
<%=year(date)&"年"&month(date)&"月"&day(date)&"日"%><%=weekdayname(weekday(date))%>
---------
1、今天是第<%=datediff("ww","2004-1-1",date(),2)%>周
2、今天是<%=weekdayname(weekday(date()))%>
3、本周的星期一是<%=dateAdd("d",1-weekday(date),2),date)%>
4、本周的星期日是<%=dateAdd("d",7-weekday(date),2),date)%>
5  <%=datediff("ww","1/1/"&year(date),date())+1%>计算本年度的周次
1、3、4的星期都是以星期一为一个星期的第一天，具体可以参看日期时间函数
1、今天是第<%=datediff("ww","2004-1-1",date())%>周
2、今天是<%=weekdayname(weekday(date()))%>
3、本周的星期一是<%=dateAdd("d",2-weekday(date),date())%>
4、本周的星期日是<%=dateAdd("d",8-weekday(date),date())%>
-------------
cint(取四舍五入数)
formatNumber(yyh_x,2)//取2位小数
-------------
计算1月1日到今天的天数
<%=datediff("d","1/1/"&year(date),date())%>
-------------
点击鼠标后传递变量值。用onClick="return chkfm1(变量1，变量2)"｜是接收变量值chkfm(del_p,g)
'+del_p+'&mm='+g+'是传递来的变量的写法
<SCRIPT language=javascript1.2>
function chkfm(del_p,g){
　　if (confirm('确定删除吗？/r/n删除后无法恢复'+del_p+g)) { 
　　MM_openBrWindow('th_delxx.asp?cp_ckid='+del_p+'&mm='+g+'','','scrollbars=0,resizable=no,width=300,height=80,left=300,top=300');
　　} 
　　} 
　　</script>
-----------------
<script language="javascript">
 setInterval("window.close()", 500);//8000毫秒后自动关闭窗口
 window.opener.location.reload()//自动刷新父窗口
 </script>
－－－－－－－－－－－
删除文件
<%  if Request("wjm")<>"无" then
 Dim FileObject                             
 Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
 Dim SourceFile,SourceFile1,DestiFile ,wj          
  wj=Request("wjm")
 SourceFile1=Server.MapPath(wj)
   IF  FileObject.FileExists(SourceFile1) Then
 FileObject.DeleteFile SourceFile1 
 End If
 End If
 %>
---------------------
点击打开新窗口
<span onClick="javascript:window.open('glzd1.htm')" style="cursor:hand">经管系教学管理制度</span>
---------------
发送前判断且有弹出窗口时不执行页面
value="发送" οnclick="if(mm.value==1 && yh.value=='' ){alert('请选择阅读用户');yh.focus();return false}"
--------------
多次选择给某一域赋值、判断选择值已经存在时弹出窗口提示
 onChange="if(this.value!='' && yh.value.indexOf(this.value+'|')!=-1){alert('该用户已经选择')};if(this.value!='' && yh.value.indexOf(this.value+'|')==-1){yh.value="/yh.value+this.value+"'|'};if (this.value=='' ){alert('请选择阅读用户')}; "
--------------
弹出消息窗口：
<SCRIPT language=javascript1.2>
       alert("注册用户名不能为空")
　　</script>
-----------------
判断函数：
<script language="JavaScript">
   function checkk_null(){
  if (document.form1.yhm.value="/="请填写用户名"){
   alert("注册用户名不能为空");
   document.form1.yhm.select();
   return" false;
  }
  if (document.form1.yhm.value.length!=6){
   alert("注册用户名只能输入6个字符了");
   document.form1.yhm.select();
   return false;
  }
  if (document.form1.mm.value="/=""){
   alert("请选择");
   document.form1.mm.focus();
   return" false;
  }
  if (document.form1.dh.value!=""){
   if (isNaN(document.form1.dh.value)){
   alert("电话号码必须是数字");
   document.form1.dh.select();
   return false;
  }
  return true;
 }
</script>
<script language="JavaScript">
   function checkk_null(){
  if (document.form1.cbh_cl_id.value="/=""){
   alert("请选择车辆名称");
   document.form1.cbh_cl_id.focus();
   return" false;
  }
  if (document.form1.cbh.value="/=""){
   alert("请填写车牌照号码");
   document.form1.cbh.select();
   return" false;
  }
  if (document.form1.cbh.value="/="车辆牌照"){
   alert("请填写车牌照号码");
   document.form1.cbh.select();
   return" false;
  }
  if (document.form1.cbh.value="/="苏G-"){
   alert("请填写5位字符的车牌照号码");
   document.form1.cbh.select();
   return" false;
  }
  if (document.form1.cbh.value.length!=8){
   alert("车牌照号码只能输入5个字符了");
   document.form1.cbh.select();
   return false;
  }
//注意下页的语句：
  if(confirm("确定要更换挂牌吗？")==false)
           return false;
  return true;
 }
</script>
onSubmit="javascript:return checkk_null();"//在表单上调用
===============循环表单中的判断//form_z为表单的名称变量  2006-5-15
<script language="JavaScript">
   function checkk_null(mc,form_z){
   var str=eval('document.form'+form_z)
            if (str.xxjysb_jxh.value="/=''){
   alert("请填写["+mc+"]机型配置");
   eval('document.form'+form_z+'.xxjysb_jxh.focus();"')
   return false;
  }
   if (str.xxjysb_sl.value="/=''){
   alert("请填写["+mc+"]数量");
   eval('document.form'+form_z+'.xxjysb_sl.focus();"')
   return false;
  }
  if (str.xxjysb_gzsj.value="/=''){
   alert("请选择["+mc+"]购置时间");
   eval('document.form'+form_z+'.xxjysb_gzsj.focus();"')
   return false;
  }
  return true;
 }
</script>

===============
注意聚焦语句focus();（下拉列表用）和select();（文本框用）的用法。
删除判断语句（弹出确认框）
<SCRIPT language=javascript1.2>
function chkfm1(){
 if(confirm("确定要删除吗？")==false)
  return false;
    return true;
}
</SCRIPT>

onClick="return chkfm1()"//在按钮上调用
--------
自动关闭窗口
<script language="JavaScript">
 javascript:window.close()//关闭子窗口
 javascript:window.opener.location.reload()//刷新父窗口
        javascript:window.location.reload()//刷新窗口
</script>
--------------------
判断条件是否成立＋确定　取消
<SCRIPT language=javascript1.2>
function chkfm1(mm){
if (document.form1.xm_xq_sb_yj.value="/="审核意见："){
   alert("审核意见不能为空");
   document.form1.xm_xq_sb_yj.select();
   return" false;
  }
 if(confirm("确定["+mm+"]吗？")==false)
  return false;
    return true;
}
</SCRIPT>
----------------
打开新窗口时判断
<a href="#" onClick="if (confirm('确定在上报本月报表吗？/r/n上报后如果有人外派请点击左边的[登记]进行更改！')){MM_openBrWindow('lw_ry_cg_sb.asp?xm_id=<%=(cgxx.Fields.Item("xm_id").Value)%>&xm_mc=<%=(cgxx.Fields.Item("xm_mc").Value)%>&xm_ygz=<%=cgxx("xm_ygz")%>','','scrollbars=1,resizable=no,width=200,height=50,left=10,top=100')};"  title="【<%=month(date)%>月份】无新派人时上报信息">上报</a>
---------------------
判断lj_xx==1时执行1　否则执行2
<SCRIPT language=javascript1.2>
function chkfm(lj_xx,xm_sb_id,xm_mc){
　　 if (lj_xx==1){ 
　　MM_openBrWindow('lw_xm_xq_sb_sh_xx.asp?xm_sb_id='+xm_sb_id+'&xm_mc='+xm_mc+'','','scrollbars=1,resizable=no,width=300,height=200,left=150,top=150');
　　}
 else  { 
  MM_openBrWindow('lw_xm_sq_sb_sh_xx_sh.asp?xm_sb_id='+xm_sb_id+'&xm_mc='+xm_mc+'','','scrollbars=1,resizable=no,width=300,height=200,left=150,top=150');
} 
}
　　</script>
----------------------
 <SCRIPT language=javascript1.2>
function chkfm<%=del_p%>(mm){ 
　　if (confirm('确定删除吗？/r/n删除后无法恢复')) { 
　　MM_openBrWindow('xjsc.asp?id_ok=<%= xjxg.Fields.Item("id").Value %>','','scrollbars=0,resizable=no,width=400,height=100,left=300,top=300');
　　} 
　　} 
　　</script>
mm为传递来的变量值
----------------
＊对于所有表单元素的value参数值，它们都是字符形式，要参于计算，必须先用parseInt()函数把它转换成数值形式
----------------
文本框内容点击消失语句：
  1、  <input type="text" name="txtkkk" class="bttk_k" onMouseOver="this.focus()" onBlur="if (value ==''){value='<%=txt_k%>'}" onFocus="this.select()" onClick="if(this.value="/='<%=txt_k%>')this.value="''"title="输入公文标题或内容关键字检索" size="19" value="<%=txt_k%>">

　2、　value="请输入查询条件"onFocus="if (value =='请输入查询条件'){value =''}" onBlur="if (value ==''){value='请输入查询条件'}"
3、　文本域内容点击消失语句
<textarea name="nr" cols="71" rows="22" wrap="PHYSICAL" id="nr"value="请填写文件的内容或填写对附件的说明"onFocus="if (value =='请填写文件的内容或填写对附件的说明'){value =''}" onBlur="if (value ==''){value='请填写文件的内容或填写对附件的说明'}">请填写文件的内容或填写对附件的说明</textarea>
-----------
4、　value="0" onMouseOver="this.focus()" onBlur="if (value ==''){value='0'}" onFocus="this.select()" onClick="if(this.value="/='0')this.value=''"
-------------
Session("MM_Username")储存登陆客户的登陆用户名信息
Response.Redirect" "跳转到网址变量或字符串"
Response.Write 显示发送到浏览器的内容
------------------
<% session.timeout=300%>///session执行时间
Server.ScriptTimeOut=999999///服务器执行时间
----------------
弹出对话框分行/r/n
<script language="JavaScript">
alert("你输入的用户名或密码不正确！请重新输入。/r/n或者你不是合法用户。/r/n或者你已经被取消登陆资格了。/r/n或请与网站中心联系。");
 history.back()
 </script>
---------
<script language="JavaScript">
if ((screen.width ==1024) && (screen.height ==768))//读取窗口的大小
javascript:MM_openBrWindow('web/main.asp?sx=1','','resizable=yes,status=no,scrollbars=1,width=1024,height=700,left=0,top=0')
else//否则的写法
javascript:MM_openBrWindow('web/main.asp?sx=1','','resizable=yes,status=no,scrollbars=1,width=800,height=600,left=0,top=0')
</SCRIPT>
---------
在文字上选择选择框的方法
<input type="checkbox" name="swclyj5" value="" id="check4">
                <label for="check4" title="文字提示内容">实施</label>
------------
后退并刷新
<a href="javascript:history.back(-1);location.reload()">重新选择单位</a>
-------------
关闭新窗口并刷新父窗口
<script language="JavaScript">
 javascript:window.close()
 javascript:window.opener.location.reload()
</script>
<a href="#" οnclick="javascript:window.opener.location.reload();">刷新父窗口</a>
------------
<OBJECT id="clo" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM name="Command" value="Close">
</OBJECT><a href="javascript:clo.Click()">关闭窗口不提示</a>
----------
<SCRIPT language=JavaScript><!--
   if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) < 4)
   document.write("<P>&nbsp;</P><P>&nbsp;</P><h1><font color=RED><center>你的浏览器无法正常浏览本页。</h1>请用 IE4.0以上版本浏览!!")
//-->
</SCRIPT>
-------------
清空文本域中的值
<input type=button οnclick="file'+i+'.outerHTML=file'+i+'.outerHTML.replace()" value="清除file里字">
<input type=button οnclick="file.outerHTML=file.outerHTML.replace(/value=/w/g,'')" value="清除file里字">
/value=/w/g,''-----在循环上传文件中可取消这句
-------------
 禁止鼠标右键：放在body中 οncοntextmenu=return(false)
 禁止复制：放在body中onselectstart="return false"
onUnload="leave()" //关闭窗口时调用。放在body中
-----------
打印确认
<script language="javascript">
function printsub()
{
if (confirm('请单击“确定”按钮开始打印，单击“取消”按钮不打印！'))
{
 window.print();
}
}
</script>
---------------
打开新窗口时传递表单值的写法
<script language="javascript">
function printsub()
{
 window.open('workthings_stat_user_print.asp?userdept='+document.form1.userdept.value+'&yearvalue="/+document.form1.yearvalue.value+'&monthvalue='+document.form1.monthvalue.value+'&username='+document.form1.username.value,'kqprintwindow',"location=no,height=450, width=600, toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, status=no');
}
</script>
-----------
实时走动的时间（从零开始计时）
<form name="form1" method="post" action=""> <input type=text name=input1 size=9>
</form>
      <script language=javascript>
var sec=0;var min=0;var hou=0;flag=0;idt=window.setTimeout("update();",1000);function update(){sec++;if(sec==60){sec=0;min+=1;}if(min==60){min=0;hou+=1;}if((min>0)&&(flag==0)){flag=1;}
document.form1.input1.value=hou+"时"+min+"分"+sec+"秒";idt=window.setTimeout("update();",1000);}
</script>
------------------
各种按钮
----------------
循环删除提示  <%=del_p%>放在循环前　值＝1
<input type="button" name="Button" value="==删除学籍==" onClick="JavaScript:return chkfm<%=del_p%>(); " title="学生信息删除后无法恢复&#13&#10请谨慎此操作！">
                              <SCRIPT language=javascript1.2>
function chkfm<%=del_p%>(){ 
　　if (confirm('确定删除吗？/r/n删除后无法恢复')) { 
　　MM_openBrWindow('xjsc.asp?id_ok=<%= xjxg.Fields.Item("id").Value %>','','scrollbars=0,resizable=no,width=400,height=100,left=300,top=300');
　　} 
　　} 
　　</script>
---------------
判断后跳转
onClick="if (confirm('确定删除吗？/r/n删除后无法恢复')) {location.href="/zcyhcx.asp"}"
-------------
   1、按钮跳转
<input type="button" name="Button" value="/按钮跳转"onClick="location.href="/zcyhcx.asp'" >
2、返回按钮
 <input type="button" value="返回" onClick="history.back(-1)" name="button">
3、自制按钮
  <input type="button" value="返回" onClick="history.back(-1)"style="width:120;height:18;background-color: #FFFFFF; border: 1 solid #808080" name="button2">
4、文字返回
<a href="javascript:history.go(-1)">返回</a>
5、文字关闭
<a href="javascript:window.close()">关闭</a>
按钮关闭
<input type="submit" name="Submit2" value="按钮关闭" onClick="javascript:window.close()">
6、刷新调用子程序按钮
<input TYPE="button" VALUE="刷新" ONCLICK="ReloadButton()">'调用子程序语句ReloadButton()
<script language="JavaScript">
<!--
function ReloadButton(){location.href="/en.asp";}
// -->
</script>
7、刷新按钮
<input TYPE="button" VALUE="刷新" onClick="history.go(0)">
 onClick=javascript:window.opener.location.reload()//子窗口中刷新父窗口
8、弹出警告窗口
<form>
  <p><input TYPE="button" VALUE="弹出警告" ONCLICK="AlertButton()"></p>
</form>
<script language="JavaScript"><!--
function AlertButton()
{window.alert("小心");}
// -->
</script>
7、状态栏信息
<form>
  <p><input TYPE="button" VALUE="状态栏信息" ONCLICK="StatusButton()"></p>
</form>
<script language="JavaScript">
<!--
function StatusButton(){window.status="状态栏信息:要多多光临呀！";}
// -->
</script>
8、背景色变换
<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>
9、打开新窗口
<form>
  <p><input TYPE="button" VALUE="打开新窗口" ONCLICK="NewWindow()"></p>
</form>
<script language="JavaScript">
<!--
function NewWindow(){window.open("新窗口文件名,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");}
// -->
</script>
---------
点击调用MM_openBrWindow打开新窗口
onClick="MM_openBrWindow('ld_xx_xgxx.asp?ld_id=<%=(yqpic.Fields.Item("ld_id").Value)%>&wjm=<%=(yqpic.Fields.Item("wjm").Value)%>','','scrollbars=0,resizable=no,width=400,height=100,left=200,top=300')"

<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features) {
  window.open(theURL,winName,features);
}
</script>
--------
自动打开新窗口
<script language="JavaScript">
<!--
window.open('新窗口文件名.htm','','height=420,width=300,left=0 top=0');
// -->
</script>
10、执行表单
<a href="#"ONCLICK="document.form2.submit();"> 执行表单</a>
---------
submit()语句为执行表单
---------
11、自动跳转打开到指定窗口：
<script language="javascript">
 window.parent("新窗口名").location.href="要打开的文件名";
</script>
新窗口名
mainFrame
topFrame
leftFrame
12、自动关闭窗口
<script language="javascript">
 setInterval("window.close()", 8000);//8000毫秒后自动关闭窗口
 </script>
13、文字关闭
<a href="javascript:window.close()">关闭窗口</a>
14、最小化、最大化、关闭窗口不提示
<OBJECT id="min" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM name="Command" value="Minimize">
</OBJECT>
 <a href="javascript:min.Click()">最小化窗口</a>
<OBJECT id="clo" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM name="Command" value="Close">
</OBJECT>
<a href="javascript:clo.Click()">关闭窗口不提示</a>
<OBJECT id="max" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM name="Command" value="Maximize">
</OBJECT>
<a href="javascript:max.Click()">最大化窗口</a>

14、关闭按钮
<input type="submit" name="Submit" value="关闭窗口"onClick=javascript:window.close()>
15、登陆三次判断
<%
dim cs_ok
cs_ok=1
session("a")=cs_ok
session("b")=session("a")+session("b")
%>
<%if session("b")=3 then %>
<script language="JavaScript">
<!--
<!--
alert("对不起！你已经三次输入不正确的信息了！！说明你不是合法的用户。");
 javascript:window.close()
 // -->
</script>
<% end if %>
16、鼠标行为
   1  onMouseOut　 鼠标移出
   2  onClick　　　鼠标单击
   3  onMouseOver　鼠标移过
   4  onMouseDown　鼠标按下
   5  ondblclick  双击鼠标
   6  onBlur      失去聚集时
   7　onChange    改变了页面上的值时
   8  onSelect   选择文本域中的文本时//选择时的响应事件
　　9　onChange  改变文本域中的文本时//选择后的事件响应
    Onselect:当文字加亮后，产生该文件
　　点击执行表单传递：onClick="form.submit()"
    点击下拉列表传递表单：onChange="form.submit()"
当窗体第一次调用时使用的文件句柄:onload()
当窗体关闭时调用的文件句柄:onunload()
17、时期时间计算
   1、今天是第<%=datediff("ww","2004-1-1",date())%>周<br>
   2、今天是<%=weekdayname(weekday(date()))%><br>
   3、本周的星期一是<%=dateAdd("d",2-weekday(date),date())%><br>
   4、本周的星期日是<%=dateAdd("d",8-weekday(date),date())%><br>
   5、<%=datediff("d","1/1/"&year(date),date())%>计算1月1日到当前日期的天数
    cint(取四舍五入取整数数)
   <%=cint(9.435626)%>
18、弹出警告框
  onClick='alert('鼠标单击')'
----------
数据备份与还原代码
<%
 dim fileobject
 set fileobject=server.createobject("scripting.filesystemobject")
 dim sourcefile,destifile
 wjm=cstr(year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now))被拷贝文件重新命名
sourcefile=Server.MapPath("../date/webdate.mdb")'目标文件路径及文件名
destifile=Server.MapPath("../bf/"&wjm&"webdate.mdb")'拷贝到路径及文件名
IF  FileObject.FileExists(sourcefile) Then'判断目标文件如果存在就执行下列语句
 fileobject.copyfile sourcefile,destifile
 End If
%>
删除
<%
 Dim FileObject                              '定义一个FileSystemObject对象实例
 Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
 Dim SourceFile,SourceFile1,DestiFile ,wj,lj              '定义源文件和目标文件变量
  wj=(filexx.Fields.Item("wjm").Value)'读取文件名
 SourceFile1=Server.MapPath("../temp/"&wj&"")'删除的文件路径及文件名
   IF  FileObject.FileExists(SourceFile1) Then'判断目标文件如果存在就执行下列语句
 FileObject.DeleteFile SourceFile1 
 End If
 %>
-----------
单选框值判定
<%dim kk,kk1,kk2
select case (glyxg.Fields.Item("qx").Value)'数据集值
case "0"
kk="checked"
kk1=""
kk2=""
case "1"
kk1="checked"
kk=""
kk2=""
case "2"
kk2="checked"
kk1=""
kk=""
end select
%>
<input type="radio" name="qx" value="0" <%=kk%>>'单选框表单元素
超级用户
<input type="radio" name="qx" value="1" <%=kk1%>>'单选框表单元素
一般用户
<input type="radio" name="qx" value="2" <%=kk2%>>'单选框表单元素
禁用
-----------
选择框文字
 <input type="radio" name="lm_wz" value="0" checked id="check1">
              <label for="check1" >左侧显示</label>
              <input type="radio" name="lm_wz" value="1" id="check2">
              <label for="check2" >顶部显示</label>
----------------
跳转菜单(打开新窗口)
将onChange="MM_jumpMenu('parent',this,0)"替换为onChange=javascript:window.open(this.options[this.selectedIndex].value)
----------
鼠标移动到｛信息浏览｝上打开窗口。称出关闭窗口
 <script language="JavaScript">
function MM_openBr_Window(theURL,winName,features) {
  win=window.open(theURL,winName,features);
}
</script>

<a href="#" onMouseOver="MM_openBr_Window('cl_xwxxll.asp','winName','scrollbars=0,resizable=no,width=400,height=200,left=300,top=300')" title="点击领用当月的油料" onMouseOut="win.close();">信息浏览</a>
---------------
在表格内插入下面的语句：
<form name="form1">
              <div align="center">
                <select name="menu1" onChange=javascript:window.open(this.options[this.selectedIndex].value)>
                  <option value="http://www.edu.com" selected>教育部</option>
                  <option value="http://www.js.edu.cn">江苏省教育厅</option>
                </select>
              </div>
            </form>
在head中插入下面的语句：
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
-------------
空格、回车符的替换
<%
Dim oldMsg, newMsg,newMsg1
oldMsg =Server.HTMLEncode(tz.Fields.Item("nr").Value)
newMsg = Replace(oldMsg, vbCrLf, "<br>")
newMsg1 = Replace(newMsg, " ", "&nbsp;")
%>
<%=newMsg1%>
------------
静态文件的调用方法
<iframe                
            src="/lyp.htm" frameborder=0 width=145 scrolling=no                
            height=150>
</iframe>
----------
asp内置函数:
Response:发送给浏览器的信息
  Response.Write 显示发送到浏览器的内容
  Response.Write 变量  等价于  <%=变量%>
  Response.Write "常量"  等价于  <%="常量"%>
  Response.Redirect "跳转到网址变量或字符串"
<% Response.Buffer=True %>????
Request:获取客户端信息
  Request.Form("变量")         (获取URL中?以后以post表单方式传递较大量的信息)
  Request.QueryString("变量")  (获取URL中?以后以get表单方式传递信息。&为变量分隔符)
  Request("变量")(自动获取传递信息)
  Request.ServerVariables("环境变量名称") 
      Request.ServerVariables("REMOTE_ADDR")客户端IP地址
      Request.ServerVariables("REMOTE_HOST")客户端主机名
Server:
  Server.MapPath("虚拟路径")  将虚拟路径转换为绝对路径
  Server.ScriptTimeout=设置asp脚本文件执行的最长时间(秒)
Application:  记录所有用户的共享信息
  Session:
  Session("MM_Username")储存登陆客户的登陆用户名信息<%=Session("MM_Username") %>
  记录特定客户信息(注册用户登陆后的信息、储存的变量)
  Session("变量")=值
  如：<% Session("mm")="张三" %>
    <% =Session("mm")%>
     显示结果：张三
    Session.Abandon  强行消除所有Session内储存的信息
----------------
记录的表示
记录集名.eof  记录集的末尾
记录集名.bof  记录集的顶部
<% If Not 记录集名.EOF Or Not 记录集名.BOF Then %>'不是末尾或不是开始
<% If Not 记录集名.EOF and Not 记录集名.BOF Then %>'不是末尾并且不是开始
记录集.MoveFirst  记录指针移到最前
记录集.MoveLast  记录指针移到最后
记录集.MoveNext 记录指针下移一位
记录集.MovePrevious 记录指针上移一位

循环
<%for i=1 to 变量或值%>//强制型循环

<%
if 条件为真时 then
执行语句
Exit for '强行跳出循环
end if
%>
如果是数据集时：<%记录集.MoveNext()'记录指针下移一位%>
<%next %>
---------
<%do  While 条件为真(True)时%>//条件型循环
执行语句
<% Exit do '强行跳出循环%>
<%记录集.MoveNext()'记录指针下移一位%>
<%loop%>

<%do  Until 条件为真(True)时%>//条件型循环,使用Until关键字重复执行语句直到条件为真。
====================

<MARQUEE οnmοuseοver=stop(); οnmοuseοut=start(); scrollAmount=2 direction=up width=170 height=120 border="10">
 流动内容
</MARQUEE>
控制鼠标οnmοuseοver=stop(); οnmοuseοut=start();
向上流动 direction=up　向左direction=left 向右direction=right
向下流动 direction=待写
====================
<%loop%>
---------
条件语句
<%if 条件语句 then
执行语句1
elseif
执行语句2
else
执行语句3
end if%>
----------
<%
Select Case 表达式(赋值)
Case 结果1
执行语句1
Case 结果2
执行语句2
......
Case 结果n
执行语句n
Case Else
执行语句n+1
End Select
%>
----------
变量声明 
<% dim 变量名
变量名="变更值"
%>
强制变量声明
<%Option Explicit%>//在服务器端执行时放在每一个Script语句的首行。在浏览器端执行时放在程序的首行。(不推荐用)
--------
VBScript代码的执行标识
<% VBScript 代码%>
< Script Language="VBScript" Runat="Server">'在服务器端执行
  VBScript 代码
</Script>

< Script Language="VBScript">'在浏览器端执行
  VBScript 代码
</Script>
-------
注释行
HTML <!__注释内容__>
asp  REM 注释内容
或 '注释内容
------
脚本语言
<%@Language=VBScript%>'脚本语言VBScript
<%@Language=JavaScript%>'脚本语言为JavaScript
<%=RND()%>

0.7055643

典型情况下，你更感兴趣的是用这个函数来返回处在一定范围内的整数。要返回一个大于等于0而小于某个特定整数的数字，你可以使用如下的语句：

<%=INT((upperbound+1)*RND)%>

用你想产生的最大随机数代替表达式upperbound。例如，下面的脚本返回一个0和5之间的数，包括0和5：

<%=INT(5+1)*RND)%>

如果你想产生一个处在某个范围内的随机数，该范围有一个大于0的下界，可以使用如下的脚本：

<%=INT((upperbound – lowerbound + 1)*RND+lowerbound)%>”Welcome!”

例如，下面的脚本产生一个50到75之间的随机数（包括50和75）：

<%=INT((75-50+1)*RND+50)%>