mine-d.asp

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

<%
if session("islogin")="" then
response.Redirect("./")
end if
'===================================================

'源码：FSO删除文件示例
'时间：2005年12月17日
'===================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
f=request.QueryString("f")
File = Server.MapPath("sexphoto\"+f+".1")
on Error Resume Next
fs.DeleteFile File, True '强制删除只读文件
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 = '"+f+"'"
rs.open sql,conn,1,3
rs.Delete
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
If Err Then
Response.Write "文件删除错误，请手动删除"+f
Else
Response.Redirect("mine.asp")
End If
%>