۲۱-شهریور-۱۳۸۵, ۱۲:۰۲:۲۲
سلام دوستان
من تازه وارد تویه این بخش هستم .
من یه سوال خیلی فوری دارم و خواهشن هر کی بلده سریعتر جواب بده ممنون میشم
من یه برنامه ای رو نوشتم تویه ای اس پی زبانشم ویبی یه کانتره .
من این رو روی IIS اجرا می کنم به من گیر دسترسی میده
طرز کارشم اینجوریه که هر دفه که سایت باز میشه میره و یه فایل تکست رو باز میکنه و عدد داخل اونو می خونه یه واحد اضافه میکنه و سیو میکنه منتهی نمیدونم چرا موقعی کر رو مد رایت باز میکنم میگه که
Bad file mode (موقع نوشتن)
موقعی هم که با مد اپندینگ باز می کنم میگه
Premission denied
حالا موندم که چه جوریه چرا نمیشه !
اما اگر شما ایده ای دارید برای کانتر اگه بگید ممنون میشم
راستی یه چیزی هم که بلد نیستم اینه که چه جوری میشه فایل تکست رو پاک کرد . تا دوبار یه عدده دیگه جاش نوشت.
در ضمن دسترسی ها رو هم از ای ای اس هم رید و هم رایت رو علامت زدم
اگر کسی نتونست سر در بیاره یه کانتر به من بده
لطفا هر چه سریع تر کمکم کنید
من تازه وارد تویه این بخش هستم .
من یه سوال خیلی فوری دارم و خواهشن هر کی بلده سریعتر جواب بده ممنون میشم
من یه برنامه ای رو نوشتم تویه ای اس پی زبانشم ویبی یه کانتره .
من این رو روی IIS اجرا می کنم به من گیر دسترسی میده
طرز کارشم اینجوریه که هر دفه که سایت باز میشه میره و یه فایل تکست رو باز میکنه و عدد داخل اونو می خونه یه واحد اضافه میکنه و سیو میکنه منتهی نمیدونم چرا موقعی کر رو مد رایت باز میکنم میگه که
Bad file mode (موقع نوشتن)
موقعی هم که با مد اپندینگ باز می کنم میگه
Premission denied
حالا موندم که چه جوریه چرا نمیشه !
اما اگر شما ایده ای دارید برای کانتر اگه بگید ممنون میشم
راستی یه چیزی هم که بلد نیستم اینه که چه جوری میشه فایل تکست رو پاک کرد . تا دوبار یه عدده دیگه جاش نوشت.
در ضمن دسترسی ها رو هم از ای ای اس هم رید و هم رایت رو علامت زدم
اگر کسی نتونست سر در بیاره یه کانتر به من بده
لطفا هر چه سریع تر کمکم کنید
کد:
<%@ language=VBScript %>
<html>
<head>
<title>Counters</title>
</head>
<body>
<center>
<B>
<%
Dim strPath
strPath = Server.MapPath("number.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objOpenFile = objFSO.OpenTextFile(strPath , 8)
lngCounter = Trim(objOpenFile.ReadLine)
lngCounter = lngCounter + 1
Response.Write lngCounter
objOpenFile.Write(lngCounter)
objOpenFile.Close
Set objOpenFile = nothing
Set objFSO = nothing
%>
</B>
</center>
</body>
</html>