-
asp防止垃圾留言代码
<!--#include file="common/conn.asp"--> <!--#include file="common/sub.asp"--> <% server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) Response.Write(server_v1) server_v2=Cstr(R...
作者:asdasdasd03-30 -
asp获取URL参数的几种方法分析总结 原创
需要用到这个功能,没怎么测试呢,测试后给具体代码 假如地址是: http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html 方法一:简单,得不到参数,只有一个虚拟路径 复制代码 代...
作者:asdasdasd03-30 -
关于Asp代码与页面的分离模板技术第1/3页
在使用ASP制作一个站点的时候,常常会出现一个ASP文件中,程序代码和HTML代码混合的情况。这样子做有许多缺点: 1.编程时就要对页面布局进行设计和编排,造成代码混乱难懂,不规范; 2.当...
作者:asdasdasd03-30 -
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
Application对象内置集合有为存放简单类型设计的Contents,默认Application("key")就可以使用。 不过Application.Contents不能存放对象,可以存vbs数组,但是在javascript下甚至数组都不能放。 使用...
作者:asdasdasd03-30 -
利用MSXML2.XmlHttp和Adodb.Stream采集图片
利用MSXML2.XmlHttp和Adodb.Stream 复制代码 代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html ...
作者:asdasdasd03-30 -
asp分页(自己整理的2个分页程序)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http:...
作者:asdasdasd03-30 -
asp+javascript实现404页的处理转换
主要是给用户的友好性,原来用户是依靠搜索引擎进入我每篇文章的,怎么能让用户让一个旧的页面跳转到新的页面,且文章不变,如: 程序代码 http://www.jb51.net/blog/article.asp?id=381 ...
作者:asdasdasd03-30 -
用GetString提高ASP的速度
<% 'Create connection / recordset 'Populate data into recordset object %> <TABLE> <% Do While not rs.EOF %> <TR> <TD ><%=rs("Field1")% ></TD> <TD ><%=rs("Field2")% ></TD...
作者:asdasdasd03-30 -
ASP常用的系统配置函数
sub SaveConfig() dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true) hf.write "<" & "%" & v...
作者:asdasdasd03-30 -
海阳2006+功能中的潜水王
ps:我还没测试。 信息来源:H4×0r's Blog 复制代码 代码如下:bOtherUser = False ''是否需要其它NT用户身份登录 If bOtherUser = True And Trim(Request.ServerVariables("AUTH_USER")) = "" ...
作者:asdasdasd03-30 -
ASP字符串转换为整形、双精度型、布尔
Rem 将字符串转换为整形数据 function toInteger(str,num) str=trim(str) if str="" or not isnumeric(str) then toInteger=num else toI...
作者:asdasdasd03-30 -
ASP+模板生成Word、Excel、html的代码第1/2页
大多数都是采用Excel.Application(http://www.blueidea.com/tech/program/2006/3547.asp)组件来生成发现容易出错,而且对于大多数和我一样的菜鸟来说,比较麻烦,考虑到前些天用ASP+模板+adodb....
作者:asdasdasd03-30 -
用cookies实现闪电登录论坛方法
方法一:利用Cookies,一劳永逸 Cookies能通过IE的“文件-导入和导出”将登录信息通过Cookies导出保存(傲游这个功能MS不能用),曾见过有人撰文说将“FALSE”空格后面的“10********”修改为“...
作者:asdasdasd03-30 -
ASP计算str2在str1中出现的次数
function CountStr(str1,str2) dim tmp,i,j if str1="" or isnull(str1) then j=0 elseif str2="" or isnull(str2) then j=1 e...
作者:asdasdasd03-30 -
雨哲防采集策略之列表篇
在一般的链接地址形式如: 复制代码 代码如下:1、<a class="链接样式" href="链接地址" title="链接说明" target="_blank">文章标题</a> 2、<a class='链接样式' href='链接地址' title='链接...
作者:asdasdasd03-30 -
天枫常用的ASP函数封装如下
复制代码 代码如下:<% '------------------------------------- '天枫ASP class v1.0,集常用asp函数于一体 '天枫版权所有'QQ:76994859 EMAIL:Chenshaobo...
作者:asdasdasd03-30 -
隐藏ASP木马后门的两种方法
1、建立非标准目录:mkdir images.. 拷贝ASP木马至目录:copy c:inetpubwwwrootdbm6.asp c:inetpubwwwrootimages..news.asp 通过web访问ASP木马:http://ip/images../news.asp?action=l...
作者:asdasdasd03-30 -
asp下对POST提交数据限制的解决方法
问题的解决办法是,对于一个需要发送大数据的域,在提交表单前将数据拆分为小于限额的数份,分别放在数个hidden域中,同时把原有域清空,再正式提交表单。服务器端还是用Request.Form()读取...
作者:asdasdasd03-30 -
ASP把长的数字用逗号隔开显示的代码
000000000000000000000000000000000000000000000000000000000000000 复制代码 代码如下:<% Function Comma(str) If Not(IsNumeric(str)) or str = 0 Then Result = 0 ElseIf Len(Fix(str)) ...
作者:asdasdasd03-30 -
Asp无组件生成缩略图的代码
还是先看看基础部分吧。首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是...
作者:asdasdasd03-30 -
asp获取当前文件名的代码
Dim curUrl:curUrl = Replace(Request.ServerVariables("Script_Name"),"/","")...
作者:asdasdasd03-30 -
asp+Access通用的自动替换数据库中的字符串
当初只是为了玩玩写的,没想到写了之后不断有人询问,所以改写了一下代码,完善了一下,支持了正则替换,避开了会导致出错的二进制(ole对象),并且做了一个EXE的程序。感谢虚拟帮忙。 附asp代...
作者:asdasdasd03-30 -
不用WinRar只有asp将网络空间上的文件打包下载
<%@ Language=VBScript %> <% Option Explicit %> <!--#include file="asptar.asp"--> <% Response.Buffer = True Response.Clear Dim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePa...
作者:asdasdasd03-30 -
asp下用fso生成js文件的代码
<%sub fsojs()%> <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '开始操作 set rs=server.CreateObject...
作者:asdasdasd03-30 -
防止网页后退 asp禁止缓存
像一般网上很多禁止缓存的代码,有时并不可靠,这时你只要在操作的页面加上就可以了,在网页的里指定要定向的新页,再点后退,看是不是不会再退到刚才的操作页面了,实际上已经把这个历史给删除...
作者:asdasdasd03-30