[收藏]如何用Asp动态生成xml文件

2005/6/19 12:55:12

阅读全文(1922) | 回复(0) | 编辑 | 精华 | 删除

相关代码如下：
Function ReplaceChar ( FstrSource )
dim strRet
if IsNull(FstrSource) then
&n bsp; FstrSource = ""
end if
strRet = Replace ( FstrSource , "&" , "&" )
strRet = R

Qr

Posted by Qr on 2005/6/19 12:55:12

SQL查询语句精华使用简要

2005/6/16 22:43:12

阅读全文(1807) | 回复(0) | 编辑 | 精华 | 删除

SQL查询语句精华使用简要 [转自：http://www.webasp.net] 　一、 简单查询 
简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的
表或视图、以及搜索条件等。
例如，下面的语句查询testtable表中姓名为“张三”的nickname字段和email字段。
SELECT nickname,email
FR

Qr

Posted by Qr on 2005/6/16 22:43:12

[收藏]ASP获得网卡的MAC地址

2005/6/16 22:41:15

阅读全文(4507) | 回复(3) | 编辑 | 精华 | 删除

ASP获得网卡的MAC地址

<% Option Explicit%> <%
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32 Private Ty

Qr

Posted by Qr on 2005/6/16 22:41:15

[收藏]键盘各键对应的键值

2005/6/16 22:39:17

阅读全文(2093) | 回复(0) | 编辑 | 精华 | 删除

键盘各键对应的键值
[原文转自：网人社区] 描述\r
0x1 鼠标左键\r
0x2 鼠标右键\r
0x3 CANCEL 键\r
0x4 鼠标中键\r
0x8 BACKSPACE 键\r
0x9 TAB 键\r
0xC CLEAR 键\r
0xD ENTER 键\r
0x10 SHIFT 键\r
0x11 CTRL 键\r
0x12 MENU 键\r
0x13 PAUSE 键\r
0x14 CAPS LOCK 键\r
0x1B ESC 键\r
0x20 SPACEB

Qr

Posted by Qr on 2005/6/16 22:39:17

控制输出字符串的长度，可以区别中英文

2005/6/16 22:37:51

阅读全文(1745) | 回复(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

Qr

Posted by Qr on 2005/6/16 22:37:51

session的用法具体解说

2005/6/16 22:36:55

阅读全文(2581) | 回复(0) | 编辑 | 精华 | 删除

session的用法具体解说

转自：中国站长贴吧 Session 对象
可以使用 Session 对象存储特定用户会话所需的信息。这样，当用户在应用程序的 Web 页之间跳转时，存储在 Session 对象中的变量将不会丢失，而是在整个用户会话中一直存在下去。 当用户请求来自应用程序的 Web 页时，如果该用户还没有会话，则 Web 服务器将自动创建一个 Session 对象。当会话过期或被放弃后，服务器将终止该会话。 Session 对象最常见的一个用法就是存储用户的首选项。例如，如果用户指明不喜欢查

Qr

Posted by Qr on 2005/6/16 22:36:55

一个18位身份证校验计算函数

2005/6/16 22:34:47

阅读全文(1668) | 回复(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参数取值真假,真代表校验

Qr

Posted by Qr on 2005/6/16 22:34:47

两个小函数让你的ASP程序对SQL注入免疫!

2005/6/16 22:33:00

阅读全文(2688) | 回复(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

Qr

Posted by Qr on 2005/6/16 22:33:00

写入文本文件的过程函数

2005/6/16 22:30:03

阅读全文(1947) | 回复(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 =

Qr

Posted by Qr on 2005/6/16 22:30:03

Asp:base64编码、解码函数

2005/6/16 22:22:54

阅读全文(1852) | 回复(0) | 编辑 | 精华 | 删除

Asp:base64编码、解码函数

在中文操作系统的VBscript中，使用的是unicode字符集，所以
很多base64编码、解码函数在理论上是正确的，但实际不能运行！
文件名称base64test.asp <% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = strUnicode2Ansi(

(下面还有89字)

Qr

Posted by Qr on 2005/6/16 22:22:54