㽏en

Response.WriteBlock(46)

ElseIf strFlag="3" then

Response.WriteBlock(47)

end if

Response.WriteBlock(48)

response.End

end sub

'********************

'?uO?yg憃`I焢e,O?y

'********************

sub NotesGo(str,url)

Response.WriteBlock(49)

if str<>"" then

Response.WriteBlock(50)

Response.Write(str)

Response.WriteBlock(51)

end if

Response.WriteBlock(52)

Response.Write(url)

Response.WriteBlock(53)

response.end

end sub

'********************

'W|iXstr-Np汭Rzz<h,n奫?P:NYtTIRW[&{2N

'********************

function PowerTrim(str)

dim i,ln,result

ln=len(cstr(str))

for i=1 to ln

if mid(str,i,1)<>" " then

result=result & mid(str,i,1)

end if

next

PowerTrim=result

end function

'********************

'E業R貘<h_S>f:y/?g

'9deQ貘/?g<P
0<h_S2N

'n奫?P貘W[&{2N

'sZ FormatDate(now(),"yyyymmdd h:n")	n奫?P:N "20021009 10:3"

'sZ FormatDate(now(),"yyyy-m-d hh:nn") n奫?P:N "2002-10-9 10:03"

'********************

function FormatDate(DateValue,FormatString)

'FormatString yyyy
嶮Ot^,yy$NMOt^,mmg,m
N&^MR袨0.dd/?hh
?貘nnR,ssv?
dim strResult

strResult=lcase(FormatString)

if IsDate(DateValue) then

'Response.Write DateValue

strYear=year(DateValue)

if len(strYear)=2 then

strYear="20" & strYear

end if

strMonth=month(DateValue)

if len(strMonth)=1 then strMonth="0" & strMonth

strDay=day(DateValue)

if len(strDay)=1 then strDay="0" & strDay

if IsNull(hour(DateValue)) then

strHour="00"

else

strHour=hour(DateValue)

if len(strHour)=1 then strHour="0" & strHour

end if

if IsNull(minute(DateValue)) then

strMinute="00"

else

strMinute=minute(DateValue)

if len(strMinute)=1 then strMinute="0" & strMinute

end if

if IsNull(second(DateValue)) then

strSecond="00"

else

strSecond=second(DateValue)

if len(strSecond)=1 then strSecond="0" & strSecond

end if

if Instr(strResult,"yyyy")>0 then

strResult=replace(strResult,"yyyy",strYear)

ElseIf Instr(strResult,"yy")>0 then

strResult=replace(strResult,"yy",right(strYear,2))

end if

if Instr(strResult,"mm")>0 then

strResult=replace(strResult,"mm",strMonth)

ElseIf Instr(strResult,"m")>0 then

strResult=replace(strResult,"m",cstr(cint(strMonth)))

end if

if Instr(strResult,"dd")>0 then

strResult=replace(strResult,"dd",strDay)

ElseIf Instr(strResult,"d")>0 then

strResult=replace(strResult,"d",cstr(cint(strDay)))

end if

if Instr(strResult,"hh")>0 then

strResult=replace(strResult,"hh",strHour)

ElseIf Instr(strResult,"h")>0 then

strResult=replace(strResult,"h",cstr(cint(strHour)))

end if

if Instr(strResult,"nn")>0 then

strResult=replace(strResult,"nn",strMinute)

ElseIf Instr(strResult,"n")>0 then

strResult=replace(strResult,"n",cstr(cint(strMinute)))

end if

if Instr(strResult,"ss")>0 then

strResult=replace(strResult,"ss",strSecond)

ElseIf Instr(strResult,"s")>0 then

strResult=replace(strResult,"s",cstr(cint(strSecond)))

end if

else

strResult="0"

end if

FormatDate=strResult

end function

