啊zhu的空间_百度空间

文章列表

2008-07-18 09:48

转自:http://www.9asp.com.cn

最近写一个程序由于涉及到要过滤信息中的电话、邮件、网址，考虑到这些信息的不确定性，决定用正则表达来解决，这两天才真正的学起正则表达式来，将近两天的学习，这个函数基本能达希望的功能，现贴出来希望对有需要有朋友有帮助。当然，这个函数还有不足的地方，希望各位朋友给于更正，谢谢！！！

'--- 函数名：SdkStr

阅读全文>>

类别：asp 技术 | 评论(0) | 浏览()

防刷新

2008-07-07 11:14

转自:http://www.9asp.com.cn

防刷新，好用
<%
Dim lngVisitorNumber '保存来访者数量
On Error Resume Next
lngVisitorNumber = 0
Set conn_cun = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counters.mdb")
conn_cun.Open "driver={Microsoft Access Driver (*.mdb)};dbq="

阅读全文>>

类别：默认分类 | 评论(0) | 浏览()

纯编码实现Access数据库的建立或压缩

2008-07-05 11:21

转自:http://www.9asp.com.cn

<%　
"#######以下是一个类文件，下面的注解是调用类的方法################################################　
"# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用　
"# Access 数据库类　
"# CreateDbFile 建立一个Access 数据库文件　
"# CompactDatabase 压缩一个Access 数据库文件　
"# 建立对象方法:　
"#

阅读全文>>

类别：默认分类 | 评论(0) | 浏览()

精彩随机函数和自定义函数的应用,不要错过呀

2008-06-20 11:05

<%@ LANGUAGE = VBScript %>
<html>
<title>
生成随机字符串
</title>
<body>
<%
Function PC_key(digits)
'定义并初始化数组
    dim char_array(80)
'初始化数字
    For i = 0 To 9
        char_array(i) = CStr(i)
    Next
'初始化大写字母
    For i = 10 To 35

阅读全文>>

类别：默认分类 | 评论(0) | 浏览()

关于管理的经典故事（员工激励）

2008-05-13 15:22

员工管理和激励是一个复杂的事情，有时让管理者摸不着头脑，甚至感到头疼。销售管理往往并非现场管理，遥控管理无形之中增加了管理的难度。轻松一下，看看以下的十个经典故事，也许你会领略到管理的另一种意境。

　　一、分工

　　[故事]　

　　一位年轻的炮兵军官上任后，到下属部队视察操练情况，发现有几个部队操练时有一个共同的情况：在操练中，总有一个士兵自始至终站在大炮的炮筒下，纹丝不动。经过询问，得到的答案是：操练条例就是这样规定的。原来，条例因循的是用马拉大炮时代的规则，当时站在炮

阅读全文>>

类别：心情日记 | 评论(0) | 浏览()

品牌命名的十种方法

2008-05-13 15:22

“从长远观点来看，对于一个品牌来说，最重要的就是名字。”

　　――[美]当代营销大师阿尔?里斯《打造品牌的22条法则》

一个好的品牌名称是品牌被消费者认知、接受、满意乃至忠诚的前提，品牌的名称在很大程度上对产品的销售产生直接影响，品牌名称作为品牌的核心要素甚至直接影响一个品牌的兴衰。

笔者通过对市场品牌的研究，总结了以下十种命名方法，供企业在进行品牌命名时借鉴。

一、地域法。就是

阅读全文>>

类别：心情日记 | 评论(0) | 浏览()

如何防止“垃圾引用”“垃圾留言”

2008-03-29 21:06

把下面这段加在数据库连接页（如：conn.asp）

程序代码：

Dim GetFlag,ErrorSql,RequestKey,ForI
ErrorSql = "***.com||彩铃"
'此处写上你要过滤的关键字
'其中***.com就是你要过滤的域名，用||隔开，彩铃的垃圾最多了，也写上吧，其他的大家自己加
ErrorSql = split(ErrorSql,"||")

阅读全文>>

类别：asp 技术 | 评论(0) | 浏览()

字符串检测,过滤函数

2008-03-29 13:49

网站所在的服务器,在提交文章的时候老是提醒说,有非法字符. (因为是从网上copy的,也不知道那些字符是属于拦截的内容!)

于是从服务人员那里得到拦截过滤的内容.

做了下面的页面,先在本地过滤,再上传.

<%
If request("action")="replace" then
S1=request.form("S1")
S2=Strreplace(S1)
End if
%>

<%
'作用:字符串检测,过滤函数
'名字:Strreplace
'http://www.4trade.com.cn
'-----------------------------------------

阅读全文>>

类别：asp 技术 | 评论(0) | 浏览()

函数功能：　通用分页

2008-03-27 11:51

'--------------------------------------------------------------------------
' 函数功能：　通用分页
' 参    数:   Intpagecount　总页数
'    Intmypage 当前页数
'    Intrecordcount 记录总数
'    Intpagesize 每页显示的记录数
'--------------------------------------------------------------------------
function funpage(Intpagecount,Intmypage,Intrecordcount,Intpagesize)
'on error resume nex

阅读全文>>

类别：asp 技术 | 评论(0) | 浏览()

ASP保存远程图片到本地，并生成缩略图

2008-03-27 11:29

ASP通过XMLHTTP获取远程图片流数据，并保存到本地，把第一张采集到的图片生成缩略图。

具体代码如下：

<%
'==================================================
'函数名：CheckDir2
'作用：检查文件夹是否存在
'参数：FolderPath ------文件夹地址
'==================================================
Function CheckDir2(byval FolderPath)
dim fso
folderpath=Server.MapPath(".")&"\"&folderpath

阅读全文>>

类别：asp 技术 | 评论(0) | 浏览()