用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
用vbs删除前一天创建的备份文件
作者:cmscn 日期:2009-07-03
问：
您好，脚本专家！有一个程序每天都会创建一个具有类似于以下名称的文件：backup_20050607.bak。如何才能删除前一天的文件呢？
-- JC
答：
您好，JC。嗯，可以调用一个脚本自动删除前一天产生的任何文件。伙计，就在几周前我们曾用过一个类似这样的脚本！
是的，我们还有印象。但往事不能重提。
除此之外，我们还要在此写一个专栏。您需要一个脚本来删除名如 backup_20050607.bak（其中，20050607 表示前一天，在本例中即为 2005 年 6 月 7 日）的文件，对吗？您需要做的一切就是使用：
您好，脚本专家！有一个程序每天都会创建一个具有类似于以下名称的文件：backup_20050607.bak。如何才能删除前一天的文件呢？
-- JC
答：
您好，JC。嗯，可以调用一个脚本自动删除前一天产生的任何文件。伙计，就在几周前我们曾用过一个类似这样的脚本！
是的，我们还有印象。但往事不能重提。
除此之外，我们还要在此写一个专栏。您需要一个脚本来删除名如 backup_20050607.bak（其中，20050607 表示前一天，在本例中即为 2005 年 6 月 7 日）的文件，对吗？您需要做的一切就是使用：
Tags: VBS
