用VBScript实现的XP序列号替换器
实现代码如下:ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count 0 thenWscript.echo "替换失败!您输入的序列号有误。"Err.Clearend if Next
实现代码如下:ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count 0 thenWscript.echo "替换失败!您输入的序列号有误。"Err.Clearend if Next
ASP编程常用的代码1. ASP与Access数据库连接:实现代码如下:最常用的asp与access连接的字符串函数实现代码如下:Call OpenConnSub OpenConn()On Error Resume NextIf DataBaseType = 1 ThenConnStr="Provi
'================================================ '函数名:ReplaceTrim '作用:过滤掉字符中所有的tab和回车和换行 '================================================Public Func
0 thenerr.clearresponse.write("预加载的模板[" " " " " " " " " " " "TempHTM = TempHTM "select case showcase "new"if id = 0 thenset rs = conn.execute("select
' Aother: 奔腾的心 'QQ: 7180001 'Date: 2008-01-17 Class mShiftPrivate m_lPower2(31)Public Function RShift(ByVal lThis, ByVal lBits)On Error Resume NextIn
'****************************** function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)on error resume nextDim JMailS
'****************************** Sub ConnectionMssql(ConnStr) On Error Resume Next Set objConn = Server.Createobject("ADODB.Connection") objConn.Conne
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用VBS最简单方便了。 'On Error Resume NextDim iRemote,iLocaliRemote = InputBox("请输入远程文件路径:")Set xPost = Cr
'----------------------------------------------------- ' 描述: Asp打包类 ' 作者: 小灰(quxiaohui_0@163.com) ' 链接: http://asp2004.net http://blog.csdn.net/iuhx