-
一段采集程序代码
<%@LANGUAGE="JScript" CODEPAGE="936"%> <script language=VBScript runat="Server"> Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(...
作者：asdasdasd03-30 -
ASP 写的自动生成SELECT 表单的函数
对于ASP高手当然没什么用了，但是对于刚入门的初学者和美工就有些用处了。Function selectdo(a,d,b,c) Response.write"<select name='"&a&"'><option>"&d&"</option>" for i=b to c if i<1...
作者：asdasdasd03-30 -
ASP中Cache技术的应用
ASP从发布至今已经7年了，使用ASP技术已经相当成熟，自从微软推出了ASP.NET之后就逐渐停止了对ASP版本的更新。但是由于有很多人仍然习惯使用ASP来开发网站，所以，再次我将以一个简单的例子来说...
作者：asdasdasd03-30 -
使用xmlHttp结合ASP实现网页的异步调用
作者：asdasdasd03-30
通过xmlHttp和ASP的结合，我们可以轻松完成网页的异步调用。代码如下：1.新建Display.asp(这是前台显示页面)注意xmlhttp.readyState的4个属性1:LOADING;2:LOADED;3:INTERACTIVE;4:COMPLETED
<... -
动态CSS，换肤技术
见的例子就是：一个站点上有多个页面样式提供浏览者选择。 同时，在选择了某样式后，再次打开该页面时，将仍然保持该样式。 自然会想到了Cookie技术 以下是程序代码： <HTML> <HEAD> <link ID=...
作者：asdasdasd03-30 -
浅谈自动采集程序及入库
<%'声明取得目标信息的函数,通过XML组件进行实现。Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bst...
作者：asdasdasd03-30 -
百度小偷
<%Function bytes2BSTR(vIn)strReturn = ""For i = 1 To LenB(vIn)ThisCharCode = AscB(MidB(vIn,i,1))If ThisCharCode < &H80 ThenstrReturn = strReturn & Chr(ThisCharCode)ElseNextCharCode...
作者：asdasdasd03-30 -
自己做采集程序
现在网上的采集程序很多，但是有时候你发现一个好的网站，想自己做个采集工具采集一些信息，就需要自己去写程序了，其实这样的采集程序并不难写，主要是去分析源网站的网页结构。首先去下载个XM...
作者：asdasdasd03-30 -
无组件生成缩略图
网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。 还是先看看基础部分吧。首先...
作者：asdasdasd03-30 -
UBB编辑器
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "' target=_blank rel=nofollow>http://www.w3.org/TR/html4/loose.dtd"><html><head><title>UBB编辑器</title><meta http-eq...
作者：asdasdasd03-30 -
在ASP中调用存储过程的几种方法
1 这也是最简单的方法,两个输入参数，无返回值： set connection = server.createobject("adodb.connection") connection.open someDSN Connection.Execute "procname varvalue1, varvalue2" ...
作者：asdasdasd03-30 -
巧用缓存提高asp程序的性能
<!--为了提高Asp程序的性能,人们常常将经常使用的数据缓存在 Application, 但是你修改了数据库后怎么让application更新呢,本文给你提供了一个合理的解决办法,如果谁有更好的算法,请跟帖讨论一下...
作者：asdasdasd03-30 -
另类的文件上传解决方案
编写思路:把本地文件在客户端通过base64编码以后发送目的地.测试过程中,上传文件过大,导致超时不成功.后来经过改善.把编码分段发送.测试20M成功编写目的:在传统的解决方案里面,一次一次选取上传...
作者：asdasdasd03-30 -
如何远程调用ACCESS数据库[要求加精！！]
使用了TCP/IP，ADO及XML（需要安装Microsoft XML 4.0。）。分服务器和客户端两部分，服务器可以多用户同时连接。远程连接Access数据库有很多方法，我以前已经比较详细的回答过（见下面所列的5种...
作者：asdasdasd03-30 -
一段几乎可以让你死机的JS代码
谨慎运行啊，死机了别怪我！这个用来对付那些动不动就喜欢来测测你的程序有没有什么SQL注入洞洞的那种人感觉比较爽哈哈！！以为会了那么一点小本事就不得了！我的IIS日志里成天都能看见这种小朋...
作者：asdasdasd03-30 -
使用类，实现模块化
写在前面的话： 所有写程序的人都知道，当你逐渐对您要实现的功能展开的时候，很大的时候，第一天写的东西第二天就忘了写到那里了，很多的时候，不得不写上详细的程序开发笔记，这在ASP的系...
作者：asdasdasd03-30 -
多字段模糊搜索的函数
前段时间写了一个多字段模糊搜索的函数（类似baidui）。函数代码如下 '================================================== '函数名：keyword_sousuo '作 用：生成sql查询条件 '参 数：table_f...
作者：asdasdasd03-30 -
替换数据库内容
<%'####################################'替换数据库内容 lamking 2005-8-22'更新修正：2006-6-28'http://www.imbbs.cn QQ:628557'出售空间域名。网页制作。'################################...
作者：asdasdasd03-30 -
简单过滤一下广告的代码
好些人跟我要这段东西，其实是个很简单的代码，下边就是，自己拿去改成函数调用就可dim strA,strB,isOKstrA = "test,you,fuck,money" '需要过滤的关键字内容strB = "fasfaefwTestfajkewhfwiT...
作者：asdasdasd03-30 -
很不错的一个UBB代码
<%Function HTMLEncode(ByVal strValue) '忽略错误 On Error Resume Next '定义变量 Dim strNewValue If strValue <> "" Then strNewValue = Replace(strValue,"<","<") strNewValue = Replac...
作者：asdasdasd03-30 -
获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP
<% Class ImgWHInfo ''获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 ASO.Open ...
作者：asdasdasd03-30 -
打包上传asp网站
你有没有为上传一个几百张页面的网站而感到烦恼呢.速度太慢了.通常上传的总大小一样,文件越多,速度会越慢.如果可以把整个网站打包成一个文件上传.然后解压,这样就快多了.本人经过几天研究,终于弄...
作者：asdasdasd03-30 -
E-mail表单递交
<HTML><HEAD><META http-equiv='Content-Type' content='text/html; charset=gb2312'><TITLE>E-mail表单递交</TITLE></HEAD><BODY >
作者：asdasdasd03-30
<script language="JavaScript"><!--function validate_form... -
ASP充分利用Err.Description
我们一般在调试程序的时候，有些操作会莫名地失败，又没有错误消息提示，特别是在执行数据库操作的时候，明明执行过去了，可就是数据库里没有记录变动，很是郁闷！今天刚才在搞FSO删除操作时就出...
作者：asdasdasd03-30 -
水印测试(重新测试)
注：如果你是用Fireworks来处理LOGO图片，在导出图片的时候用Alpha透明而不要用索引透明！
作者：asdasdasd03-30
Dim Jpeg,LogoSet Jpeg = Server.CreateObject("Persits.Jpeg")Jpeg.Open Server.MapPath(UploadDir&R...