[ASP]精华代码

时间：2021-05-28

复制代码 代码如下:
<%
'--Loader.asp--
'--version1.5.2
'--lastupdated12/5/2002
'
'FaisalKhan
'faisal@stardeveloper.com
'plete=""
EndIf
EndFunction

PublicFunctiongetFileSize(name)
Ifdict.Exists(name)Then
getFileSize=LenB(dict(name).Item("Value"))
Else
getFileSize=0
EndIf
EndFunction

PublicFunctiongetFileSizeTranslated(name)
Ifdict.Exists(name)Then
temp=LenB(dict(name).Item("Value"))
Iftemp<=1024Then
getFileSizeTranslated=temp&"bytes"
Else
temp=FormatNumber((temp/1024),2)
getFileSizeTranslated=temp&"kilobytes"
EndIf
Else
getFileSizeTranslated=""
EndIf
EndFunction

PublicFunctiongetContentType(name)
Ifdict.Exists(name)Then
getContentType=dict(name).Item("ContentType")
Else
getContentType=""
EndIf
EndFunction

PrivateSubgetData(rawData)
Dimseparator
separator=MidB(rawData,1,InstrB(1,rawData,ChrB(13))-1)

DimlenSeparator
lenSeparator=LenB(separator)

DimcurrentPos
currentPos=1
DiminStrByte
inStrByte=1
Dimvalue,mValue
DimtempValue
tempValue=""

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

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

DimbegPos,endPos,midValue,nValue
DimintDict
SetintDict=Server.CreateObject("Scripting.Dictionary")

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

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

DimnameValue,isValid
isValid=True

IfInStrB(1,value,stringToByte("Content-Type"))>1Then

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

IfendPos=0Then
endPos=begPos+1
isValid=False
EndIf

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)))
EndIf

IfisValid=TrueThen

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

dict.AddbyteToString(nameN),intDict
EndIf
EndIf

currentPos=lenSeparator+inStrByte
Wend
EndSub

EndClass

PrivateFunctionstringToByte(toConv)
DimtempChar
Fori=1toLen(toConv)
tempChar=Mid(toConv,i,1)
stringToByte=stringToByte&chrB(AscB(tempChar))
Next
EndFunction

PrivateFunctionbyteToString(toConv)
Fori=1toLenB(toConv)
byteToString=byteToString&Chr(AscB(MidB(toConv,i,1)))
Next
EndFunction
%>

1、用户界面：
复制代码 代码如下:
<scriptlanguage="JavaScript">
functionCheckAll(form)
{for(vari=0;i<form.elements.length;i++)
{vare=form.elements[i];
if(e.name!='chkall')
e.checked=form.chkall.checked;
}
}
</script>

</head>

<body>
<formmethod="post"action="del.asp"name="form1">
<table>
<tr>
<td><inputtype="checkbox"value="111"name="TradeName">电子邮件1</td>
</tr>
<tr>
<td><inputtype="checkbox"value="111"name="TradeName">电子邮件2</td>
</tr>
<tr>
<td><inputtype="checkbox"value="111"name="TradeName">电子邮件3</td>
</tr>
<tr>
<td><inputtype="checkbox"value="111"name="TradeName">电子邮件4</td>
</tr>
<tr>
<td><inputtype="checkbox"value="111"name="TradeName">电子邮件5</td>
</tr>
<tr>
<td><inputtype="checkbox"value="111"name="TradeName">电子邮件6</td>
</tr>

<tr>
<tdbgcolor="#F1FBFC"height="25"colspan="2">
<palign="left"><inputtype="checkbox"name="chkall"value="on"onclick="CheckAll(this.form)"><fontcolor="#FF9900">选中所有显示的消息</font></p>
</td>
<center>


</tr>
</table>
</form>
2、删除文件del.asp
<%
'这行写连接数据库的代码
dimID,strID
strID=""
ForEachstrIDInRequest.Form("TradeName")
ID=Cint(strID)
ifstrID<>""then
DelRs=Server.CreateObject("ADODB.Recordset")
Conn.Execute"DeleteFromTbnamewhereID="&Cstr(ID)
strID=""
endif
Next

Conn.Close
SetConn=Nothing
Response.Redirect"成功删除！"
%>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章