ASP²úÉú²»Öظ´µÄËæ»úÊý£¨Ä£ÄâÏ´ÅÆ£©
¹¦ÄÜ×÷ÓãºASP²úÉú²»Öظ´µÄËæ»úÊý£¨Ä£ÄâÓÎÏ·Ï´ÅÆ£©
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum = getRndNumber(Fun_I,unit)
Fun_X = myArray(RndNum)
myArray(RndNum)=myArray(Fun_I)
myArray(Fun_I)=Fun_X
Next
GetRnd = myArray
end function
function getRndNumber(lowerbound,upperbound)
Randomize
getRndNumber=Int((upperbound-lowerbound+1)*Rnd+lowerbound)
end function
%>
Ïà¹ØÎĵµ£º
Ò»£¬¶¯Ì¬ÍøÒ³Óë¾²Ì¬ÍøÒ³
1£¬ÍøÒ³
ÍøÒ³ÊÇ·ûºÏHTML¹æ·¶£¬ÄÜͨ¹ýä¯ÀÀÆ÷¿´µ½µÄÎļþ¡£
2£¬¾²Ì¬ÍøÒ³
²ÉÓÃHTML±ê¼ÇÓïÑÔ±àдµÄÍøÒ³£¬ºó׺һ°ãΪ html »ò htm£¬Èç index.html¡£
3£¬¶¯Ì¬ÍøÒ³
²ÉÓÃASP£¬JSP£¬PHP£¬CGI µÈ³ÌÐò¶¯Ì¬Éú³ÉµÄÒ³Ãæ£¬Ö»ÓÐÔÚ½Óµ½Óû§·ÃÎÊÒªÇóºó²ÅÉú³ÉÒ³Ãæ²¢´«ÊäÖÁÓû§ä¯ÀÀÆ÷¡£ÎļþÃûºó׺Ϊ .asp £¬.shtm £ ......
³£ÓõĽű¾ÓïÑÔÓÐ Javascript ºÍ VBscript ¡£
ʹÓÃÄÄÖÖÓïÑÔÐèÏÈÉ趨¡£ÈçÉϽڴúÂëÖеÄ<%@ LANGUAGE="JSCRIPT" ... %>¡£
Èç¹ûûÓÐÖ¸¶¨£¬ÏµÍ³¾Í»áʹÓà IIS ³ÌÐòÖ¸¶¨µÄ½Å±¾ÓïÑÔ¡£
VBscript Ó÷¨
VBscript Ò»°ã·ÅÔÚ <head> Óë </head> ÄÚµÄ <% ºÍ %> Ö®¼ä¡£
´ú ......
FormatDateTime
·µ»Ø±í´ïʽ£¬´Ë±í´ïʽÒѱ»¸ñʽ»¯ÎªÈÕÆÚ»òʱ¼ä¡£
FormatDateTime(Date[, NamedFormat])
²ÎÊý
Date
±ØÑ¡Ïî¡£Òª±»¸ñʽ»¯µÄÈÕÆÚ±í´ïʽ¡£
NamedFormat
¿ÉÑ¡ÏָʾËùʹÓõÄÈÕÆÚ/ʱ¼ä¸ñʽµÄÊýÖµ£¬Èç¹ûÊ¡ÂÔ£¬ÔòʹÓà vbGeneralDate¡£
ÉèÖÃ
NamedFormat ²ÎÊý¿ÉÒÔÓÐÒÔÏÂÖµ£º
³£Êý Öµ ÃèÊö
vbGeneralDate ......
http://fjtysgzx.hpw-js.com/Photo-151469.aspx) <%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net"%>
<%@ Page Language="C#" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÕâ·½ÃæµÄ´úÂ룬µ«ÊÇÓÐЩÊDz»ÄÜÓã¬ÓÐЩÊÇÀ¬»ø´úÂëÌ«¶à£¬ÎÒ¼òµ¥µÄÐÞ¸ÄÁËÒ»ÏÂÏÖÔÚÓë´ó¼Ò¹²Ïíһϡ£
<%
Option Explicit
dim databasename '¶¨ÒåÊý¾Ý¿âÃû³Æ
databasename="database.mdb" 'Êý¾Ý¿âÃû³Æ
dim databasepath '¶¨ÒåÊý¾Ý¿â´æ·Å·¾¶
......