<%@LANGUAGE="VBscript"%><%RequestName=Request.Form("Name")RequestLeaveMeAlone=Request.Form("LeaveMeAlone")IfRequestName< >""orRequestLeaveMeAlone< >""then'在同一个页面中检查表单变量. Response.Cookies("MySiteVisitorName")=RequestName Response.Cookies("MySiteVisitorName").E...

如何检测字符串出现的次数？FunctionCheckTheChar(TheChar,TheString)'TheChar="要检测的字符串".'TheString="待检测的字符串".ifinStr(TheString,TheChar)thenforn=1toLen(TheString)ifMid(TheString,n,Len(TheChar))=TheCharthenCheckTheChar=CheckTheChar+1EndifNextCheckTheChar="这个字符"&CheckTheChar&"次"elseCheckTheChar="0次"endifEndFunc...