Flash_MX
Registered User
- تاریخ عضویت
- 22 دسامبر 2002
- نوشتهها
- 54
- لایکها
- 2
- سن
- 43
من كد هاي شما رو تست كردم رو سيستم من وقتي server.MapPath رو تغيير دادم به خوبي كار كرد .
فقط كافيه كد هاي خودتون رو به صورت زير تغغير بدين .
[code:1]<%@ language=vbscript %>
<% option explicit %>
<%
dim objOpenFile,ObjFSO,strPath
strPath = Server.MapPath("fpdb/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("fpdb/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]
فقط كافيه كد هاي خودتون رو به صورت زير تغغير بدين .
[code:1]<%@ language=vbscript %>
<% option explicit %>
<%
dim objOpenFile,ObjFSO,strPath
strPath = Server.MapPath("fpdb/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("fpdb/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]