asp+access ʵÏÖËæ»ú³öÌâÔõôʵÏÖ
ÏëÓÃasp+access×öÒ»¸öÔÚÏß¿¼ÊÔϵͳ£¬ÇëÎÊÈçºÎʵÏÖËæ»ú´ÓaccessÊý¾Ý¿âÖгéÌâ¶ø²»»áÖظ´ÄØ£¿
randomº¯ÊýÓÃÉÏ¡£
Ïë²»Öظ´µÄ»° Ö»ÓÐÓÃÒ»¸öÊý×é±£´æÄãµÄÊÔÌâidÁË
ÿµ±³é³öÒ»¸öid ¾ÍºÍÊý×éÖеÄid±È½Ï Èç¹ûÏàµÈ£¬¾Í²»È¡³öidÁË£¬²»µÈµÄ»° ¾ÍÈ¡³öidÀ´¡£È»ºó°ÑÕâ¸ö²»Öظ´µÄidÌí¼Óµ½ÄǸöÊý×éÖÐ
»òÕßÏñ½ÚÔ¼µãʱ¼ä£º°Ñ³é³öµÄÌâÄ¿id´ÓСµ½´óÅÅÐò£¬È»ºóÈ¡³öÖظ´µÄid
·½·¨Ò»£ºÓÐÈËÓÃÈçÏ´úÂëÒԼǼ×ÜÊýΪ¼«´óÖµÀ´Ê×ÏÈÌáÈ¡³öÖ¸¶¨ÊýÁ¿µÄËæ»úÊý£¬È»ºóÒÔÕâЩËæ»úÊý×öΪ¼Ç¼ID¡£
VBScript´úÂë:
dim n,j
dim su()
dim a,b,k
b=myrs.RecordCount
Randomize
redim su(index_N)
su(1)=Int((b * Rnd) + 1)
for n=2 to index_N
a=Int((b * Rnd) + 1)
for j=1 to n
do while a=su(j)
a=Int((b* Rnd) + 1)
j=1
loop
next
su(n)=a
next
¡¡¡¡ÕâÖÖ·½Ê½ÓÐһЩÎÊÌ⣬¾ÍÊǵ±Ö÷¼üID²»Á¬ÐøµÄ»°£¬ÓпÉÄÜijЩËæ»úÊý²»´æÔÚIDÐòÁе±ÖС£ÁíÍâIDµÄ×î´óÖµÓë×ܵļǼֵ²»Ò»¶¨ÏàµÈ£¬ÕâÑùÓÐЩ¼Ç¼ID»áÓÀÔ¶±»ºöÂÔ¡£
¡¡¡¡·½·¨¶þ£ºÓÐÈ˲ÉÓÃÒ»ÌõSQLÓï¾ä½â¾ö´ËÎÊÌâ
¡¡¡¡select top 5 * from Table1 order by Rnd()*5
¡¡¡¡ÕâÌõÓï¾ä¿ÉÒÔËæ»ú´ÓAccessÊý¾Ý¿âÖÐÉãÈ¡5Ìõ¼Ç¼¡£µ«ÊÇʵ¼Ê²Ù×÷ÖУ¬ÆäÉú³ÉµÄ¼Ç¼½á¹ûÊǹ̶¨µÄ£¬Ê§È¥ÁËËæ»úÉãÈ¡¼Ç¼µÄÒâÒå¡£
¡¡¡¡·½·¨Èý£ºÓÐÕâÑùÒ»ÖÖ·½·¨¡£
¡¡¡¡ÀûÓÃËæ»úÊýÉú³ÉÖ÷¼üµÄ¼Ç¼ID
¡¡¡¡yourstr=
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÕâÉç»á»ù±¾Éϲ»ÐèÒªASP³ÌÐòÔ±ÁË,Ò»ÃæÊÔ,¶¼Òª.NET»òÕßPHP,JSPµÄ,°¥,,,,ASPÕâô²»ÖµÇ®Âð,ѧϰASPÊǸö´íÎóÂð
ûɶ´íÎó Ò»¾ä»°£º¼¼¶à²»Ñ¹Éí
¿¿ASP¶¼»ì²»µ½·¹³ÔÁË ÔÎ ÔÎ
ÎÒµÄÒâ˼ÊǶàѧһÃż¼Êõûɶ´íÎó ......
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔÊ¡È¥ºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔÇ°ÊDZðÈËдµÄ ......
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔÊ¡È¥ºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔÇ°ÊDZ ......
Ç°¶Îʱ¼äÅöµ½Ò»µÀÃæÊÔÌâÈçÏ£º
test.aspxÒ³ÃæÓÐÈçÏ´úÂ룺
Response.Write(Test.GetDate());
TestÀàÈçÏ£º
public class Test
{
static string dt="";
public static s ......
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls
Namespace CBDAspNet.WebControls.HTML
''' <summary>
'' ......