- 博客(9)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 不支持双扩展名的fso
fso居然不支持双扩展名，比如dd.txt.html居然读取不了。靠注意将提交上来的文件名去空格。注意查变量。小心溢出。溢出一般出现在递归调用中。注意检查变量。
2005-01-26 22:15:00
965
原创 目录浏览，目录在左，文件在右(VBS)
body{text-align:center;font:12px #000080 ;}#dir{float:left;width:300px;border:#0000ff 1px solid;text-align:left;margin:5px 5px 20px 5px;padding:5px 5px 5px 5px;color:#000080;font:14px arial,verdana,sa
2005-01-25 21:43:00
1113
原创 checkbox(one check all check,one cancel all cancel)
function ctrla(){//alert("")//document.all.cfile.checked=true; var e = fmfile.cfile; if (document.fmfile.cfileall.checked) { //alert(""); for( var i = 0; i e[i].checked=true; //alert("");
2005-01-22 22:34:00
1011
原创 js---始终在同一个子窗口中打开新页面---
var openedvar oldwinfunction opennew(url){if(opened){oldwin.location=url;alert(next open)}if(!opened){oldwin=window.open(url,mm);opened=true;alert("first open")}}//-->调用格式：show
2005-01-20 16:28:00
2563
原创 vbs实现的下拉框对应键入值
select centerfunction keypress() tname=mainform.tname.value alert(mainform.tname.value) for each tn in mainform.tablename allvalue=tn.value if left(allvalue,len(tname))=tname then alert(allval
2005-01-19 16:57:00
2002
原创 函数——测试字符串是否完全由数字组成
dim aa="12.8d52d"a="25627"t1=timer()for j=0 to 10000*1 t=checknum(a,len(a))nextt2=timer()response.write "执行时间"&t2-t1&""if checknum(a,len(a)) then response.write "纯正数字"else response.write "非纯正数字"e
2005-01-14 21:27:00
1124
原创 查询ip的函数[来源： ygjwjj(塔克拉玛干---胡杨林)]
IP/来源 Public Function address(sip) Dim aConnStr,aConn,adb Dim str1,str2,str3,str4 Dim num Dim country,city Dim irs,SQL If IsNumeric(Left(sip,2)) Then If sip="127.0.0.1" Then sip="192.168.0.1
2005-01-14 12:50:00
884
原创 三个函数-数组赋值-下拉列表输出-取驱动器
New Document body{text-align:left;font:12px #000080 ;}#main{float:left;width:680px;border:#0000ff 1px solid;margin:5px 20px;padding:10px 100px;}#main p{} Option Explicitselect case request("acti
2005-01-11 09:50:00
1180
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人