io.asp

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

<%
On error Resume Next
id=clng(replace(request.querystring("tq"),"/",""))
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 id = "+ cstr(id)
rs.open sql,conn,1,3
if rs.eof or err then
err.clear
response.Redirect("/")
response.end
end if
pass=rs("pass")
oldf=rs("file")
fn=rs("old")
rs.Close
set rs=nothing
conn.close
set conn=nothing
if pass <> "" then
pass2=request.Form("pass")
 if pass2=pass or session("pass")=pass then  
 dl "sexphoto/"+fn+".1",oldf
 else
response.write "请输入密码,<form id=form1 name=form1 method=post action=""""><label><input type=text name=pass /></label><label><input type=submit name=Submit value=提交 /></label><input type=hidden value="+cstr(id)+" name=tq /></form>"
end if
else
dl "sexphoto/"+fn+".1",oldf
end if
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
  Response.ContentType="application/octet-stream"
  Response.AddHeader "Content-Disposition:","attachment; filename=" & n
  Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
  if Range="" then
   Response.BinaryWrite(S.Read)
  else
   S.position=Clng(Split(Range,"-")(0))
   Response.BinaryWrite(S.Read)
  End if
end if
end function
%>