خیلی ممنون که اینقدر میخواین کمکم کنید.
هيچ كار زيادي نميخوام بكنم اول اطلاعات فايل پسورد رو توي متغير password ذخيره ميكنم بعد اون رو با جمله كه كاربر به عنوان پسورد فعلي وارد كرده مقايسه ميكنم (از textboxایی که اسمش lastpass هست) اگه پسورد رو درست وارد کرده بودن اون وقت رمز جدید رو تو فایل مینویسم.
[code:1] dim objOpenFile,ObjFSO,strPath
strPath = Server.MapPath("P.txt")
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objOpenFile=objFSO.OpenTextFile(strPath,1)
dim password
password=ObjOpenFile.ReadLine
ObjOpenFile.close
set ObjOpenFile=nothing
if request.form("lastpass")=password then
strPath = Server.MapPath("P.txt")
set objOpenFile=objFSO.OpenTextFile(strPath,2)
ObjOpenFile.write(request.form("newpass1"))
ObjOpenFile.close
set ObjOpenFile=nothing
set ObjFSO=nothing
end if
[/code:1]