Welcome

首页 / 网页编程 / ASP

使用ASP在IIS创建WEB站点的函数

2017-02-06 18
程序代码： "=========================================================="函数介绍：创建WebSite"本函数使用ADSI，需要Administrators组用户权限"函数名称：CreateWebSite（Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUser...

另类的文件上传解决方案

2017-02-06 18
编写思路:把本地文件在客户端通过base64编码以后发送目的地.测试过程中,上传文件过大,导致超时不成功.后来经过改善.把编码分段发送.测试20M成功编写目的:在传统的解决方案里面,一次一次选取上传可以.但是在碰到把数据库里文件路径读出来,并把这些文件上传到一个地方的时候就比较麻烦.如果得到路径一个一个去找到用ftp当然也是可以的,但每次找这些文件我看都会比较费时。这里编写这个主要就是为了通过数据库里的文件路径取得文件.把文件一次批量上传到一个地方.其主要...

简单过滤一下广告的代码

2017-02-06 21
好些人跟我要这段东西，其实是个很简单的代码，下边就是，自己拿去改成函数调用就可dimstrA,strB,isOKstrA="test,you,fuck,money""需要过滤的关键字内容strB="fasfaefwTestfajkewhfwiTuckjfksajfheyou""待检查的内容isOK=False"判断是否含有待过滤内容，如果返回True即为含有，False就是没有dimRegExpsetRegExp=newRegExpRegExp.Ignor...

写了段批量抓取某个列表页的东东

2017-02-06 19
有些人当抓取程序是个宝，到目前还TND有人在卖钱，强烈BS一下这些家伙 真是的！可能偶下边这段东西比较烂哈 下边这个没有写入库功能，已经到这一步了，入库功能是很简单的事了，需要的请自己去完成吧，其它功能各位自行完善吧！把代码拷贝过去直接运行即可看到效果DimUrl,List_PageCode,Array_ArticleID,i,ArticleIDDimContent_PageCode,Content_TempCodeDimContent_CategoryI...

水印测试（重新测试）

2017-02-06 25
注：如果你是用Fireworks来处理LOGO图片，在导出图片的时候用Alpha透明而不要用索引透明！DimJpeg,LogoSetJpeg=Server.CreateObject（"Persits.Jpeg"）Jpeg.OpenServer.MapPath（UploadDir&Request2.Form（"LocalImage"））"打开图片"添加文字水印"Jpeg.Canvas.Font.Color=&HFF0000"红色"Jpeg.Canvas.Fo...

以前写的一个分页存储过程，刚才不小心翻出来的

2017-02-06 19
CREATEPROCEDUREGoalerPageSp@IntPageSizeint,@IntCurrPageint,@strFieldsnvarchar（2000）,@strTablevarchar（200）,@strWherevarchar（800）,@strOrderTypevarchar（200）,@strKeyFieldvarchar（50）ASSETNOCOUNTONDECLARE@tmpSQLnvarchar（4000）--存放动态SQL语句...

用XMLHTTP来偷东西哈！

2017-02-06 18
只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！演示：http://www.goalercn.com/demo/searcher.asp<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><！DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""" target=_blank rel=nofollow>http://www.w3.org/TR/xh...

XMLHTTP利用POST发送表单时提交中文的问题

2017-02-06 22
刚才写一个小偷程序，突然发现一旦POST中文时抓取不到内容，考虑到中文编码问题，像javascript中的escape（）一样，在vbscript中也可以使用这个函数，只需要这个发送就可以正常抓取到内容了send（"A="&escape（A）&""&escape（B））完成收工！附几个小偷常用的function函数FunctionByteToStr（vIn）DimstrReturn,i,ThisCharCode,innerCode,Hight8,Low8,...

Aspjpeg添加水印完整方法

2017-02-06 18
ASPJPEG是Persits出品的共享软件，试用期为30天，您可以在这里下载：http://www.persits.com/aspjpeg.exe。最新版本号是1.3ASPJPEG是一款功能相当强大的图象处理组件，用它可以轻松地做出图片的缩略图和为图片加上水印功能。下面简单介绍一下使用方法：您先要执行下载得到的exe文件，安装该组件1、为图片制作缩略图<%\"建立实例DimJpeg,PathSetJpeg=Server.CreateObject（"...

动态CSS，换肤技术

2017-02-06 18
见的例子就是：一个站点上有多个页面样式提供浏览者选择。 同时，在选择了某样式后，再次打开该页面时，将仍然保持该样式。 自然会想到了Cookie技术 以下是程序代码： <HTML> <HEAD> <linkID="skin"rel="stylesheet"type="text/css"> <TITLE>换肤技术</TITLE> <SCRIPTLANGUAGE=javascript> &l...