'ubG_:gW[&{2N,lengthubW[&{2NIR抐^,hasNum,hasLowerChar,hasUpperChar,hasOtherChar<P:N0b1,
o!k:NS+TpeW[
0\ojW[箚
0'YojW[箚
0vQ跴W[&{

function GenRandom(Length,hasNum,hasLowerChar,hasUpperChar,hasOtherChar)

dim result

dim LatterNum,LatterLower,LatterUpper,LatterOther

dim arrLatter

'R㼊匀㘀ὶ甀က戀䤀刀圀嬀☀笀㰀倀ഀ਀䰀愀琀琀攀爀一甀洀㴀∀　㄀㈀㌀㐀㔀㘀㜀㠀㤀∀ഀ਀䰀愀琀琀攀爀䰀漀眀攀爀㴀∀愀戀挀搀攀昀最栀椀最欀氀洀渀漀瀀焀爀猀琀甀瘀眀砀礀稀∀ഀ਀䰀愀琀琀攀爀唀瀀瀀攀爀㴀∀䄀䈀䌀䐀䔀䘀䜀䠀䤀䜀䬀䰀䴀一伀倀儀刀匀吀唀嘀圀堀夀娀∀ഀ਀䰀愀琀琀攀爀伀琀栀攀爀㴀∀ⴀ㴀尀嬀崀∀ഀ਀✀␀刀봀ὴ甀က戀圀嬀☀笀㈀一缀退幢㤀搀攀儀⼀昀☀吀挀欀渀砀ഀ਀椀昀 一漀琀 椀猀渀甀洀攀爀椀挀⠀氀攀渀最琀栀⤀ 伀爀 䰀攀渀最琀栀㰀　 琀栀攀渀ഀ਀䜀攀渀刀愀渀搀漀洀㴀∀∀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀✀ᴀ刀਀?Sg"
`penc

dim num

num=0

if hasNum then num=num+1

if hasLowerChar then num=num+1

if hasUpperChar then num=num+1

if hasOtherChar then num=num+1

if num=0 then

GenRandom=""

exit function

end if

redim arrLatter(num-1)

num=0

if hasNum then

arrLatter(num)=LatterNum

num=num+1

end if

if hasLowerChar then

arrLatter(num)=LatterLower

num=num+1

end if

if hasUpperChar then

arrLatter(num)=LatterUpper

num=num+1

end if

if hasOtherChar then

arrLatter(num)=LatterOther

num=num+1

end if

Randomize()

dim i,index,position

for i=1 to Length

index=int((ubound(arrLatter)+1)*Rnd())

position=int(len(arrLatter(index))*Rnd()+1)

result=result + mid(arrLatter(index),position,1)

next

GenRandom=result

end function

'************************

'n奫廤[&{麊
Y!kpe

'************************

function Repeat(str,num)

dim Result

Result=""

do while num>0

Result=Result + str

num=num-1

Loop

Repeat=Result

end function

function IntToStr(value,maxlen,fillchar)

dim result

result=cstr(value)

if len(result)<maxlen then

result=Repeat(fillchar,maxlen-len(result)) & result

end if

IntToStr=result

end function

'************************************************

'Yt;渀鸮㾃开䤀刀氀㼀匀挀　楪ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 琀爀愀渀猀氀愀琀攀⠀猀漀甀爀挀攀匀琀爀Ⰰ昀椀攀氀搀匀琀爀⤀ഀ਀搀椀洀  猀漀甀爀挀攀䰀椀猀琀ഀ਀搀椀洀 爀攀猀甀氀琀匀琀爀ഀ਀搀椀洀 椀Ⰰ樀ഀ਀椀昀 椀渀猀琀爀⠀猀漀甀爀挀攀匀琀爀Ⰰ∀ ∀⤀㸀　 琀栀攀渀ഀ਀搀椀洀 椀猀伀瀀攀爀愀琀漀爀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀猀漀甀爀挀攀䰀椀猀琀㴀猀瀀氀椀琀⠀猀漀甀爀挀攀匀琀爀⤀ऀ✀᠀ᴀd稀㰀栀؀刀䐀攀ഀ਀爀攀洀 刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀渀甀洀㨀∀ ☀ 挀猀琀爀⠀甀戀漀甀渀搀⠀猀漀甀爀挀攀䰀椀猀琀⤀⤀ ☀ ∀㰀戀爀㸀∀ഀ਀昀漀爀 椀 㴀 　 琀漀 甀戀漀甀渀搀⠀猀漀甀爀挀攀䰀椀猀琀⤀ഀ਀爀攀洀 刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 椀ഀ਀匀攀氀攀挀琀 䌀愀猀攀 甀挀愀猀攀⠀猀漀甀爀挀攀䰀椀猀琀⠀椀⤀⤀ഀ਀䌀愀猀攀 ∀䄀一䐀∀Ⰰ∀☀∀Ⰰ∀琀嬀∀Ⰰ∀฀一∀ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 愀渀搀 ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀伀刀∀Ⰰ∀簀∀Ⰰ∀ᘀ戀∀ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 漀爀 ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀一伀吀∀Ⰰ∀℀∀Ⰰ∀帀㼀Ⰰ∀Ā頀⊌Ⰰ∀Ā頀⊌ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 渀漀琀 ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀⠀∀Ⰰ∀ࠀ頀⊌Ⰰ∀ࠀ頀⊌ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ ⠀ ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀⤀∀Ⰰ∀ऀ頀⊌Ⰰ∀ऀ頀⊌ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ ⤀ ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 攀氀猀攀ഀ਀椀昀 猀漀甀爀挀攀䰀椀猀琀⠀椀⤀㰀㸀∀∀ 琀栀攀渀ഀ਀椀昀 渀漀琀 椀猀伀瀀攀爀愀琀漀爀 琀栀攀渀 爀攀猀甀氀琀匀琀爀㴀爀攀猀