朋友的网站老是被一些发帖机强奸，很是痛苦，换过几个验证码程序都还是被强奸，动网的ASP验证码程序可以说很强，但还是逃避不了被强奸的命运。几经测试，使用这个验证码程序暂时可以有效防止那些发垃圾资料的机器。推荐使用此随机验证码程序，比较优秀。(PS:这个验证码程序可以防住大部分信息机器人，但还有个别还是可以偶尔发进来，虽然不能100%防住所有发贴机，但有这样的效果我已经很满意了。)
       完全免费的传统ASP的VBScript 。 
       安全码是完全随机的。 
       动态图像处理。 
       没有图像文件的要求。 
       没有组件需要。 
       创建一个跨浏览器兼容的动态随机captcha图像。  [更多...]

        使用asp的jpeg组件，我们可以做出各种样式的漂亮的验证码，只是苦于目前大多数服务器的JPEG组件版本太低，无法消除文字而造成的毛边，除非用非透明模式去绘制字体，但这样又无法达到仿制discuz论坛验证码的目的，因此，暂且先不管这么多了，文字有毛边锯齿就先随着它，这并不能成为当前验证码的缺憾。该验证码非常简单明了，就算你是新手，在你查看过代码注释后，绝对也可以修改自如，可以很容易的修改成文字验证码、加法或其它算法的验证码等等。 [更多...]

Function QuickSort(vData, Low, Hi)
 If Not IsArray(vData) Then Exit Function
 Dim lTmpLow
 Dim lTmpHi
 Dim lTmpMid
 Dim vTempVal
 Dim vTmpHold [更多...]

Dim aData
aData = Array(3,2,4,1,6,0)

Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")

[更多...]

Function MoveR(Rstr)
 Dim i,SpStr
 SpStr = Split(Rstr,",")
 For i = 0 To Ubound(Spstr)
  If I = 0 then
   MoveR = MoveR & SpStr(i) & ","
  Else
   If instr(MoveR,SpStr(i))=0 and i=Ubound(Spstr) Then [更多...]

Function Sort(ary)
   Dim KeepChecking,I,FirstValue,SecondValue
   IF Not IsArray(ary) Then Exit Function
   KeepChecking = True
   Do Until KeepChecking = False
     KeepChecking = False
     For I = 0 To UBound(ary)
       IF I = UBound(ary) Then Exit For [更多...]

dim stream
set stream = Server.CreateObject("ADODB.Stream")
stream.mode = 3 '1－读，2－写，3－读写
stream.type = 1 '1－二进制，2－文本
stream.Open
dataStream.position = index
dataStream.CopyTo stream, count '将另一 Stream 对象 dataStream 从 index 到 index+count 的数据拷贝到 stream
stream.SaveToFile filePath, 2 '将 stream 数据保存为文件，第二个参数：1－不允许覆盖，2－覆盖写入
stream.Close
set stream = nothing [更多...]

        FSO - FileSystemObject 或 Scripting.FileSystemObject 的缩写，为 IIS 内置组件，用于操作磁盘、文件夹或文本文件。FSO 的对象、方法和属性非常的多，这里用示例的方式列出常用的，注意：《VBScript 语言参考》或《JScript 语言参考》中的：《FileSystemObject 用户指南》和《Scripting 运行时库参考》便是微软给出的 FileSystemObject 完整参考。FSO 不能操作二进制文件，要操作二进制文件，请使用：ADODB.Stream。

[更多...]

由于项目需要,须在ASP服务器1上,将每个产品的内容和图片发送到另外一个ASP服务器2
若无图片,产品数据可在服务器1上面用
XmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
这样在服务器2上面可以正常接收到产品数据.但如果产品有图片则需要以multipart/form-data编码POST到服务器2上面.
下面对以multipart/form-data编码POST到服务器作一些说明。 [更多...]

ASP获取POST网页内容的函数。
函数中参数的说明：
RefererUrl：来源页面地址
PostUrl：Form提交页面地址
PostData：提交的数据。（如：username=username&password=password如此类推）
Coding：网页的编码格式 [更多...]

多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
======================================
引起这个问题的原因简单:
1、数据库的字段类型不匹配或者字符个数超出了数据库的字段的最大限制个数。
2、该服务器行为正尝试更新数据库表的自动编号字段或者尝试在自动编号字段中插入记录。由于自动编号域由数据库系统自动填充，因此任何从外部用值填充这些域的尝试都会失败。
3、服务器行为正在更新或插入的数据对于该数据库字段而言是错误的类型，例如将日期插入布尔型（是/否）字段，将字符串插入数值字段，或者将格式不正确的字符串插入"日期/时间"字段。
例如自动编号字段的就不应该指定值；限制50个字符的字段你就不应该提交多于50个字符的字符串。 [更多...]

function tranurl(url)
url = url&""
m_url = url
outstring = ""
for x1 = 1 to len(m_url)
chrstr = mid(m_url,x1,1)
if chrstr="&" then
outstring=outstring&"%26" [更多...]