re.asp

MD5加密,解密实现方法(.net上的c#开发)

<%
if session("islogin")="" then
response.Redirect("./")
end if
fn=request.QueryString("f")
db="file.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from a where old = '"+fn+"'"
rs.open sql,conn,1,3
oldf=rs("file")
rs.Close
set rs=nothing
conn.close
set conn=nothing
dl "sexphoto/"+fn+".1",oldf
function dl(f,n)
on error resume next
Set S=CreateObject("Adodb.Stream") 
S.Mode=3 
S.Type=1 
S.Open 
S.LoadFromFile(Server.MapPath(f))
if Err.Number>0 then 
  Response.Status="404"
else
 dotl=split(lcase(n),".")
 tl=dotl(ubound(dotl))
 select case tl
 case "html"
 ctype="text/html"
 case "htm"
 ctype="text/html"
 case "rtf"
 ctype="application/rtf"
 case "gif"
 ctype="image/gif"
 case "jpg" 
 ctype="image/jpeg" 
 case "jpeg"
 ctype="image/jpeg"
 case "au"
 ctype="audio/basic"
 case "mid"
 ctype="audio/midi"
 case "midi"
 ctype="audio/x-midi"
 case "ra"
 ctype="audio/x-pn-realaudio"
 case "ram"
 ctype="audio/x-pn-realaudio"
 case "mpeg"
 ctype="audio/video/x-msvideo"
 case "mpg"
 ctype="audio/video/x-msvideo"
 case "avi"
 ctype="video/x-msvideo"
 case "gz"
 ctype="application/x-gzip"
 case "tar"
 ctype="application/x-tar"
 case else
 ctype="application/octet-stream"
 end select
  Response.ContentType=ctype
  Response.AddHeader "Content-Disposition:","attachment; filename=" & n
  response.AddHeader "Accept:",ctype
  Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
  if Range="" then
   Response.BinaryWrite(S.Read)
'response.write ctype
  else
   S.position=Clng(Split(Range,"-")(0))
  Response.BinaryWrite(S.Read)
'response.write ctype
  End if
end if
end function
%>