本次搜索共找到约 77 条相关记录，一段结果如下
<%@Language=VBscript%><%OptionExplicit%><%rem在asp中通过getrows实现数据库记录分页的一段代码DimiStart,iOffsetiStart=Request("Start")iOffset=Request("Offset")ifNotIsNumeric(iStart)orLen(iStart)=0theniStart=0elseiSta...
动态的执行一段简单代码，采用生成java文件，调用javac编译，反射执行的方式。只是一个简单测试，有些地方有待完善。代码如下importjava.io.*;/***动态执行一段代码(生成文件->编译->执行)*@authorkingfish*@version1.0*/publicclassTestRun{privateStringfileName="Test.java";privateStrin...
<textarearows="29"name="S1"cols="111"></textarea><scriptlanguage="vbscript">OnErrorResumeNextFunctionBytesToBstr(strBody,CodeBase)SetobjStream=CreateObject("Adodb.Stream")WithobjStream.Type=...
一段能够下载文件的源代码//在工程中加入Urlmon.lib//---#include<vcl.h>#include<windows.h>#include<Urlmon.h>#pragmahdrstop#include"Unit1.h"//---cImpMonikerCallbackobjImpCallback;//---#pragmaargsusedWINAPIWinMain(HINSTANCE...
浏览文件的一段代码#include<vcl.h>#pragmahdrstop#include"Unit1.h"//---#pragmapackage(smart_init)#pragmaresource"*.dfm"TForm1*Form1;TTreeNode*currnode;intDirCount,FileCount,DriveCount;//---__fastcallTForm1::TFor...
一段php加密解密的代码<?php$key="Thisissupposedtobeasecretkey!!!";functionkeyED($txt,$encrypt_key){$encrypt_key=md5($encrypt_key);$ctr=0;$tmp="";for($i=0;$i<strlen($txt);$i++){if($ctr==strlen($encrypt_key))$ctr...
与“黑客”的一段遭遇简单谈ASP的安全性我做了一个网站www.zydn.net，算是个人主页吧，虽不是以个人名义，但确实只有我一个人做这个事，我的站有一套后台系统，用ASP写成的，主机用的万网的，但昨天我一上网，发现我的调查被改了，我还以为是我自己输入错了。赶忙改回来，不过过一会儿看又被改啦，还改得更厉害：调查是，问我写的一个软件是否有用，我准备的答案是：很有用，有所帮助，完全没有用，他给我改成了...
把鼠标点到文本输入框中某个位置，然后再去点击一个按钮，则在该位置插入一段原本设好的字符串!!<HTML><HEAD><METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0"><TITLE></TITLE></HEAD><BODY><scriptlanguage=javascript>functioninsert(text){text1.focu...
一段合并XML的代码将以下代码直接存成一个HTML文件就行了。。然后可以一边看效果一边更改一些代码。。。<XMLID="file1"><COLLECTIONxmlns:dt="urn:schemas-microsoft-com:datatypes"><DATEdt:dt="datetime">1998-10-13T15:56:00</DATE><BOOK><TITLE>Cosmos</TITLE>...
一段精简的使用ADODB.Stream读写"大字段"的VB代码!'一段精简的读写"大字段"的代码,使用ADODB.Stream'Objects:Form1、Picture1'引用MicrosoftActiveXDataObjects2.5Libary'或MicrosoftActiveXDataObjects2.6LibaryDimTempFileNameAsStringTempFileName=A...
类别：
VB 作者：佚名 日期：
2005-06-23 [
查看详细]
<scriptlanguage="javascript">varselectRow="";varselectObject;functionEditCell(thisObject,type){varid=thisObject.id;varbuttonID="Button"+type;varrow=id.replace(buttonID,"");if(type==1&&select...
这个最好用的工具在0828出的新版5.1，前天我才知道，0day已经出来了，还是想自己还破一下~~~还是aspack压的，trw的pedump就可脱壳，文件的CRC校验很烦，没时间。事实上可以用smc搞定。在壳中有一段repmovsd代码，向下不远是个判断是否解压完毕的语句，在这之后让他jmp到空地去(事实少的可怜，可以加一个段)代码如下：(机器正在疯狂下载中，没机会再改了)0167:005CF5...
工程引用说明：本代码的使用是基于MicrosoftExcel2003使用的，未在其它版本的Office上测试过，因此在VB中应当引用MicrosoftExcel11.0代码其它内容说明：本代码中使用了VsFlexGrid做为源数据；并且可以命名EXCEL工作单（SHEET）的名称，其中第一段代码是将内容保存到一个新的EXCEL工作簿中，而第二个则是将内容保存到一个已存在的工作簿中。为了显示进度，我...
对于gb2312来讲,首字节码位从0×81至0×FE，尾字节码位分别是0×40至0×FEpublicbooleanisGB2312(Stringstr){char[]chars=str.toCharArray();booleanisGB2312=false;for(inti=0;i<chars.length;i++){byte[]bytes=(""+char...
usingSystem;usingSystem.Collections;usingSystem.ComponentModel;usingSystem.Configuration;usingSystem.Data;usingSystem.Drawing;usingSystem.IO;usingSystem.Web;usingSystem.Web.SessionState;usingSystem.We...
Cache类用于web应用程序缓存。向Cache对象中添加一项有两种方法add和insert,而insert方法又有重载的几个方法。实现目标：将访问记录存入Cache中，每隔一段时间将缓存中数据写入数据库。实现思路：记录访问记录前，检测缓存中是否有对应项，若没有，初始化缓存，有，对缓存进行更新，并给缓存加一个委托（当缓存过期时将数据写入数据库）实现：定义一个VisitCache类，一个Visit类...
ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[OrderOptimize]')andOBJECTPROPERTY(id,N'IsProcedure')=1)dropprocedure[dbo].[OrderOptimize]GOSETQUOTED_IDENTIFIERONGOSETANSI_NULLSOFFGOCREATE...
在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数rsa.asp<%rem在ASP中实现加密与解密,加密方法:根据RSArem联系:hnsoso@sina.comClassclsRSA PublicPrivateKey PublicPublicKey PublicModulus PublicFunctionCrypt(pLngMessage,pL...
今天上数据结构课，老师给了我们下面这段暴经典的代码。你也可以看一看。你可以毫无障碍地分析出它的下限为log2(n)，但是问题在于，似乎没有人能够证明，对于任意的正整数n，这个程序都不会陷入死循环。于是，你也就无法分析出它
一段实现DataGrid的“编辑”、“取消”功能脚本，目的是不产生页面刷新<SCRIPTlanguage="javascript">varselectRow="";varselectObject;functionEditCell(thisObject,type){varid=thisObject.id;varbuttonID="Button"+typ...
