控制输出字符串的长度，可以区别中英文
2005/6/16 22:37:51
阅读全文(1760) | 回复(0) | 编辑 | 精华 | 删除
strvalue("复请Email通知如果不填写则取注册Email",26)
这里26是指26个英文字母，也就是13个汉字
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
els
Posted by Qr on 2005/6/16 22:37:51
session的用法具体解说
2005/6/16 22:36:55
阅读全文(2593) | 回复(0) | 编辑 | 精华 | 删除
session的用法具体解说
转自：中国站长贴吧
Session 对象
可以使用 Session 对象存储特定用户会话所需的信息。这样，当用户在应用程序的 Web 页之间跳转时，存储在 Session 对象中的变量将不会丢失，而是在整个用户会话中一直存在下去。
当用户请求来自应用程序的 Web 页时，如果该用户还没有会话，则 Web 服务器将自动创建一个 Session 对象。当会话过期或被放弃后，服务器将终止该会话。
Session 对象最常见的一个用法就是存储用户的首选项。例如，如果用户指明不喜欢查
Posted by Qr on 2005/6/16 22:36:55
一个18位身份证校验计算函数
2005/6/16 22:34:47
阅读全文(1680) | 回复(0) | 编辑 | 精华 | 删除
因需要对15位旧身份证号码进行升位和校验、查询处理，又没有搜索到现成的函数，于是自己写了一个简单的过程，希望能够帮得上需要的朋友。
本函数的功能单一，只能校验第18位号码是否正确或者取得第18位号码，其他功能留给大家自己扩展吧！
<%
' Version: 1.0.1
' Author: sfply(sfply@163.com)
' Last Modified: 2004/7/17 12:03
' Src是身份证号码,可以是15位也可以是18位,15位时只能返回验证码方式使用
' iChk参数取值真假,真代表校验
Posted by Qr on 2005/6/16 22:34:47
两个小函数让你的ASP程序对SQL注入免疫!
2005/6/16 22:33:00
阅读全文(2700) | 回复(0) | 编辑 | 精华 | 删除
两个小函数让你的ASP程序对SQL注入免疫！
Rem ## 长整数转换
Function toNum(s, default)
If IsNumeric(s) and s <> "" then
toNum = CLng(s)
Else
toNum = default
End If
End Function
Rem ## SQL 语句转换
Function toSql(str)
If IsNull(str) Then str = ""
toSql = replac
Posted by Qr on 2005/6/16 22:33:00
写入文本文件的过程函数
2005/6/16 22:30:03
阅读全文(1958) | 回复(0) | 编辑 | 精华 | 删除
写入文本文件的过程函数
来源：不详 引自：http://www.ieee.org.cn/dispbbs.asp?boardID=43&ID=14940
今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用.
代码:
Sub Write2File(strFile, strContent, blnAppend)
' 写入文件
' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText =
Posted by Qr on 2005/6/16 22:30:03
Asp:base64编码、解码函数
2005/6/16 22:22:54
阅读全文(1869) | 回复(0) | 编辑 | 精华 | 删除
Asp:base64编码、解码函数
在中文操作系统的VBscript中，使用的是unicode字符集，所以
很多base64编码、解码函数在理论上是正确的，但实际不能运行！
文件名称base64test.asp
<%
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = strUnicode2Ansi(
(下面还有89字)
Posted by Qr on 2005/6/16 22:22:54
asp中使用图片验证码的方法
2005/6/15 19:16:25
阅读全文(4040) | 回复(0) | 编辑 | 精华 | 删除
asp中使用图片验证码的方法
作者：Loster(OICQ:181306) 如果转载，请勿去掉此行，谢谢。
现在许多网站的登陆都需要输入验证码，验证码一般都是以图片的形式显示的。这样一来，能提高登陆的安全性，防止暴力猜解密码。为何要用图片显示验证码？试想，如果只是生成文本的验证码，破解人可以利用类似于小偷的技术，先把你这个页面读取，然后分析出验证码，最后进行暴力猜解。这样的话，验证码就没有任何实际意义了。废话少说，下面我就开始说一说怎样实现asp中显示图片验证码。
要实现asp中显示图片验证码，首先需要以下三个文
(下面还有35字)
Posted by Qr on 2005/6/15 19:16:25
用asp自动解析网页中的图片地址，并将其保存到本地服务器
2005/6/15 19:14:38
阅读全文(3385) | 回复(0) | 编辑 | 精华 | 删除
用asp自动解析网页中的图片地址，并将其保存到本地服务器
用asp自动解析网页中的图片地址，并将其保存到本地服务器
现在基于WEB页的HTML的编辑器在新闻系统，文章系统中用得越来越广，一个网页一粘就可以保持原来的样式，同时图片也可以在这个页中保持。但是在使用过程中，如果所粘贴页中的图片被删除，就会在自己的页面上留下一个大大的“X”，影响美观。
(下面还有149字)
Posted by Qr on 2005/6/15 19:14:38
asp 读取网卡mac地址
2005/6/15 19:11:52
阅读全文(3637) | 回复(0) | 编辑 | 精华 | 删除
asp 读取网卡mac地址
转注：来源不详。另，此法2003年底经偶试用，经常引起服务器出现屏闪，须重启才行。
<%
Dim RemoteAddr
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=Empty then
r
(下面还有57字)
Posted by Qr on 2005/6/15 19:11:52
ASP应用之模板采用
2005/6/15 19:10:09
阅读全文(2250) | 回复(0) | 编辑 | 精华 | 删除
ASP应用之模板采用
初学ASP，程序是能勉强写出来了，但若每进行一次网站页面的改版，所有的源程序都将进行一次移植手术。为此所耗费的人力精力不计其数，甚至一不小心得不偿失、前功尽弃。
所以，梦想着那么大段的程序代码变成几个简单的字符代替，这样只要设计好页面把该功能插入就OK了。其实这也简单，只需将实现该功能的程序代码做成子程序，然后主页调用就可以了。
很多时候，在博客中国，你会选择到很多的模板，甚至有可能自己来设计；或者采用猪飞飞BLOG的各大站长都将其站点改得不近相同……这些，我们都归功于ASP采用模板的功能。<
Posted by Qr on 2005/6/15 19:10:09