تمامی سوالات مربوط به asp.net

با سلام خدمت دوستان عزیز و عرجمند
در این تایپک قرار است همه چیز در مورد asp.net را پیگیری کنیم.
ببینم کی اول شرع می کنه فکر کنم خودم باشم؟

داونلود کد: اعمال متداول با DataGrid در ASP.NET
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تاريخ هجري شمسي
فايلهاي مورد نياز : Shamsi.asp
توضيحات : تا اونجايي كه يادمه مشكل سال كبيسش حل شده
[PHP]<%
FMonArray= array (0,31,31,31,31,31,31,30,30,30,30,30,30)
EMonArray= Array(0,31, 28,31,30,31,30,31,31,30,31,30,31)

W = Array ("يکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه")
Mon = Array ("فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دي", "بهمن", "اسفند")
EYear= Year(Date)
EMon= Month(Date)
EDay = Day(Date)

ELeap=0

if ((EYear mod 4))= 0 Then
ELeap =1
End if

Cnt=EMon-1
Temp=0
While Cnt<>0
if ((Cnt=2)and(ELeap=1)) Then
Temp= Temp+29
else
Temp= Temp + EMonArray(Cnt)
end if
Cnt=Cnt-1
Wend

EDayOfYear= Temp+EDay
' Convert to Farsi

Temp= EDayOfYear-79
if Temp>0 Then
FYear= EYear-621
else
FYear= EYear-622

if ((FYear mod 4)=3) then
Temp= Temp+366
else
Temp= Temp+365
End if
End if

if (FYear mod 4)=3 Then
FLeap=1
else
Fleap=0
End if

Cnt= 1

While( (Temp<>0) and (Temp>FMonArray(Cnt)) )
if Cnt=12 Then
if (FLeap=1) Then
Temp=Temp-30
else Temp= Temp-29
end if
else Temp= Temp-FMonArray(Cnt)
end if

Cnt= Cnt+1
Wend

if Temp<>0 Then
FMon = Cnt
FDay= Temp
else
FMon= 12
FDay=30
End if

DateShamsi = W(WeekDay(Date) - 1) & " " & FDay& " " & Mon(FMon - 1) & " " &FYear
%>
<%
response.write(DateShamsi)
%>[/PHP]

>نمايش تصادفي يك خط از فايل
مورد استفاده : نمايش Tip هاي مختلف در صفحه
فايلهاي مورد نياز : text.txt, rndline.asp
توضيحات :
1. در اين مثال فايل text.txt ميبايست شامل 20 خط باشد.
2. پوشه ذخيره اين دو فايل بايد اجازه (permission) تغييرات رو داشته باشد.
كد نمونه :
[PHP]<%
Randomize
' Number of 1-line entries in the text file. 21 here
RandNo = Int(Rnd*20)

' Now open the file with the 20 entries
userFile = "text.txt"
userFile=Server.Mappath (userFile)
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(userFile, 1, False)


' If you wish to skip lines, enter that number here
For i = 1 to RandNo -1
thisfile.SkipLine()
Next

' Now assign the variable RandomLineItem to the line selected
RandomLineItem = thisfile.ReadLine
Set fs = Nothing

' Display the Random Line
Response.write RandomLineItem
%>[/PHP]

روز شمار
فايلهاي مورد نياز : countdown.asp

کد:

---

<%
dim strDateTime
strDateTime =  CDate("2/9/2000")
strFutureDay = #12/31#
Response.write "There are" & INT(strFutureDay - strDateTime) & " more days till December 31st."
%>

---

بدست آوردن IP Address كاربر
مورد استفاده : ثبت آي پي و استفاده از آن براي جلوگيري از ثبت بيش از يك راي در نظرخواهي
فايلهاي مورد نياز : ip.asp
نمونه كد :
[HTML]My IP address is <%=Request.ServerVariables("REMOTE_ADDR")%>[/HTML]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Creating an Engine for Games for Windows

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بدست آوردن نام فايلها
مورد استفاده : به هنگامي كه نياز داشته باشيد نام فايلهاي موجود در يك پوشه را بدانيد.
فايلهاي مورد نياز : filename.asp
توضيحات :
براي استفاده از نمونه كد زير ميبايست پوشه اي با نام MyFolder در پوشه جاري ايجاد نماييد.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("MyFolder"))
For each filefound in MyFiles.files
      Response.write filefound.Name
      response.write "<br>"
Next
%>

---

محل برداشت : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ساخت پوشه
فايلهاي مورد نياز : CreateDir.asp
توضيحات :
پوشه ذخيره اين فايل بايد اجازه (permission) تغييرات رو داشته باشد.
نمونه كد :
[HTML]<%
set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("/personal/data/")

If NOT fs.folderexists(MyFolder) then
fs.createfolder(MyFolder)
End If
' Check if the creation was a success or not
If fs.folderexists(MyFolder) then
Response.write "Success"
Else
Response.write "Failure."
End If
%> [/HTML]

محل برداشت : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
حذف پوشه
فايلهاي مورد نياز : RemoveDir.asp
توضيحات :
پوشه ذخيره اين فايل بايد اجازه (permission) تغييرات رو داشته باشد.
نمونه كد :

کد:

---

<%
set fs=createobject("scripting.filesystemobject")
MyFolder=server.mappath("/download/incoming/")

set delDir = fs.getfolder(myFolder)
delDir.delete
set delDir = Nothing

'Check if the deletion was a success or Not
If fs.folderexists(myFolder) then
      Response.write "Deleted"
Else
      Response.write "Error"
End If
%>

---