深圳网站建设技术博客

randomize

set srst=conn.execute("select top 2 wt_title,wt_fileurl,wt_Description,wt_keywords from wd_news where wt_isview=1     order by rnd(-(wt_id +"&rnd()&"))    ")

此类效果一般为主动随机推荐信息

More...

'**************************检查是否是手机号码************************
function checkMobile(no)
 if no ="" or isnull(no) = true then
    checkMobile=false
    exit function
 end if

More...

此代码是非常高效的asp翻页类，本人测试18万的数据用mssql翻页只要不到一秒，而普通的翻页代码要5秒以上。

More...

'**************************检查是否含有特殊字符************************
function checkStr2(str)

for i=1 to len(str)
  if (asc(mid(str,i,1))>=48 and asc(mid(str,i,1))=<57) or (asc(mid(str,i,1))>=65 and asc(mid(str,i,1))=<90) or (asc(mid(str,i,1))>=97 and asc(mid(str,i,1))=<122) then

More...

防止刷新本页 ( 防止恶意提交数据  防止多次提交同一数据) 的方法

More...

1：在数据库新建一个表，表名为<%safe就可以了 ，这样iis在解析的时候会出现500错误，数据库也就下载不了了！

2：在你的数据库文件名后门加上# （不是扩展名，比如name#.mdb）这样iis就以为你是在请求该目录中默认的文件名，比如index.asp，如果iis找不到就会发出403禁止浏览目录的错误警告！

3：在iis中是把数据库所在的目录设为不可读，这样就可以防止被下载！请放心，这样做不会影响asp程序的正常使用！！

4：直接使用数据源 (ODBC)这样数据库就可以不用在web目录里面，从而彻底防止被下载，但是这样做你必须拥有服务器的管理员权限，哈哈，大部分虚拟主机用户是不可能用数据源 (ODBC)的！

More...

 需要获取一组数据的最大值，需要自己写个函数，代码如下：

lie_max = lie_son&","&lie_borther&","&lie_father

lie_max   = Split(lie_max,",") 

lie_max2  = max(lie_max)

More...

用的语法为：Request.ServerVariables(variable)，“variable”表示环境变量的名称，如服务器主机名称、Web服务器软件名等等，若“variable”为“REMOTE_ADDR”则表示访问者的IP地址，通过它就可以实现IP地址的过滤。
源程序如下：(文件名：demo.ASP)

　　以下为引用的内容：
　　　＜html＞ 

More...

财付通既时到帐集成说明：

大家在商城网站建设或物流网站建设时有用到会员冲值的功能，一般采用财付通或支付宝来冲值，快速方便，易集成。

这里跟大家共享下财付通的集成方法：

一般网站是gb2312的中文编码，问题都不大，但是如果是用国际通用的utf-8编码的话，问题就来了。

财付通的官网目前（2012-9-4）是没有utf-8编码的文件下载的，笔者试着将gb2312的自己转换成utf-8编码，但是支付时提示错误：[88222001]验证签名异常:FAIL

More...

asp生成 code128条形码（支持字母和数字）在原来只支持数字的基础上增加了支持字母的功能

More...

笔者经过几天的SDK短信调试，发现post提交的数据经常乱码，特别是在utf-8的编码下，根据测试get方式可以不乱笔者的原代码如下：<%'--------------------------------------'发送短信'参数：mobile 手机，content 内容，ext 扩展码，stime 定时时间，rrid 唯一标识如为空系统返回'http://sdk2.entinfo.cn/

More...

'-------------------去掉html js css
Function delHtml(strHtml)

Dim objRegExp, strOutput
Set objRegExp = New Regexp '' 建立正则表达式

objRegExp.IgnoreCase = True '' 设置是否区分大小写
objRegExp.Global = True ''是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z!*].*?>)|(<[\/][a-zA-Z!*].*?>)" '' 设置模式引号中的是正则表达式，用来找出html标签

More...

解决生成html文件时 服务器端缓存的问题

思路一：清空服务器缓存

在Asp页面首部加入
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

More...