انشاء صفحة اختيار رابط صورة بشكل عشوائي
هذا يناسب العديد من الافكار
مثلا احب ان يكون توقيعي متغير
لذلك هذا هو الكود الذي يقوم بالمهمة
في منطقة التصريحات العامة اكتب
ثم اكتب روابط لصور في ملف نصي
وقم بتخزينها في قائمة من نوع نص عبر اجراء بسيط
ثم اكتب دالة تختار رابط بشكل عشوائي من القائمة
ثم عند حدث تحميل الصفحة اكتب
واحفظ الصفحة باي اسم وبتوقيعك اكتب رابط الصفحة
ارجو ان اكون قدمت لكم شيئا مفيدا هذا اليوم
هذا يناسب العديد من الافكار
مثلا احب ان يكون توقيعي متغير
لذلك هذا هو الكود الذي يقوم بالمهمة
في منطقة التصريحات العامة اكتب
كود :
Dim lst As New List(Of String)
ثم اكتب روابط لصور في ملف نصي
وقم بتخزينها في قائمة من نوع نص عبر اجراء بسيط
كود :
Private Sub lopics()
For Each h In My.Computer.FileSystem.ReadAllText(Server.MapPath("\picslinks.txt")).Split(vbNewLine)
lst.Add(h.Trim)
Next
End Sub
ثم اكتب دالة تختار رابط بشكل عشوائي من القائمة
كود :
Private Function getpic() As String
Return lst.Item(Rnd() * lst.Count - 1)
End Function
كود :
Randomize()
If Not IsPostBack Then
lopics()
End If
Response.Redirect(getpic)
واحفظ الصفحة باي اسم وبتوقيعك اكتب رابط الصفحة
ارجو ان اكون قدمت لكم شيئا مفيدا هذا اليوم