func.asp

ASP网页

<script language=Javascript>
	function checkproform(form)
	{
		var flag=true;
		if(form("seekword").value==""){alert("Please Input Keyword!");form("seekword").focus();return false};
	
		return flag;
	}
	
	function load(sel) {
		var url = sel.options[sel.selectedIndex].value;
		if (url != ""){
			if (typeof(sel.options[sel.selectedIndex].target)!="undefined"){
				open(url, sel.options[sel.selectedIndex].target);
			}else{
				eval(sel.options[sel.selectedIndex].value)
			}
			sel.selectedIndex=0
		}
		else{
					
		}				
		return false;
	}

	function product_order(keyno)
	{
	  window.open("product_order.asp?productno="+keyno,"","scrollbars=yes,width=548,height=390")
	}

</script>

<%
function checkstr(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
	
    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")

    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>&nbsp;&nbsp;&nbsp;&nbsp;")

	if left(lcase(str),6)<>"<table" then
		str="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+str
	end if	
	checkstr=str
end function	

function checkstr2(str)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")

    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
    str=re.Replace(str,"<br>")
	checkstr2=str
end function	

%>