· 这是控件的源程序：
工程名：MY
控件名：TESTFTPDim FileName As String
Dim connect As BooleanPrivate Sub CmdCd_Click() Call Link
'Inet1.Execute , "cd c2000"
connect = True
End SubPrivate Sub CmdList_Click() If connect = True Then
Inet1.Execute , "LS&...
· 我们在使用 ASP 程序时常常会遇到这些情况：某个进程花费了过长的时间而导致在客户端过期、访问者已经放弃了对你的网站的访问而离开去了别的网站、或你的服务器上阻塞了大量的死队列时，系统出现 "Server is too busy" 错误信息。 当你在设计网站的过程中碰到这些问题时，一个有效的解决...
· 作者：woozhj
文件名：upload.inc
说明：支持中文的无组件文件上传ASP函数，由于ASP不支持二进制写入文件，所以存成文件时必须使用组件，本函数只提供截取上传文件的数据，可以写入到数据库。<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
Function GetUpload(FormData)
Dim DataStart,DivSt...
· 我只是照搬过来的，我也是刚找到。我自己还没看明白源码呢。：）<br>
你只有自己修改了。我把整个网页一起贴过来吧。谁英文好翻译一下。<br>
一页贴不下，分两页。<br>
Upload Form<br>
Usually, you use an HTML FORM to submit data from the browser to the web server...
· WshShell.CreateShortcut
CreateShortcut 方法创建 WshShortcut 对象并将其返回。如果快捷方式标题以 .url 结尾，就会创建 WshURLShortcut 对象。语法
WshShell.CreateShortcut(strPathname) = objShortcut示例
' This code fragment creates a shortcut
' to the currently executing script
...
· 上次的函数有误，这次的才正确支持中文。'把普通字符串转成二进制字符串
Function str2bin(varstr)
str2bin=""
For i=1 To Len(varstr)
varchar=mid(varstr,i,1)
varasc = Asc(varchar)
If varasc<0 Then
varasc = varasc + 65535
End I...
· '普通字符串转换成二进制字符串函数
Function Str2Bin(String)
Dim i, tmpbin
For i=1 to strLength(String)
tmpbin = tmpbin & ChrB(Asc(Mid(String,I,1)))
Next
Str2Bin = tmpbin
End Function'以下函数来自ChinaASP，计算字符串的真正字节数(支持中文)
Function strLength(str)...
· Steve Kirk
MSDN Content Development Group 本文介绍了在一个分布式服务器“优雅地扩展（scale gracefully）”
Active Server Pages (ASP) 事务处理应用程序的设计策略。“优雅地伸
缩”意味着该应用程序在分布到多台计算机的同时能够保持其功能完整性
和高效的使用能力。 在前面的一篇文章“...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → 网站编程 → ASP
