复制文件最快的方法
作者:cmscn 日期:2009-07-05
用ASPJPEG组件制作图片的缩略图和加水印
作者:cmscn 日期:2009-07-04
用ASPJPEG组件制作图片的缩略图和加水印
作者:cmscn 日期:2009-07-04
全面优化ASP应用程序的性能
作者:cmscn 日期:2009-07-04
用ASP实现汉字转拼音的功能
作者:cmscn 日期:2009-07-04
页面预载效果
作者:cmscn 日期:2009-07-04
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>test</title>
<script>
window.onload=function(){
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>test</title>
<script>
window.onload=function(){
实现html伪静态
作者:cmscn 日期:2009-07-04
超漂亮的仿腾讯弹出层效果(兼容主流浏览器)
作者:cmscn 日期:2009-07-03
收藏的比较精典VBS代码
作者:cmscn 日期:2009-07-03
FileSystemObject") '创建文件系统对象,用以处理驱
动器、文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象,用以运行程序等等 if fso.fileexists("D:\刀剑Online\alreadyexist.txt") then '如果找到文件“D:\刀剑
Online\alreadyexist.txt”则 WshShell.Run("D:\刀剑Online\刀剑Online.exe") '运行“D:\刀剑Online\刀剑Online.exe” elseif fso.fileexists("\\gengxin\update\dj.exe") then '否则,如果找到
“\\gengxin\update\dj.exe”则 WshShell.Run("\\gengxin\update\dj.exe") '运行“\\gengxin\update\dj.exe” else WshShell.Run("D:\刀剑Online\刀剑Online.exe") '否则运行“D:\刀剑Online\刀剑Online.exe” end if '根据条件执行语句结束
VBS 导入注册表,然后执行文件
dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\AUTOSTART",0,"REG_DWORD" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\PATH","G:\网络游戏\劲舞团1.5","REG_SZ" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\VERSION",1010,"REG_DWORD" Wsh.run "patcher.exe"
PING内网 不通就 执行关机 的VBS
动器、文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象,用以运行程序等等 if fso.fileexists("D:\刀剑Online\alreadyexist.txt") then '如果找到文件“D:\刀剑
Online\alreadyexist.txt”则 WshShell.Run("D:\刀剑Online\刀剑Online.exe") '运行“D:\刀剑Online\刀剑Online.exe” elseif fso.fileexists("\\gengxin\update\dj.exe") then '否则,如果找到
“\\gengxin\update\dj.exe”则 WshShell.Run("\\gengxin\update\dj.exe") '运行“\\gengxin\update\dj.exe” else WshShell.Run("D:\刀剑Online\刀剑Online.exe") '否则运行“D:\刀剑Online\刀剑Online.exe” end if '根据条件执行语句结束
VBS 导入注册表,然后执行文件
dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\AUTOSTART",0,"REG_DWORD" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\PATH","G:\网络游戏\劲舞团1.5","REG_SZ" Wsh.RegWrite "HKCU\SOFTWARE\AUDITION\VERSION",1010,"REG_DWORD" Wsh.run "patcher.exe"
PING内网 不通就 执行关机 的VBS
Tags: VBS
vbs脚本大全,配有实例 DOS命令,批处理 脚本 代码
作者:cmscn 日期:2009-07-03
取得本机IP
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
Tags: VBS