aspʵÏÖÎÄÕÂ×Ô¶¯½ØÈ¡¹Ø¼ü´Ê

ÁÖ·ã

´úÂëÈçÏ£º
<%

'ת×Ô£ºhttp://www.zzwbn.cn
function createkeyword(byval bestr)
if bestr = "" or isnull(bestr) = true or bestr = "" then createkeyword = "" : exit function
dim strChar,strTmp
For i = 1 To Len(bestr)
strChar = Mid(bestr,i,1)
If (Asc(strChar)>=-24648 And Asc(strChar)<=-23553) Then strTmp = strTmp & Chr(Asc(strChar)+23680) Else strTmp = strTmp & strChar   
Next
bestr = replace(strTmp,chr(32),"")
bestr = replace(bestr,chr(9),"")
bestr = replace(bestr," ","") : bestr = replace(bestr,"^","")
bestr = replace(bestr,"'","") : bestr = replace(bestr,"""","")
bestr = replace(bestr,"~","") : bestr = replace(bestr,"-","")
bestr = replace(bestr,"+","") : bestr = replace(bestr,"*","")
bestr = replace(bestr,"/","") : bestr = replace(bestr,"\","")
bestr = replace(bestr,"|","") : bestr = replace(bestr,".","")
bestr = replace(bestr,"@","") : bestr = replace(bestr,"#","")
bestr = replace(bestr,"$","") : bestr = replace(bestr,"%","")
bestr = replace(bestr,"&","") : bestr = replace(bestr,"!","")
bestr = replace(bestr,"?","") : bestr = replace(bestr,",","")
bestr = replace(bestr,":","") : bestr = replace(bestr,";","")
bestr = replace(bestr,"(","") : bestr = replace(bestr,")","")
bestr = replace(bestr,"{","") : bestr = replace(bestr,"}","")
bestr = replace(bestr,"<","") : bestr = replace(bestr,">","")
bestr = replace(bestr,"[","") : bestr = replace(bestr,"]","")
dim t1,t2,i,c,n,e
randomize timer
for i = 1 to len(bestr)
c = Asc(Mid(bestr,i,1))
if (c >= 65 and c <= 90) or (c >= 97 and c <= 122) or (c >= 48 and c <= 57) then e = "" else e = Chr(44)
if Abs(c) > 127 then n = Int((1) * Rnd + 2) else n = 1
if instr(t1,mid(bestr,i,1)) > 0 and Abs(c) > 127 then t1 = t1 else t1 = t1 & e & mid(bestr,i,n)
next
for i = 0 to ubound(split(t1,","))-1
t2 = t2 & e & split(t1,",")(i)
next
if left(t2,1) = chr(44) then t2 = mid(replace(t2,",,",""),2,len(t2))
createkeyword = t2
end function
%>
ÆäʵAC±àÂëÎÒ²»ºÜ¶®~ÆäÖеÄ24648Ô­ÊÇ23648
×÷ÓÃÊÇÈ¥µô¡°¡«£¡£À£££¤£¥¡­¡­£¦¡Á£¨£©¡ª¡ª£«¡±Íû´Í½Ì¡£