UBB编辑器

2017-02-06 21
<！DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""" target=_blank rel=nofollow>http://www.w3.org/TR/html4/loose.dtd"><html><head><title>UBB编辑器</title><metahttp-equiv="Content-Type"content="t...

一段几乎可以让你死机的JS代码

2017-02-06 20
谨慎运行啊，死机了别怪我！这个用来对付那些动不动就喜欢来测测你的程序有没有什么SQL注入洞洞的那种人感觉比较爽哈哈！！以为会了那么一点小本事就不得了！我的IIS日志里成天都能看见这种小朋友做这种事！window.attachEvent（"onload",function （）{AutoSizeDIV（"CODE_7643"）}）以下是程序代码：<script>varl="a"for（i=0;i<10;i++）{l=l.replace（ne...

很不错的一个UBB代码

2017-02-06 17
<%FunctionHTMLEncode（ByValstrValue）"忽略错误OnErrorResumeNext"定义变量DimstrNewValueIfstrValue<>""ThenstrNewValue=Replace（strValue,"<","<"）strNewValue=Replace（strNewValue,">",">"）strNewValue=Replace（strNewValue,""","&...

ASP充分利用Err.Description

2017-02-06 21
我们一般在调试程序的时候，有些操作会莫名地失败，又没有错误消息提示，特别是在执行数据库操作的时候，明明执行过去了，可就是数据库里没有记录变动，很是郁闷！今天刚才在搞FSO删除操作时就出现了这样的问题，后来一把Err.Description放上去，马上提示错误在哪里，所以这东东一定要充分利用！具体使用OnErrorResumeNext...程序IfErr.Number>0ThenResponse.WriteErr.DescriptionResponse...

ASP小偷（远程数据获取）程序入门教程

2017-02-06 20
这里所说的“小偷”指的是在asp中运用xml中的xmlhttp组件提供的强大功能，把远程网站上的数据（图片，网页及其他文件）抓取到本地，经过各种处理后显示到页面上或者存储进数据库的一类程序。你可以通过这种小偷程序，完成过去一些似乎完全不可能实现的任务，比如说把某个站的页面偷梁换柱后变成自己的页面，或者把某个站的一些数据（文章，图片）保存到本地数据库中加以利用。“小偷”的优点有：无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；可以...

ASP采集入库生成本地文件的几个函数

2017-02-06 20
"***************************************************************** "function "作用：利用流保存文件 "参数：from（远程文件地址），tofile（保存文件位置） "***************************************************************** PrivateFunctionSaveFiles（byreffrom,byrefto...

一段采集程序代码

2017-02-06 22
<%@LANGUAGE="JScript"CODEPAGE="936"%> <scriptlanguage=VBScriptrunat="Server"> Functionbytes2BSTR（vIn） strReturn="" Fori=1ToLenB（vIn） ThisCharCode=AscB（MidB（vIn,i,1）） IfThisCharCode<&H80Then strReturn=strReturn&Chr（T...

浅谈自动采集程序及入库

2017-02-06 24
<%"声明取得目标信息的函数,通过XML组件进行实现。Function GetURL（url） Set Retrieval = CreateObject（"Microsoft.XMLHTTP"） With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr（.responsebody）"对取得信息进行验证，如果信息长度小于100则说明截取失败if len（.responsebody）&...

在ASP中调用存储过程的几种方法

2017-02-06 20
1这也是最简单的方法,两个输入参数，无返回值： setconnection=server.createobject（"adodb.connection"） connection.opensomeDSN Connection.Execute"procnamevarvalue1,varvalue2" "将所有对象清为nothing，释放资源 connection.close setconnection=nothing 2如果要返回Recordset集: set...

使用类，实现模块化

2017-02-06 19
写在前面的话： 所有写程序的人都知道，当你逐渐对您要实现的功能展开的时候，很大的时候，第一天写的东西第二天就忘了写到那里了，很多的时候，不得不写上详细的程序开发笔记，这在ASP的系统开发中感觉尤其文件、函数复杂的时候，当我们打算对网站的一部分功能进行修改的时候，感觉无从下手或者感觉要修改的地方。这时候，如果您学过任何一门面向对象的编程的语言的话，自然想到怎么能把代码功能实现模块话，asp本质上不是面向对象的编程，但VBSCRPIT6.0提供了类，我们可...
<< 11 12 13 14 15 16 17 18 19 20 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图