Inserting Form content into Database with ASP.

<%
  ' -- Loader.asp --
  ' -- version 1.5.2
  ' -- last updated 12/5/2002
  '
  ' Faisal Khan
  ' faisal@stardeveloper.com
  ' www.stardeveloper.com
  ' Class for handling binary uploads

  Class Loader
    Private dict
   
    Private Sub Class_Initialize
      Set dict = Server.CreateObject("Scripting.Dictionary")
    End Sub

    Private Sub Class_Terminate
      If IsObject(intDict) Then
        intDict.RemoveAll
        Set intDict = Nothing
      End If
      If IsObject(dict) Then
        dict.RemoveAll
        Set dict = Nothing
      End If
    End Sub

    Public Property Get Count
      Count = dict.Count
    End Property

    Public Sub Initialize
      If Request.TotalBytes > 0 Then
        Dim binData
          binData = Request.BinaryRead(Request.TotalBytes)
          getData binData
      End If
    End Sub

    Public Function getFileData(name)
      If dict.Exists(name) Then
        getFileData = dict(name).Item("Value")
        Else
        getFileData = ""
      End If
    End Function

    Public Function getValue(name)
      Dim gv
      If dict.Exists(name) Then
        gv = CStr(dict(name).Item("Value"))
       
        gv = Left(gv,Len(gv)-2)
        getValue = gv
      Else
        getValue = ""
      End If
    End Function

    Public Function saveToFile(name, path)
      If dict.Exists(name) Then
        Dim temp
          temp = dict(name).Item("Value")
        Dim fso
          Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Dim file
          Set file = fso.CreateTextFile(path)
            For tPoint = 1 to LenB(temp)
                fi

推荐阅读更多>

1. 各位达人帮忙提供一个asp的站内搜索的分词技术的源码或列子,多谢了
2. Asp.net(c#)常用文件操作类封装 移动 复制 删除 下传 上载等
3. 如何避免asp的SQL的执行效率低 (转载)
4. ASP中判断当前时间是否在数据库给出的时间段内
5. onchange（）事件出错解决方法
6. 求解看看这段代码解决办法
7. 控件之美_常用业务组件写法_组件开发_ASP教程
8. 关于cookies自动登录的有关问题
9. 怎样做自己的二级域名（之二）
10. 为什么这段代码不能检测相同日期禁止录入？请看看有什么不妥！该怎么解决
11. onclick value 有关问题
12. IIS的软件要求
13. DHTML+XML+ASP+CSS=树形目录_ASP XML教程_ASP教程
14. 请高手帮忙看下,这个sql语句那里有错?解决思路
15. 深入研究“用ASP上载文件”(转)(一)
16. JasperReport(二)——IReport使用数据源
17. 使用FileSystemObject，举个例子给你
18. asp excel 小弟我需要做的是把excel里面的内容读取到asp中
19. 真正实现两个列表框动态关联（绝非事先将数据写入页面再用脚本过滤） （Triumph ）
20. 用ASP备份数据库