-
asp xml 缓存类
复制代码 代码如下:<% Rem xml缓存类 '-------------------------------------------------------------------- '转载的时候请保留版权信息 '作者:╰⑥月の雨╮ '版本:ver1.0 '本类部分借鉴 wal...
作者:asdasdasd03-30 -
aspjpeg组件通用加水印函数代码
aspjpeg组件实现加水印函数的调用方法: <%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %> 复制代码 代码如下:function printwater(waterpath,upfilepath) Dim Logobox,Log...
作者:asdasdasd03-30 -
asp实现本周的一周时间列表的代码
复制代码 代码如下:td=date() '此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" '生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 '这个循...
作者:asdasdasd03-30 -
ASP中的面向对象类
复制代码 代码如下: <% class MyClass Dim var '公共变量必须使用Dim Private var2'私有变量不需要 Sub sub1 response.write var2 End Sub Private Sub sub2 response.write var End Sub Sub Se...
作者:asdasdasd03-30 -
ASP隐藏真实文件的下载功能实现代码
格式:Download.asp?FileName=要下载的文件名 复制代码 代码如下:Dim Stream Dim Contents Dim FileName Dim FileExt Const adTypeBinary = 1 FileName = Request.QueryString("FileName") if F...
作者:asdasdasd03-30 -
asp 过滤尖括号内所有内容的正则代码
当然这应该属于正常过滤手法,而还有一种过滤HTML标签的最终极手法,则是将一对尖括号及尖括号中的所有字符均替换不显示,该方法对于内容中必须描述有关尖括号内容过滤过头了。 不过,总归是...
作者:asdasdasd03-30 -
aspjpeg 添加水印教程及生成缩略图教程
1、为图片加入水印功能 Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象 Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置 Jpeg.Canvas.Font.Color = &H000000...
作者:asdasdasd03-30 -
asp get和post数据接收过滤
复制代码 代码如下:<% '--------定义部份------------------ Dim XH_Post,XH_Get,XH_In,XH_Inf,XH_Xh,XH_db,XH_dbstr '自定义需要过滤的字串,用 "|" 分隔 XH_In = "'|;|and|exec|insert|select|...
作者:asdasdasd03-30 -
asp 关键词高亮显示(不区分大小写)
在这种配置下我们要实现关键词不区分大小写搜索并高亮显示要借助ASP的正则处理了,请看下面代码:复制代码 代码如下:<% Function Takeout(patrn,string1,colors) '提取搜索关键字匹配文字 Dim r...
作者:asdasdasd03-30 -
为google量身定做的sitemap生成代码asp版
外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件...
作者:asdasdasd03-30 -
asp Http_Referer,Server_Name和Http_Host
刚才运行了一段代码,来查看Request.ServerVariables里面有多少值,看了一下,共50个! 代码<%=Request.ServerVariables.count%> 以前感觉Request.ServerVariables里的值很多,现在看看还是那么...
作者:asdasdasd03-30 -
ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
LCase:转成小写 UCase:转成大写 下面是ASP中的代码,可以直接演示效果的。 复制代码 代码如下:<% dim str,str1,str2 str="AbCdEf" str1=LCase(str) str2=UCase(str) Response.write("LCase转换...
作者:asdasdasd03-30 -
asp vbcrlf是什么意思
复制代码 代码如下:vbs常量 相当于vbcr & vblf 就是常见的那个 chr(13) & chr(10),用Chr(13) & chr(10)这种方法生成的文件,查看源代码的时候格式没有用vbcrlf来得容易,因为用vbcrlf生成的代码...
作者:asdasdasd03-30 -
一段ASP的HTTP_REFERER判断代码
只要不是HTTP_REFERER来源于(google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com)这些网址来源的请求,就通通转发至404复制代码 代码如下:<% Dim a, reg a = Request.Serv...
作者:asdasdasd03-30 -
适合所有网站的rss和xml聚合功能asp代码
rss.asp格式的 下面代码保存为rss.asp 复制代码 代码如下:<!--#include file="conn.asp"--> <% strURL = "http://" & request.servervariables("server_name") & _ left(request.servervariable...
作者:asdasdasd03-30 -
asp base64加解密函数代码
复制代码 代码如下:<% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS) Function st...
作者:asdasdasd03-30 -
asp HTTP_X_FORWARDED_FOR和REMOTE_ADDR
在Request.ServerVariables中并没有HTTP_X_FORWARDED_FOR这个变量,只有REMOTE_ADDR这个变量,但是这两个变量都能够取得客户端IP地址。那么他们之间的区别是什么呢? 在ASP中使用 Request.Serve...
作者:asdasdasd03-30 -
ASP 相关文章或者相关产品
在后台添加中一般我们都设置了一个“关键字”,而且一般输入可能如下: 娃娃,毛绒娃娃,日本充气娃娃 我们将根据这个来做,具体实现如下: 先看一条SQL语句: 复制代码 代码如下:select top 3 ...
作者:asdasdasd03-30 -
asp datediff 时间相减
asp时间加减运算 和转换问题 a=2007-07-24 2:23:15 b=2005-06-25 2:23:15 问题1 如何将a转换成2007-07-24要日期格式不要字符格式! 问题2 如何将a转换成2007要日期格式不要字符格式! 问题3 如何...
作者:asdasdasd03-30 -
ASP MSSQL存储过程的实现小例
sql复制代码 代码如下:CREATE PROCEDURE Proname //使用CREATE PROCEDURE 创建存储过程 Proname为存储过程名称 @Lname VARCHAR(30) //定义传入的参数 AS SET NOCOUNT ON BEGIN SELECT * FROM Ta...
作者:asdasdasd03-30 -
ASP 代码出现80040e14错误的解决方法
好久没有写ASP代码了,今天在做一个简单的留言本时,出现了一下错误: Microsoft Office Access Database Engine 错误 '80040e14' Insert INTO 语句的语法错误。 上网查了一下资料,才知道该错误...
作者:asdasdasd03-30 -
Discuz!NT 论坛整合ASP程序论坛
复制代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include virtual="/inc/MD5.asp"--> <!--#include virtual="/Inc/conn.asp" --> <% '16 md5 1234656789 323b453885f5181f '...
作者:asdasdasd03-30 -
在Win2003 64位下ASP无法连接Access数据库
复制代码 代码如下:ADODB.Connection 错误 '800a0e7a' 未找到提供程序。该程序可能未正确安装。 /连接“网站内容管理”数据库.asp,行 2 原因:IIS是以64位方式来运行的,它只能加载64位模块,不...
作者:asdasdasd03-30 -
asp下去除超链接的函数
<% Function ReplaceUrl2(HTMLstr) Dim n,str1,str2,str3,str4 HTMLstr = Lcase(HTMLstr) For n=1 to Ubound(Split(HTMLstr,"<a")) str1 = Instr(HTMLstr,"<a") str2 = Instr(str1,HTMLstr,">")...
作者:asdasdasd03-30 -
动网论坛的asp 数据库连接代码
复制代码 代码如下:<%@LANGUAGE="VBSCRIPT"%> <% option explicit dim startime,endtime,conn,strCon,db startime=timer() Dim strSQLServerName Dim strSQLDBUserName Dim strSQLDBPassword Di...
作者:asdasdasd03-30
