[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  "成功删除!"  
%>

(0)

相关推荐

  • [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_Ini

  • 简单的asp采集代码教程

    采集开始 第一步是分析要采集的页面. 使用浏览器打开要采集的页面(如:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml,你可以其他页面),打开后,点击右键,查源文件. 第二步,找到要采集的内容所在位置. 假如我要采集这个页面上的标题和内容所在的位置: 标题在<h1 id="artibodyTitle" style="color:#03005C;">和</h1>之间 内容在<

  • ASP程序代码执行时间统计类

    第一次写ASP类,实现功能:分段统计程序执行时间,输出统计表等. 复制代码 代码如下: Class ccClsProcessTimeRecorder '程序作者:明月星光 '作者主页:http://www.5iya.com/blog 'http://www.kuozhanming.com 'ASP程序代码执行时间统计类 Private ccInti,ccIntNonceTime,ccIntDecimal   Private ccIntStartTime,ccIntEndTime,ccIntNow

  • ASP vbs 代码大小写规范

    ASP vbs 代码大小写规范-我们 function aspvbs() { var ss=document.getElementById("aspvbs").value; var vbs0="函数关键字|Function|Sub|"; var vbs1="保留关键字|And|As|ByRef|Call|Case|Class|Const|Dim|Do|Each|Else|ElseIf|Empty|End|Eqv|Erase|Execute|ExecuteG

  • asp.net 代码隐藏的编码模型

    一.内联代码与代码隐藏 代码隐藏模型相对内联代码的优势: 1.逻辑代码和html的分离,使得我们可以更专注于业务逻辑的处理. 2.使业务逻辑更加清晰. 3.可以将后置代码编译成dll,使得程序更加安全. 二.后置代码与页面的关系和机制 与代码后置模型相关的三个类. 1.基页面类 page类 .net类库中的page类,page类定义了页面的基本功能.例如:允许存放其他控件.呈现html.提供对asp.net对象的访问(如request.response.session等). 2.代码后置类 在编

  • 微信抢红包ASP.NET代码轻松实现

    群里都在玩抢红包,抢了再发,发了再抢,简直是无聊,程序员感兴趣是的如何实现,这里简单说说实现思路,附上dome,代码有点low,好在是实现了,具体内容如下 正文 100块发30个红包 50块发13个红包 1块发10个红包 发红包需要满足以下几个条件 1.总金额不变 2.每个红包都必须有钱 3.尽量的均匀点,不然抢红包没什么意思了 实现思路 1.首先要确定最小单位,这里是精确到分,我这里以int类型进行计算,得出的结果也全是int类型 2.数据均匀,这里以  1<n<(剩余金额/剩余红包数)*2

  • 简单的ASP分页代码(测试正确)第1/2页

    本文匆匆已经全面测试,支持ASP+ACCESS以及ASP+SQL,请修改相关部分就可以了. 注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目. <!--#include file="conn.asp"--> <% '以上为包含数据库衔接文件 '--------------------------------------------查询开始数据库 set rs=server.CreateObject("adodb.records

  • asp木马代码解密的随机加密webshell

    随机加密webshell,解密还不错,应当免杀 加密源码 复制代码 代码如下: <%@ LANGUAGE = VBScript.Encode %> <%#@~^3A4CAA==@#@& jdDhl/k'r1v2FX!ZFE~,PP,~P,@#@&sHC:'r随机加密 J~P~~@#@&jkDnj"SxE4YY2lJzAhS 4l^0+MRmK:r~P,P~P,P~@#@&ZWazDbotDxEbUn木马随机加密器 rP~P~~,P~P,~P,

  • 判断dll文件是否已经注册的ASP函数代码

    asp判断服务器是否安装了某个组件,也就是是否安装了某个dll文件,判断某个组件是否在服务器注册了,asp组件很多,它的判断可以减少很多asp错误,主要是用下面的函数: 复制代码 代码如下: <% '功能:检查是否存在系统组件或组件是否安装成功 '参数:组件名 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj =

  • 一段ASP 伪静态代码

    发现好多asp的系统在调用文章的时候如果不生成静态,输出的都是类似 http://www.xxx.com/show.asp?id=26 这种格式的. 如果可以换成  http://www.xxx.com/show/?26 这种格式,感觉清减了不少,当然对于支持伪静态的空间 还可以设置成  http://www.xxx.com/show/26  据说着杨可以增加搜索引擎收录的几率. 代码如下: 首先建立一个show目录,建立一个index.asp文件,就是系统默认的那个文件 然后把以前如果是 sh

随机推荐