博文
window.open的参数(2006-12-14 12:03:00)
摘要：<SCRIPT LANGUAGE="javascript"> <!-- window.open ('page.html', 'newwindow', 'height=100, width=400, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=n o, status=no') //这句要写成一行 --> </SCRIPT> 参数解释： <SCRIPT LANGUAGE="javascript"> js脚本开始； window.open 弹出新窗口的命令； 'page.html' 弹出窗口的文件名； 'newwindow' 弹出窗口的名字（不是文件名），非必须，可用空''代替； height=100 窗口高度； width=400 窗口宽度； top=0 窗口距离屏幕上方的象素值； left=0 窗口距离屏幕左侧的象素值； toolbar=no 是否显示工具栏，yes为显示； menubar，scrollbars 表示菜单栏和滚动栏。 resizable=no 是否允许改变窗口大小，yes为允许； location=no 是否显示地址栏，yes为允许； status=no 是否显示状态栏内的信息（通常是文件已经打开），yes为允许； </SCRIPT> js脚本结束......
常用正则表达式 (2006-12-02 11:30:00)
摘要：常用正则表达式 (\d{3}-|\d{4}-)?(\d{8}|\d{7})? //国内电话 ^[1-9]*[1-9][0-9]*$ //腾讯qq ^[\\w-]+(\\.[\\w-]+)*@[\\w-]+(\\.[\\w-]+)+$ //email地址 ^[a-za-z]+://(\\w+(-\\w+)*)(\\.(\\w+(-\\w+)*))*(\\?\\s*)?$ //url ^\d+$ //非负整数 ^[0-9]*[1-9][0-9]*$ //正整数 ^((-\\d+)|(0+))$ //非正整数 ^-[0-9]*[1-9][0-9]*$ //负整数 ^-?\\d+$ //整数 ^\\d+(\\.\\d+)?$ //非负浮点数 ^(([0-9]+\\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\\.[0-9]+)|([0-9]*[1-9][0-9]*))$ //正浮点数 ^((-\\d+(\\.\\d+)?)|(0+(\\.0+)?))$ //非正浮点数 ^(-(([0-9]+\\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\\.[0-9]+)|([0-9]*[1-9][0-9]*)))$ //负浮点数 ^(-?\\d+)(\\.\\d+)?$ //浮点数 ^[a-za-z]+$ //由26个英文字母组成的字符串 ^[a-z]+$ //由26个英文字母的大写组成的字符串 ^[a-z]+$ //由26个英文字母的小写组成的字符串 ^[a-za-z0-9]+$ //由数字和26个英文字母组成的字符串 ^\\w+$ //由数字、26个英文字母或者下划线组成的字符串......
既支持图片本地上传又支持Url的方法(2006-11-23 19:10:00)
摘要：<style type="text/css"><!--.oyh { width: 30px; border: 10px; height: 22px;}--></style></head><script language=javascript>function f(){if(this.form1.file1.value!=""){ this.form1.aaa.value=this.form1.file1.value;}}</script><body><form name="form1"><input type="text" name="aaa"><input name="file1" type="file" class="oyh" onMouseOut="javascript:f()"></form>......
复制文件夹中内容的asp代码(2006-11-22 14:11:00)
摘要：<%domain="123"Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")str123=server.mappath("./aaa")s1=server.mappath("./")Set MyFolder=MyFileObject.GetFolder(str123)For Each thing in MyFolder.Files'复制里面的文件s=Split(thing,"\")a=UBound(s)s3=Split(thing,"\")(a)MyFileObject.CopyFile thing,s1&"\"&domain&"\"&s3NextFor Each thing in MyFolder.SubFolders'复制子文件夹s=Split(thing,"\")a=UBound(s)s3=Split(thing,"\")(a)response.write thing&"<br>"response.write s1&"\"&domain&"\"&s3response.write "<br>"MyFileObject.copyFolder thing,s1&"\"&domain&"\"&s3Next%>
注：aaa为文件夹名,domain为新文件夹名......
asp中去掉html代码(2006-11-01 16:16:00)
摘要：有一段代码如：<a href="/Shop_Cart.asp">购物车</a><img src="/images/Spacer.gif" width="43" height="5"> <a href="/Shop_Banking.asp">收银台</a><img src="/images/Spacer.gif" width="46" height="5"> <a href="/help.asp">服务台</a><img src="/images/Spacer.gif" width="39" height="5"> <a href="/Vip_home.asp">会员中心</a><img src="/images/Spacer.gif" width="2" height="5" border="0"> 怎样才能在asp中把其中的HTML标记去掉？只保留其中的文字（购物车,收银台等）？-------------------------------------------------------------------------......
图片验证码(2006-10-27 15:23:00)
摘要：<%Option ExplicitResponse.Expires = 0Response.AddHeader "Pragma","no-cache"Response.AddHeader "cache-ctrol","no-cache"Response.ContentType = "Image/BMP"Randomize Timer
Dim Text_Data(9),Text_Len,Int_Temp(),I,j,k,Int_Temp2
''***** 参数配置区 *****
Text_Len = 4 ''验证码长度(支持1-25位)
''**********************
ReDim Int_Temp( Text_Len - 1 )
Text_Data(0) = "00000000000001111000001100110000110111000011011100001100110000111011000011101100001100110000011110000000000000"Text_Data(1) = "00000000000000011000000011100000111110000000011000000001100000000110000000011000000001100000000110000000000000"Text_Data(2) = "00000000000001111000001100110000110011000000001100000001100000001100000001100000001100000000111111000000000000"Text_Data(3) = "00000000000001111000001100110000110011000000001100000011100000000011000011001100001100110000011110000000000000"Text_Data(4) = "00000000000001100000000110000000011011000001101100000110110000110011000011111110000000110000000011000000000000......
asp+access四级联动(2006-10-26 13:55:00)
摘要：<form name="frm"><select name=school onchange="MulSelect(1)"></select><select name=department onkeypress=sortMe(this) onchange="MulSelect(2)"></select><select name=grade onchange="MulSelect(3)"></select><select name=student></select><p> </p></form>
<script>// 四级联动var arrSel=["school","department","grade","student"]arrData=[];
// 从数据库中读出四级联动的数据, 保存到 arrData 数组中(二维数组)<%dim conn,rsset conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("test.mdb") & ";Persist Security Info=False"set rs=conn.execute("select * from dbselect")do while not rs.eof%>
arrData[arrData.length]=["<%=trim(rs("school"))%>","<%=trim(rs("department"))%>","<%=trim(rs("grade"))%>","<%=trim(rs("student"))%>"]
<%rs.movenextlooprs.close:set rs=nothingconn.close:set conn=nothing%></script>
<script>// 下拉框选择变化时触发的函数，用于重新生成......
用asp代码生成access数据库(2006-10-26 08:41:00)
摘要：<%DBName = "c:\AccessDB.mdb"if Request.Form("SubmitCreate")<>"" then'创建数据库Set mycat = Server.CreateObject( "ADOX.Catalog" )mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBNameif err.number=0 thenResponse.Write("<script>alert('数据库创建成功')</script>")end ifend if%><%if Request.Form("SubmitCreateTable")<>"" then'创建数据表Set conn = Server.CreateObject( "ADODB.Connection" )conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBNameSql="CREATE TABLE TestTable("&_ "id int IDENTITY (1, 1) NOT NULL ,"&_ "name varchar(255) NOT NULL ,"&_ "pass varchar(255) NULL ,"&_ "logintimes int Default 0 NOT NULL ,"&_ "createtime datetime Default ......
纯编码实现数据库的建立或压缩！！(2006-10-24 19:01:00)
摘要：
纯编码实现数据库的建立或压缩！！
作者： 萧寒 2001-06-29 14:27
<% '#######以下是一个类文件，下面的注解是调用类的方法################################################ '# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用 '# Access 数据库类 '# CreateDbFile 建立一个Access 数据库文件 '# CompactDatabase 压缩一个Access 数据库文件 '# 建立对象方法: '# Set a = New DatabaseTools '# by (萧寒雪) s.f. '##################################################################################Class DatabaseTools Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath) '建立数据库文件 'If DbVer is 0 Then Create Access97 dbFile 'If DbVer is 1 Then Create Access2000 dbFile On error resume Next If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\" If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) If DbExists(SavePath & dbFileName) The......
常用的javascript验证函数(2006-10-21 21:14:00)
摘要：<script language="javascript"> <!-- //验证是否为空,如果为空返回 false,否则返回 true function CheckIsNull(Inform,Inputname){ var Form=Inform+"." eval("Temp="+Form+Inputname+".value;"); if(Temp==""){ alert("提醒您:不能为空"); eval(Form+Inputname+".className='RedInput';"); eval(Form+Inputname+".focus();"); return false; }else{ eval(Form+Inputname+".className="+Form+Inputname+".className.replace('RedInput','');"); return true; } } //验证是否为数字 function CheckIsNum(Inform,Inputname){ if (!CheckIsNull(Inform,Inputname))return false; else{ var Form=Inform+"." eval("Temp="+Form+Inputname+".value;"); if(isNaN(Temp)){ ......