aspÒ³Ãæ¿ÉÒÔ´ò¿ªµ«ÒªÊµÏÖµÄÄÚÈÝû·´Ó¦
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<%@ language="VBscript"%>
<html>
<title>Éú³ÉËæ»ú×Ö·û´® </title>
<body>
<h3>
<%
Function Get_Key(digits)
'¶¨Òå²¢³õʼ»¯Êý×é
Dim chArray(26)
'³õʼ»¯Êý×Ö
For i=65 To 90
chArray(i-65)=Chr(i)
Next
Randomize '³õʼ»¯Ëæ»úÊýÉú³ÉÆ÷
Do While Len(output) < digits
num=chArray(Int((26-0+1)*Rnd+0))
output=output +num
Loop
Get_Key=output
End Function
%>
Éú³ÉµÄÊ®Î»Ëæ»ú×Ö·û´®Îª£º </h3>
<center> <%=Get_Key(10)%> </center>
</body>
</html>
ÄÜ´ò¿ªÕâ¸öÒ³Ãæµ«ÒªÊµÏÖµÄÄÚÈÝÎÞ·¨ÊµÏÖ£¬´ò¿ª¾ÍÊÇÒ»¸ö¿Õ°×µÄÒ³Ãæ¡£¡£Ê²Ã´¶¼Ã»ÓУ¬ÎÒÊÔÁ˺ܶà¸ö´úÂë¶¼ÊÇÕâÑù¡£¡£
HTML code:
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<%@ language="VBscript"%>
<html>
<title>Éú³ÉËæ»ú×Ö·û´® </title>
<body>
<h3>
<%
Function Get_Key(digits)
'¶¨Òå²¢³õʼ»¯Êý×é
Dim chArray(26)
'³õʼ»¯Êý×Ö
For i=65 To 90
chArray(i-65)=Chr(i)
Next
Randomize '³õʼ»¯Ëæ»úÊýÉú³ÉÆ÷
Do While Len(o
Ïà¹ØÎÊ´ð£º
ÔÏÈÓÐÒ»¸öÏîÄ¿ÊÇÓÃaspдµÄ£¬ÒòΪϵͳÀ©Õ¹£¬ÎÒÏëÌí¼ÓһЩģ¿é»òÍøÒ³£¬ÏëÓÃasp.netд£¬È»ºóÔÚaspÖÐredirectµ½aspxÎļþÖУ¬ÇëÎÊÊÇ·ñ¿ÉÒÔ×öµ½£¬ÈçºÎÔÚIISÖнøÐÐÅäÖá£
ÕâÑù¿ÉÒÔʡȥºÜ¶à¹¤×÷Á¿£¬ÒòΪϵͳÒÔǰÊDZ ......
ÄÄλ´ó¸çÓÐûÓÐASP.NETÖÐÀûÓÃCookiesʵÏÖÓû§×Ô¶¯µÇ¼µÄ´úÂë...ллÁË...Ô½ÏêϸԽºÃ....
ʲôÒâ˼£¿×Ô¶¯µÇ¼£¿
mark òÊÓÊÇ´æ´¢cookies ÎÒÒ²¶Ôcook±È½ÏÃÔºý ¹Ø×¢ÏÂ
¼ÈÈ»ÄãÖªµÀÓÃcookies×Ô¼º¶¯¶¯´óÄÔ¶àºÃ£¡ ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
ÓÐÒ»¸öÀà
class adc
{
dim a,b,c
}
ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý
class getmenber
{
dim menbers()
function getmenbers(resclass)
'resΪһδ֪Àà
'getmenber ......