ASP技巧实例：关于对表单操作的程序

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP技巧实例：关于对表单操作的程序】，下面是详细的分享！

ASP技巧实例：关于对表单操作的程序

以下为引用的内容：

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)
                file.Write Chr(AscB(MidB(temp,tPoint,1)))
            Next
            file.Close
          saveToFile=True
      Else
          saveToFile=False
      End If
    End Function

    Public Function getFileName(name)
      If dict.Exists(name) Then
        Dim temp, tempPos
          temp=dict(name).Item("FileName")
          tempPos=1 + InStrRev(temp, "\")
          getFileName=Mid(temp, tempPos)
      Else
        getFileName=""
      End If
    End Function

    Public Function getFilePath(name)
      If dict.Exists(name) Then
        Dim temp, tempPos
          temp=dict(name).Item("FileName")
          tempPos=InStrRev(temp, "\")
          getFilePath=Mid(temp, 1, tempPos)
      Else
        getFilePath=""
      End If
    End Function

    Public Function getFilePathComplete(name)
      If dict.Exists(name) Then
        getFilePathComplete=dict(name).Item("FileName")
      Else
        getFilePathComplete=""
      End If
    End Function

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

    Public Function getFileSizeTranslated(name)
      If dict.Exists(name) Then
        temp=LenB(dict(name).Item("Value"))
          If temp <=1024 Then
            getFileSizeTranslated=temp & " bytes" 
          Else
            temp=FormatNumber((temp / 1024), 2)
            getFileSizeTranslated=temp & " kilobytes"
          End If
      Else
        getFileSizeTranslated=""
      End If
    End Function

    Public Function getContentType(name)
      If dict.Exists(name) Then
        getContentType=dict(name).Item("ContentType")
      Else
        getContentType=""
      End If
    End Function

  Private Sub getData(rawData)
    Dim separator
      separator=MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)

    Dim lenSeparator
      lenSeparator=LenB(separator)

    Dim currentPos
      currentPos=1
    Dim inStrByte
      inStrByte=1
    Dim value, mValue
    Dim tempValue
      tempValue=""

    While inStrByte > 0
      inStrByte=InStrB(currentPos, rawData, separator)
      mValue=inStrByte - currentPos

      If mValue > 1 Then
        value=MidB(rawData, currentPos, mValue)

        Dim begPos, endPos, midValue, nValue
        Dim intDict
          Set intDict=Server.CreateObject("Scripting.Dictionary")

          begPos=1 + InStrB(1, value, ChrB(34))
          endPos=InStrB(begPos + 1, value, ChrB(34))
          nValue=endPos

        Dim nameN
          nameN=MidB(value, begPos, endPos - begPos)

        Dim nameValue, isValid
          isValid=True
         
          If InStrB(1, value, stringToByte("Content-Type")) > 1 Then

            begPos=1 + InStrB(endPos + 1, value, ChrB(34))
            endPos=InStrB(begPos + 1, value, ChrB(34))

            If endPos=0 Then
              endPos=begPos + 1
              isValid=False
            End If

            midValue=MidB(value, begPos, endPos - begPos)
              intDict.Add "FileName", trim(byteToString(midValue))

          begPos=14 + InStrB(endPos + 1, value, stringToByte("Content-Type:"))
          endPos=InStrB(begPos, value, ChrB(13))

            midValue=MidB(value, begPos, endPos - begPos)
              intDict.Add "ContentType", trim(byteToString(midValue))

            begPos=endPos + 4
            endPos=LenB(value)

            nameValue=MidB(value, begPos, ((endPos - begPos) - 1))
          Else
            nameValue=trim(byteToString(MidB(value, nValue + 5)))
          End If

          If isValid=True Then

            intDict.Add "Value", nameValue
            intDict.Add "Name", nameN

            dict.Add byteToString(nameN), intDict
          End If
      End If

      currentPos=lenSeparator + inStrByte
    Wend
  End Sub
 
  End Class

  Private Function stringToByte(toConv)
    Dim tempChar
     For i=1 to Len(toConv)
       tempChar=Mid(toConv, i, 1)
      stringToByte=stringToByte & chrB(AscB(tempChar))
     Next
  End Function

  Private Function byteToString(toConv)
    For i=1 to LenB(toConv)
      byteToString=byteToString & Chr(AscB(MidB(toConv,i,1)))
    Next
  End Function
%>

1、用户界面： 
<script  language="JavaScript">     
function  CheckAll(form)     
{for  (var  i=0;i<form.elements.length;i++)     
{var  e =  form.elements[i];     
if  (e.name  !=  'chkall')     
e.checked =  form.chkall.checked;     
}     
}     
</script>     
 
</head> 
 
<body> 
<form  method="post"  action="del.asp"  name="form1"> 
<table> 
<tr> 
       <td  ><input  type="checkbox"  value="111"  name="TradeName">电子邮件1</td> 
</tr> 
<tr> 
       <td  ><input  type="checkbox"  value="111"  name="TradeName">电子邮件2</td> 
</tr> 
<tr> 
       <td  ><input  type="checkbox"  value="111"  name="TradeName">电子邮件3</td> 
</tr> 
<tr> 
       <td  ><input  type="checkbox"  value="111"  name="TradeName">电子邮件4</td> 
</tr> 
<tr> 
       <td  ><input  type="checkbox"  value="111"  name="TradeName">电子邮件5</td> 
</tr> 
<tr> 
       <td  ><input  type="checkbox"  value="111"  name="TradeName">电子邮件6</td> 
</tr> 
 
<tr> 
       <td  bgcolor="#F1FBFC"  height="25"  colspan="2"> 
           <p  align="left"><input  type="checkbox"  name="chkall"  value="on"  onclick="CheckAll(this.form)"><font  color="#FF9900">选中所有显示的消息</font></p> 
       </td> 
<center> 
        
        
   </tr> 
</table> 
</form> 
2、删除文件del.asp 
<% 
     '这行写连接数据库的代码 
     dim  ID,strID 
     strID="" 
     For  Each    strID  In  Request.Form("TradeName") 
             ID=Cint(strID) 
           if  strID<>""  then 
                   DelRs =  Server.CreateObject("ADODB.Recordset") 
                 Conn.Execute  "Delete  From  Tbname  where  ID="&Cstr(ID)   
               strID="" 
       end  if 
 Next 
    
   Conn.Close 
   Set  Conn =  Nothing 
   Response.Redirect  "成功删除！" 
%>

以上所分享的是关于ASP技巧实例：关于对表单操作的程序，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：ASP程序表单问题

　　答：你可以先做一个页面用于号和密码的提交，正确后进入第二页面。 第二页面正如其它人说的其实很简单，就是麻烦点。以下做个例子以此类推。 123 function fun() { document.getElementById("username2").value= document.getElementById("username1... >>详细

　　相关问题：HTML表单提交到.HTML实例

　　答：。。。 你提交过去有啥意义？？？ html语言没有编程能力，是一种文本标记语言而已，你指望它能捕获get然后进行相应处理的话是不可能的。 >>详细

　　相关问题：vfp题目。。关于表单的

　　答：关于VFP的表单的问题！ ject.AddObject(cName, cClass [, cOLEClass] [, aInit1, aInit2 ...]) 参数 cName 指定引用新对象的名称。 cClass 指定添加对象所在的类。 cOLEClass 指定添加对象的 OLE 类。 注意 如果准备分发添加了要求许可键的 Acti... >>详细