<%@language=vbscript codepage=936 %>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY{
BACKGROUND-COLOR: #f9f9f9;
font-size:9pt
}
.tx1 { height: 20px;font-size: 9pt; border: 1px solid; border-color: #000000; color: #0000FF}
-->
</style>
</head>
<body leftmargin="2" topmargin="5" marginwidth="0" marginheight="0">
<% dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize
dim EnableUpload
dim arrUpFileType
dim ranNum
dim msg,FoundErr
dim flvk
    flvk="Clng(trim(upload.form(radiobutton)))"
	strJS="<SCRIPT language=javascript>" & vbcrlf
		if FoundErr<>true then
			
					strJS=strJS & "parent.document.Form1.homepage.value='" & flvk & "';" & vbcrlf

		else
			strJS=strJS & "alert('" & msg & "');" & vbcrlf
		  	strJS=strJS & "history.go(-1);" & vbcrlf
		end if
		strJS=strJS & "</script>" & vbcrlf
		response.write strJS
		
		set file=nothing

	set upload=nothing

%>

</body>
</html>
