下午的孩子比上午的多，而且教练要求他们到中等深的池子学习，帆和明的个子相当，进到水里，水都快到脖子了。没想到的是，上午明是唯一哭的孩子，下午这些孩子里却哭了一半儿，因为水是昨天晚上才换的新水，比浅水区还要冷，而且从没接触过游泳的孩子练习闭气有点不适应，一会儿便哭成一片，小女孩儿都是默默的掉眼泪，家长们也只好躲得远远的，有两个小男孩儿则大声的哭，这里的明却兴灾乐祸的带着游泳圈在他们身后快乐的游来游去，不时的排到他们队伍中看热闹，其中一个和明一般大的男孩儿哭的厉害，被一男教练抱起来就扔到水里，然后再抱他起来，问他还哭不哭，男孩子哭的厉害，接着教练又将他扔到水里，这次起来，不也再哭了，乖乖的回到练习的位置，再不支声。 游泳课对娇生惯养的孩子来说真是一种锻炼，帆一直含着眼泪花在水里坚持着，这小姑娘真棒啊。 今天下雨，没去学习，孩子们高高兴兴的在家休息，我们大人们则期待着明天课程的继续。]]>http://www.xqasp.cn/default.asp?id=486<![CDATA[妈妈真幸运]]>jiaminghttp://www.xqasp.cn/isolitary@qq.com2010-07-13T15:43:46+08:002010-07-13T15:43:46+08:00 明答：“我怎么可能赶上我妈啊？我长一岁，她长一岁，我永远也赶不上她。” 姥爷笑着说：“嘿！你真聪明！” 明答：“你看看我妈妈多幸运啊！生了我这么个聪明的孩子！”]]>http://www.xqasp.cn/default.asp?id=483<![CDATA[去掉字符串头尾的连续的回车和空格的函数]]>jiaminghttp://www.xqasp.cn/isolitary@qq.com2010-07-02T08:28:53+08:002010-07-02T08:28:53+08:00function trimVBcrlf(str) trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str)) end function
'去掉字符串开头的连续的回车和空格 function ltrimVBcrlf(str) dim pos,isBlankChar pos=1 isBlankChar=true while isBlankChar if mid(str,pos,1)=" " then pos=pos+1 elseif mid(str,pos,2)=VBcrlf then pos=pos+2 else isBlankChar=false end if wend ltrimVBcrlf=right(str,len(str)-pos+1) end function
'去掉字符串末尾的连续的回车和空格 function rtrimVBcrlf(str) dim pos,isBlankChar pos=len(str) isBlankChar=true while isBlankChar and pos>=2 if mid(str,pos,1)=" " then pos=pos-1 elseif mid(str,pos-1,2)=VBcrlf then pos=pos-2 else isBlankChar=false end if wend rtrimVBcrlf=rtrim(left(str,pos)) end function ]]>http://www.xqasp.cn/default.asp?id=481<![CDATA[学会和同事相处的30个原则 ]]>jiaminghttp://www.xqasp.cn/isolitary@qq.com2010-06-30T22:43:25+08:002010-06-30T22:43:25+08:00 2.让自己去适应环境，因为环境永远不会来适应你。即使这是一个非常非常痛苦的过程。
for (var i=1;i<=6;i++){//所有的显示执行为不显示。6为最大可能的 eval("pic"+i+".style.display='none';"); } if (sid!=0){//不为空值时 eval("pic"+sid+".style.display='';");//按传递值显示
-------------时间相减===只能本月相减 <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)%>
<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="第一行提示内容
第二行提示内容
第三行提示内容" 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="发送" onclick="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>
<% if 条件为真时 then 执行语句 Exit for '强行跳出循环 end if %> 如果是数据集时：<%记录集.MoveNext()'记录指针下移一位%> <%next %> --------- <%do While 条件为真(True)时%>//条件型循环 执行语句 <% Exit do '强行跳出循环%> <%记录集.MoveNext()'记录指针下移一位%> <%loop%>
<%do Until 条件为真(True)时%>//条件型循环,使用Until关键字重复执行语句直到条件为真。 ====================
<MARQUEE onmouseover=stop(); onmouseout=start(); scrollAmount=2 direction=up width=170 height=120 border="10"> 流动内容 </MARQUEE> 控制鼠标onmouseover=stop(); onmouseout=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()%>
]]>