عدد تصادفی

[pedram_ns]

من می خواهم با تابع Rnd یک عدد تصادفی بین 1 تا 10 ایجاد کنم ولی فقط عدد هفت رو بر می گردونه باید چکار کنم؟

[mosyhey]

در خطی پیش از آن خط، از دستور Randomize استفاده کنید.

...
Randomize
... Rnd ...

[andranik]

سلام به همه دوستان
من می خوام 8 رکورد از یک جدول بانک اطلاعاتی رو به صورت راندم چاپ کنم اما خطا می گیره خطا هم string['مقدار داخل فیلد"]
اگه می شه بهم بگید این 8 رکورد رو چجوری راندم چاپ کنم در خروجی
منتظرما هستم دچار مشکل شدم
خیلی ممنون

[هواشناس]

بنام خدا
با سلام
این هم نمونه کدی که خواسته بودی
در این کد تا 8 رکورد رو بدلخواه از بیتن تموم رکورد ها فراخوانی میکنه و نام رکورد رو برمیگردونه، رکود id از نوع autonumber integer و رکورد name از نوع رشته هست دیتابیس هم اکسس



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%session.CodePage=65001%>
<%on error resume next %>
<!--#include File="adovbs.inc"-->
<%
set MenuCnnDB = Server.CreateObject("ADODB.Connection")
strMenuConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\root\DB\setting.mdb;"' & ";Jet OLEDB:Database Password=''"
MenuCnnDB.Open strMenuConn
Sql="select * From tbl order by id "
set RDSMenu = Server.CreateObject("ADODB.Recordset")
RDSMenu.Open Sql,MenuCnnDB,3,3
numr=RDSMenu.recordcount
RDSMenu.movefirst
first_id=RDSMenu("id")
RDSMenu.movelast
last_id=RDSMenu("id")
Response.Write("num rec="&numr&"<BR>")
Response.Write("first_id="&first_id&"<BR>")
Response.Write("last_id="&last_id&"<BR>")
for i= 1 to 8
RDSMenu.movefirst
randomize
rand_id=cint((last_id-first_id)*rnd+first_id)
RDSMenu.move rand_id
if not RDSMenu.eof and not RDSMenu.bof and err=0 then
Response.Write(i&" :rand_id="&rand_id&"------")
Response.Write("rand_rec="&RDSMenu("name"))
Response.Write("<BR>")
else
i=i-1
end if
next
RDSMenu.Close
set RDSMenu = nothing
%>

این هم حق کپی رایت این پست : صلوات برای سلامتی و تعجیل در ظهور آقا صاحب الزمان علیه السلام