搜索资源列表
EncryptSimple
- 可逆加密组件 ====================== 使用方法 ============================================ Dim objEncrypt Set objEncrypt = Server.CreateObject(\"myEncrypt.clsEncrypt\") Dim strReturn 加密后文本 Dim strValue 加密前文本 加密开始 设置密钥(此行可以省略) o
fg9
- 本程序主要演示server对象的CreateObject方法的使用，由server.createobject创建的对象具有页作用域，当前asp页处理完成后，服务器自动清除这些对象。-major demonstration of the process server object CreateObject method of use, server.createobject created by the target page with Scope, current asp page treatm
vnx4
- vnc本地口令破解C源代码 默认情况下VNC服务端的密码是放在注册表中的，本工具只针对这种情况。首先用ASP读出注册表中的加密密码，然后用破解工具破解。我给出大家一个读取VNC密码的ASP脚本，默认情况下VNC密码存放在HKCU\\Software\\ORL\\WinVNC3\\Password Set WshShell = server.CreateObject(\"Wscr ipt.Shell\") bkey=WSHShell.RegRead(\"HKCU\\Software\\ORL\
ProductSearch133
- <％@ LANGUAGE=\"VBscr ipt\" ％> <!--#include file=\"conn.asp\" --> <％ ProductClass_2=request(\"ProductClass_2\") set rs=server.createobject(\"adodb.recordset\") sqltext=\"select * from Product\" if request(\"Product_N
Reg_User_22
- <％@ LANGUAGE=\"VBscr ipt\" ％> <!--#include file=\"conn.asp\"--> <％ set rs=server.createobject(\"adodb.recordset\") sqltext=\"select * from RegUser where UserId= \" & request.form(\"uid\") & \" \" rs.open sqltext,co
u8_interface
- 这种方式可根据开发者的需要批量处理或者实时处理。 接口调用非常简单，简化了编程。开发者只需将标准数据传入接口，如下： Set Obj=CreateObject(U8Distribute.iDistribute) Str = obj. Process(sXml)
AspJpeg
- 一个浏览缩小图的组件，专为像创建在线相册薄等以网络为基础的应用程序开发服务。 name:www.chinaz.com sn:48958-77556-02411 name:chinaz sn:71316-48529-38722 安装的时候 填入name:后面的用户名 例如 www.chinaz.com 然后在程序写 Set jpg = Server.CreateObject(\"Persits.Jpeg\") jpg.RegKey = \"48958-7755
VB注册码代码示例
- 软件限时使用与注册功能的实现 众所周知，一些共享软件往往提供给使用者的是一个功能不受限制的限时使用版，在试用期内使用者可以无限制的使用软件的全部功能（只是可能会出现提示使用者注册的窗口），试用期一过部分（或全部）功能失效，要想继续使用只能向作者索取注册码（或注册文件）完成对软件的合法注册，注册后的软件将解除一切使用限制。如果您也开发出一个有价值的作品，是否也希望为自己的软件增加一个这样的功能呢？这里笔者就提供一个实现软件限时的完整代码。 软件启动后会首先运行本代码并从注册表HKEY_
filefolder.ZIP
- 利用 CreateObject进行的实用文件操作代码。-CreateObject practical use for file operations code.
create_ajax_object
- JS 处理 AJAX 函数 值得大家分享 -JS function to deal with AJAX is worth to share
Base64Com
- BASE64编码和解码COM组件 Set Obj=Server.CreateObject("DBstep.Base64") 创建对象 x=Obj.EncodeBase64("要加密的字符串") y=Obj.DecodeBase64("要解密的字符串") Set Obj=nothing 释放对象 -BASE64 encoding and decoding COM components Set Obj=Server.CreateObject("DBstep.Base
JSCalls
- 能够从VC程序中调用网页中的JS代码，从而扩展你程序和网页的功能-VC program can call the page from the JS code to extend the functionality of your application and web pages
Asp_sql100w_dll
- 在ASP中使用组件 set cls=Server.CreateObject("MyDLL.MsSql") cls.ConnStr="driver={sql server} server=www.pc456.cn uid=pc456sss pwd=1 database=www.pc456.cn" 给组件设置数据源信息 添加，修改，删除数据： cls.execute(sql) 无分页读取数据： Set Rs=cls.execute(sql) do while
mail
- 用法示意如下： < @LANGUAGE="VBscr ipt" > < option explicit dim DbConn,connstr,db Email配置信息 dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW SmtpHost="smtp.263.net" AdminEmail="XXX@263.net" NeedAuth=true 是否需要
asp
- 这是简单例子，连接同一文件夹下 Access 数据库 MyFile.mdb，显示其中数据表 MyTable 的字段 MyField 的第一个记录数据： -Set cn = Server.CreateObject("ADODB.Connection") cn.Open "provider=microsoft.jet.oledb.4.0 data source=" & server.MapPath("MyFile.mdb") Set rs = Server.CreateObject("
web
- 一.源码说明 本源码是一款功能十分强大的分类信息整站。是我在网上搜集而来，本地已测试N遍完整，已集成了论坛，所有功能全部可用。源码内附带了ASP本地调试工具，打开后即可本地调试。 此源码暂时没有演示地址，请看首页演示截图。 二.安装说明： 解压后将web文件夹里的所有文件上传至空间根目录，即可运行。 后台地址http://localhost/lovepiao/ 管理员帐号和密码：admin 三.用户注册和修改密码说明： 用户注册最后一步如果出现
97a614fa66ed72b89e514696
- 想用vbs来控制鼠标的移动和点击，虽然按键精灵可以做到，但做这么简单的事情不想启动那么大一个程序，所以自己用VC写了一个小程序，可以让VBS来控制鼠标移动和点击。 用法： 移动鼠标到桌面坐标200,50的vbs命令如下： CreateObject("Wscr ipt.Shell").Run "mouse.exe m,200,50" 点击鼠标左键的vbs命令如下： CreateObject("Wscr ipt.Shell").Run "mouse.exe
PBExcel
- PB操作EXcle的介绍 如何用PB程序在excel画表格边框线，如何改变文字大小 1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Activate 4．打开指定工作簿 eole.Workbooks.Open(
loadtxttolistbox
- 用VBA控件导入一个已知文件到列表框 CreateObject函数 getfile函数 OpenAsTextStream函数 ReadLine函数 AtEndOfStream函数 文件路径和文件名根据需要自己更改变量-Import a known file with VBA controls need to change the variable to the list box CreateObject getfile the OpenAsTextStream the R
yantaiyl
- !--#include file="conn.aspx"--> < set rs1=Server.CreateObject("Adodb.Recordset") sql1="select * from webconfig " rs1.open sql1,conn,1,1 website=trim(rs1("website")) rs1.close set rs1=nothing > <!DOCTYPE ht