 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在webclass中使用文件上传功能 Public Sub OnStartPage(PassedRequest As Request) \\\'------------------定义局部变量---------------------- Dim varByteCount Dim i \\\'--------------------------------------------------- \\\'------------------建立ASP对象----------------------- Set MyRequest = PassedRequest \\\'--------------------------------------------------- \\\'------------------读取客户端传来的全部数据----------- varByteCount = MyRequest.TotalBytes lngArrayLen = varByteCount - 1 ReDim binArray(varByteCount - 1) binArray = MyRequest.BinaryRead(varByteCount) \\\'--------------------------------------------------- \\\'--------------------获取定界符--------------------- intDjfLen = 0 Do Until binArray(intDjfLen + 1) = 13 intDjfLen = intDjfLen + 1 Loop ReDim binDjf(intDjfLen) For i = 0 To intDjfLen binDjf(i) = binArray(i) Next \\\'--------------------------------------------------- End Sub 在webclass中使用 dim upload as new uploadfile upload.onstartpage(request) 然后就可以用该类提供的方式了进行操作了，这个组件的功能比chinaasp upload要差些。但已经足够使用了 其他改动 1、为了能用getthevalue方式准确取得input type 为checkbox,radio等的值，在 FindtheName中加入错误处理 Private Function FindTheName(nm As String) As Long On Error GoTo FindTheNameError \\\'******************************参数说明***************************** \\\'* * \\\'* nm: 要寻找的 Form 元素名 * \\\'* 返回值： 成功―― 找到时的地址，失败―― -1 * \\\'* * \\\'******************************************************************* \\\'------------------定义局部变量---------------------- Dim s As Long Dim e As Long Dim i As Long Dim binTmp() As Byte Dim strName As String \\\'--------------------------------------------------- \\\'------------------寻找要取得值的Form 元素名------------------------ s = 0 Do While 1 s = FindTheDjf(s) If s <> -1 Then s = s + intDjfLen + 41 e = s Do While binArray(e + 1) <> 34 e = e + 1 Loop ReDim binTmp(e - s) For i = s To e binTmp(i - s) = binArray(i) Next strName = StrConv(binTmp, 64) If StrComp(nm, strName) = 0 Then FindTheName = e + 1 Exit Do End If Else FindTheName = -1 Exit Do End If Loop \\\'-------------------------------------------------------------- Exit Function FindTheNameError: FindTheName = -1 End Function 2、删除类声明中的 Private MyScriptingContext As ScriptingContext定义 返回类别: 教程 上一教程: 利用XMLHTTP 从其他页面获取数据 下一教程: 加速ASP程序的显示速度 您可以阅读与"在WEBCLASS中使用文件上传功能"相关的教程: · 如何在WEB页面中集成文件上传功能 · 使用ASP实现文件上载(上传)的各种方式 · 利用ASP技术实现文件直接上传功能 · 使用ASP实现文件上载（上传）的各种方式 · ASP中实现文件上传方式的研究 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
