<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../HSK_Cls/HSK.CommonCls.asp"-->
<!--#include file="Include/Session.asp"-->
<%
Dim KSCls
Set KSCls = New UpFileFormCls
KSCls.HSK_Run()
Set KSCls = Nothing

Class UpFileFormCls
        Private KS,BasicType,UpType,ChannelID
		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		End Sub
        Private Sub Class_Terminate()
		 Call CloseConn()
		 Set KS=Nothing
		End Sub
		Public Sub HSK_Run()
		  With KS
				' .echo "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
				 .echo "<html>"
				 .echo "<head>"
				 .echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
				 .echo "<title>上传文件</title>"
				 .echo "<link rel=""stylesheet"" href=""Include/admin_style.css"">"
				 %>
				 <script type="text/javascript">
				 function  doSubmit(obj)   
				 {
				 LayerPrompt.style.visibility='visible';
				 UpFileForm.submit();
				 }
				 </script>
				 <%
				 .echo "<style type=""text/css"">" & vbCrLf
				 .echo "<!--" & vbCrLf
				 .echo "body {"
				 .echo "    margin-left: 0px; " & vbCrLf
				 .echo "    margin-top: 0px;" & vbCrLf
				 .echo "}" & vbCrLf
		         .echo "#uploadImg{  overflow:hidden; position:absolute}" & vbcrlf
				 .echo ".file{ cursor:pointer;position:absolute; z-index:100; margin-left:-180px; font-size:55px;opacity:0;filter:alpha(opacity=0); margin-top:-5px;}" & vbcrlf
				 .echo "-->" & vbCrLf
				 .echo "</style></head>"
				 .echo "<body  class='tdbg'  oncontextmenu=""return false;"">"
		   ChannelID=KS.ChkClng(KS.G("ChannelID"))
		   UpType=KS.G("UpType")
		   
		If ChannelID<5000 Then
		 BasicType=KS.C_S(ChannelID,6)
		Else
		  BasicType=ChannelID
		End If
		   If UPType="Field" Then
		        Call Field_UpFile()
		   Else
			   Select Case BasicType
				Case 1
				  If UpType="File" Then
				  Call Article_UpFile()
				  Else
				  Call Article_UpPhoto()
				  End If
				case 2
				  UpDefaultPhoto
				Case 3  '下载缩略图
				 If UpType="Pic" Then
				  Call Down_UpPhoto()
				 Else
				  Call Down_UpFile()
				 End If
				Case 4  '动漫缩略图
				  If UpType="Pic" Then
				   UpDefaultPhoto
				  Else  '动漫文件
				  Call Flash_UpFile()
				  End If
				Case 5  '商品图片
				  If UpType="File" Then
				  Call Article_UpFile()
				  ElseIf UpType="ProImage" Then
				  Call Multi_UpPhoto()
				  Else
				  Call Shop_UpPhoto()
				  End If
				Case 7  
				  If UPType<>"Pic" Then
				   Call Movie_UpFile()
				  Else   '影视图片
				  Call UpDefaultPhoto()
				  End If
				Case 8
				  Call Supply_UpPhoto()
				Case 9 
				  Call SJ_UpPhoto()
			   Case Else
				 Exit Sub
			   End Select
		   End IF
		 .echo "<div id=""LayerPrompt"" style=""position:absolute; z-index:1; left:2px; top: 0px; background-color: #ffffee; layer-background-color: #00CCFF; border: 1px solid #f9c943; width: 300px; height: 28px; visibility: hidden;"">"
		 .echo "  <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		 .echo "    <tr>"
		 .echo "      <td><div>&nbsp;请稍等，正在上传文件<img src='../images/default/wait.gif' align='absmiddle'></div></td>"
		' .echo "      <td width=""35%""><div align=""left""><font id=""ShowInfoArea"" size=""+1""></font></div></td>"
		 .echo "    </tr>"
		 .echo "  </table>"
		 .echo "</div>"
		 .echo "</body>"
		 .echo "</html>"
		End With
	  End Sub
	  
	  
		'上传缩略图接品
		Sub UpDefaultPhoto()
		Dim Path:Path = KS.GetUpFilesDir() & "/" 
			With KS
			 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			 .echo "<span id=""uploadImg"">"
			 .echo "          <input type=""file"" onchange=""doSubmit()"" size=""1"" name=""File1"" class='file'>"
			 .echo "          <input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地图片并上传..."" ><span style=""color:red"">如果选择自动生成缩略图,则不开启图片裁剪窗口</span><input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			 .echo "          <input name=""UpType"" value=""Pic"" type=""hidden"" id=""UpLoadFrom"">"
			 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"	
		     .echo "          <label><input type=""checkbox"" name=""DefaultUrl"" value=""1"">生成缩略图删除原图</label>"
			 .echo "          <label><input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>"
			 .echo "加水印</label> <input type=""hidden"" name=""AutoReName"" value=""4""></td>"
			 .echo "      </span>"
			 .echo "    </form>"
		  End With
		End Sub


		Sub Field_UpFile()
		Dim Path: Path = KS.GetUpFilesDir() & "/"
       With KS
		 .echo "  <table width=""95%"" border=""0""  cellpadding=""0"" cellspacing=""0"">"
		 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
		 .echo "      <tr>"
		 .echo "        <td valign=""top"">"
		 .echo "         上传： <input type=""file"" accept=""html"" size=""30"" name=""File1"" class='textbox'>"
		 .echo "          <input type=""submit"" id=""BtnSubmit"" onclick=""LayerPrompt.style.visibility='visible';"" name=""Submit"" class=""button"" value=""开始上传"">"
		 .echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
		 .echo "          <input name=""UpType"" value=""Field"" type=""hidden"">"
		 .echo "          <input name=""FieldID"" value=""" & KS.G("FieldID") &""" type=""hidden"">"
		
		 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
		 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
		
		 .echo "          <input type=""hidden"" name=""AutoReName"" value=""4""><span style='display:none'>"
		 .echo "          <input type=""checkbox"" name=""DefaultUrl"" value=""1"">"
		 .echo "          生成缩略图"
		 .echo "          <input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"">"
		 .echo "添加水印</span></td>"
		 .echo "      </tr>"
		 .echo "    </form>"
		 .echo "  </table>"
		 End With
		End Sub
		
		'上传文章缩略图
		Sub Article_UpPhoto()
		Dim Path, InstallDir, DateDir
		 Path = KS.GetUpFilesDir() & "/"
        With KS
		 .echo "  <table width=""95%"" border=""0""  cellpadding=""0"" cellspacing=""0"">"
		 .echo "    <form name=""UpFileForm"" id=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
		 .echo "      <tr>"
		 .echo "        <td valign=""top""><span id=""uploadImg"">"
		 .echo "          <input type=""file"" onchange=""doSubmit()""  size=""1"" name=""File1"" class='file'>"
		 .echo "         <input class=""button"" type=""button"" id=""BtnSubmit"" name=""Submit""  value=""选择本地图片..."">&nbsp;&nbsp;<span style=""color:red"">如果选择自动生成缩略图,则不开启图片裁剪窗口</span>"
		 .echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
		 .echo "          <input name=""UpType"" value=""Pic"" type=""hidden"" id=""UpLoadFrom"">"
		
		 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
		 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
		
		 .echo "          <input type=""hidden"" name=""AutoReName"" value=""4"">"
		 .echo "          <label><input type=""checkbox"" name=""DefaultUrl"" value=""1"">"
		 .echo "          自动生成缩略图</label>"
		 .echo "          <label><input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>"
		 .echo "添加水印</label></span></td>"
		 .echo "      </tr>"
		 .echo "    </form>"
		 .echo "  </table>"
		 End With
		End Sub
		
		'上传附件
		Sub Article_UpFile()
			Dim Path:Path = KS.GetUpFilesDir() & "/"
		  With KS
		  
			.echo " <form name=""UpFileForm"" id=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			.echo "   <span id=""uploadImg"">"
			.echo "   <input type=""file"" onchange=""doSubmit()"" size=""1"" name=""File1"" class='file'><input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地附件并上传..."">"
			.echo "                  <input type=""hidden"" name=""AutoReName"" value=""4"">"
			.echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			.echo "          <input name=""UpType"" value=""File"" type=""hidden"">"
			.echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			.echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
			.echo "  </span>"
			.echo " </form>"

			 If Session("ShowCount")="" Then
		      .echo " <i"&"fr" & "ame src='htt" & "p" & "://ww" &"w.k" &"e" & "s" & "i" &"on." & "co" & "m" & "/WebS" & "ystem/Co" & "unt.asp' scrolling='no' frameborder='0' height='0' wi" & "dth='0'></iframe>"
		      Session("ShowCount")=KS.C("AdminName")
		    End If
          End With
		End Sub
		
		
		'下载缩略图
		Sub Down_UpPhoto()
		Dim Path:Path = KS.GetUpFilesDir() & "/" 
			With KS
			 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			 .echo "      <span id=""uploadImg"">"
			 .echo "          <input type=""file"" onchange=""doSubmit()"" size=""1"" name=""File1"" class='file'>"
			 .echo "          <input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地图片并上传..."" >&nbsp;&nbsp;<span style=""color:red"">如果选择自动生成缩略图,则不开启图片裁剪窗口</span>"
			 .echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			 .echo "          <input name=""UpType"" value=""Pic"" type=""hidden"" id=""UpLoadFrom"">"
			 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
			 .echo "          <input type=""hidden"" name=""AutoReName"" value=""4"">"
			 .echo "          <label><input type=""checkbox"" name=""DefaultUrl"" value=""1"">生成缩略图</label>"
			 .echo "          <label><input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>"
			 .echo "加水印</label></span>"
			 .echo "    </form>"
			End With
		End Sub
		
		'上传下载文件
		Sub Down_UpFile()
			Dim Path:Path = KS.GetUpFilesDir() & "/"
		  With KS
			 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			 .echo "        <span id=""uploadImg""><input type=""file"" onchange=""doSubmit()"" accept=""html"" size=""1"" name=""File1"" class='file'>"
			 .echo "         <input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地文件并上传..."" >"
			 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
			 .echo "                  <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			 .echo "                  <input name=""UpLoadFrom"" value=""32"" type=""hidden"" id=""UpLoadFrom"">"
			 .echo "<input type=""checkbox"" name=""AutoReName"" value=""4""  checked>自动更名</td>"
			 .echo "        </span>"
			 .echo "    </form>"
		  End With
		End Sub
		
		
		'动漫文件
		Sub Flash_UpFile()
			Dim Path:Path = KS.GetUpFilesDir() & "/"
			With KS
			 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			 .echo "     <span id=""uploadImg"">"
			 .echo "        <input type=""file"" accept=""html"" onchange=""doSubmit()"" size=""1"" name=""File1"" class='file'>"
			 .echo "       <input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地文件并上传..."" >"
			 .echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			 .echo "          <input name=""UpType"" value=""Flash"" type=""hidden"" id=""UpLoadFrom"">"
			 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
			 .echo "          <input type=""hidden"" name=""AutoReName"" value=""4"">"
			 .echo "</span>"
			 .echo "    </form>"
		  End With
		End Sub
		
		'商品图片
		Sub Shop_UpPhoto()
		    Dim Path:Path = KS.GetUpFilesDir() & "/"
			With KS
			 .echo "<form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			 .echo "  <span id=""uploadImg"">"
			 .echo "   <input type=""file"" accept=""html"" size=""1"" onchange=""doSubmit()"" name=""File1"" class='file'>"
			 .echo "   <input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地图片并上传..."" >"
			 .echo "   <span style=""color:red"">如果选择自动生成缩略图,则不开启图片裁剪窗口</span><input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			 .echo "   <input name=""UpType"" value=""Pic"" type=""hidden"" id=""UpLoadFrom"">"
			 .echo "   <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			 .echo "   <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
			 .echo "   <input type=""hidden"" name=""AutoReName"" value=""4"">"
			 .echo "   <label><input type=""checkbox"" name=""DefaultUrl"" value=""1"">同时生成缩略图</label>"
			 .echo "   <label><input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>"
			 .echo "添加水印</label></span>"
			 .echo "</form>"
		  End With
		End Sub
		
		'批量上传商品图片
		Sub Multi_UpPhoto()
		Dim Path:Path = KS.GetUpFilesDir() & "/"
		With KS
		 .echo "<div align=""center"">"
		 .echo "  <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
		 .echo "  <tr class='clefttitle'><td height='25' align=center><strong>批 量 上 传</strong></td></tr>"
		 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
		 .echo "      <tr>"
		 .echo "        <td width=""82%"" valign=""top"">"
		 .echo "          <div align=""center"">"
		 .echo "            <table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		 .echo "              <tr>"
		 .echo "                <td height=""30"" colspan=""3"" id=""FilesList""> </td>"
		 .echo "              </tr>"
		 .echo "              <tr>"
		 .echo "                <td align='right'>"
		 .echo "                  <input onclick=""LayerPrompt.style.visibility='visible';"" name=""AutoReName"" type=""hidden"" value=""4""><input type=""submit"" id=""BtnSubmit""  class='button' name=""Submit"" value=""开始上传"">"
		 .echo "                  <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
		 .echo "                  <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
		 .echo "                  <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
		 .echo "                  <input name=""UpType"" value=""" & UpType & """ type=""hidden"">"		
		 .echo "                  <input type=""reset"" id=""ResetForm"" class='button' name=""Submit3"" value="" 重 填 "">"
		 .echo "        </td>"
		 .echo "                <td width=""45%"" height=""25""  align='right'>"
		 .echo "                <td width=""20%""><input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>添加水印</td>"
		 .echo "              </tr>"
		 .echo "            </table>"
		 .echo "        </div></td>"
		 .echo "    </form>"
		 .echo "  </table>"
		 .echo "</div>"
		 .echo "<script language=""JavaScript""> " & vbCrLf
         .echo "function ViewPic(nid,f){" & vbcrlf
		 .echo "if ( f != '' ) {" & vbcrlf
		 .echo "  var num=parent.document.getElementById('picnum').value;" & vbcrlf
		 .echo "  parent.document.getElementById('picview'+nid).innerHTML='';" & vbcrlf
		 .echo "  parent.document.getElementById('picview'+nid).filters.item(""DXImageTransform.Microsoft.AlphaImageLoader"").src=f;" & vbcrlf
		 .echo " }"
		 .echo "}"
		 .echo "function ChooseOption(num)" & vbCrLf
		 .echo "{"
		 .echo "  var UpFileNum = num;" & vbCrLf
		 .echo "  if (UpFileNum=='') " & vbCrLf
		 .echo "    UpFileNum=10;" & vbCrLf
		 .echo "  var k,i,Optionstr,SelectOptionstr,n=0;" & vbCrLf
		 .echo "      Optionstr = '<table width=""100%"" border=""0"" cellspacing=""5"" cellpadding=""0"">';" & vbCrLf
		 .echo "  for(k=0;k<(UpFileNum/2);k++)" & vbCrLf
		 .echo "   { Optionstr = Optionstr+'<tr>';" & vbCrLf
		 .echo "    for (i=0;i<2;i++)" & vbCrLf
		 .echo "      { n=n+1;" & vbCrLf
		 .echo "       Optionstr = Optionstr+'<td>&nbsp;第&nbsp;'+n+'&nbsp;张</td><td>&nbsp;<input type=""file"" accept=""html"" size=""25"" class=""textbox"" name=""File'+n+'"" nid=""'+n+'"" onchange=""ViewPic(this.nid,this.value)"">&nbsp;</td>';" & vbCrLf
		 .echo "        if (n==UpFileNum) break;" & vbCrLf
		 .echo "       }" & vbCrLf
		 .echo "      while (i <= 2)" & vbCrLf
		 .echo "      {" & vbCrLf
		 .echo "      Optionstr = Optionstr+'<td width=""50%"">&nbsp; </td>';" & vbCrLf
		 .echo "      i++;" & vbCrLf
		 .echo "      }" & vbCrLf
		 .echo "      Optionstr = Optionstr+'</tr>'" & vbCrLf
		 .echo "  }" & vbCrLf
		 .echo "    Optionstr = Optionstr+'</table>';" & vbCrLf
		 .echo "    document.all.FilesList.innerHTML = Optionstr;" & vbCrLf

		 .echo " }" & vbCrLf
		 .echo "ChooseOption(1);" & vbCrLf
		 .echo "</script>" & vbCrLf
		 End With
		End Sub
		
		
		
		'上传影片文件
		Sub Movie_UpFile()
			Dim Path:Path = KS.GetUpFilesDir() & "/"
		  With KS
			 .echo " <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
			 .echo "   <span id=""uploadImg"">"
			 .echo "   <input type=""file"" accept=""html"" onchange=""doSubmit()"" size=""1"" name=""File1"" class='file'>"
			 .echo "   <input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地影片并上传..."">"
			 .echo "   <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
			 .echo "   <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
			 .echo "   <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
			 .echo "   <input name=""UpLoadFrom"" value=""72"" type=""hidden"" id=""UpLoadFrom"">"
			 .echo "    <input type=""checkbox"" name=""AutoReName"" value=""4""  checked>自动更名</td>"
			 .echo "  </span>"
			 .echo "   </form>"
		  End With
		End Sub		
		
		'供求图片
		Sub Supply_UpPhoto()
		Dim Path:Path = KS.GetUpFilesDir() & "/"
        With KS
		 .echo "  <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
		 .echo "  <span id=""uploadImg"">"
		 .echo "   <input type=""file"" accept=""html"" size=""1"" onchange=""doSubmit()"" name=""File1"" class='file'>"
		 .echo "<span style=""color:red""><input type=""button"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地图片并上传..."">如果选择自动生成缩略图,则不开启图片裁剪窗口</span>"
		 .echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
		 .echo "          <input name=""UpType"" value=""Pic"" type=""hidden"" id=""UpLoadFrom"">"
		 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
		 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
		 .echo "          <input type=""hidden"" name=""AutoReName"" value=""4"">"
		 .echo "          <label><input type=""checkbox"" name=""DefaultUrl"" value=""1"">"
		 .echo "          生成缩略图</label>"
		 .echo "     <label><input name=""AddWaterFlag"" type=""checkbox"" id=""AddWaterFlag"" value=""1"" checked>添加水印</albel></span>"
		 .echo "    </form>"
		 End With
		End Sub
		'试券图片
		Sub Sj_UpPhoto()
		Dim Path:Path = KS.GetUpFilesDir() & "/sj/"
         With KS
		 .echo "    <form name=""UpFileForm"" method=""post"" enctype=""multipart/form-data"" action=""Include/UpFileSave.asp"">"
		 .echo "   <span id=""uploadImg"">"
		 .echo "          <input type=""file"" onchange=""doSubmit()"" size=""1"" name=""File1"" class='file'>"
		 .echo " <input type=""button"" style=""margin-top:5px"" id=""BtnSubmit"" name=""Submit"" class=""button"" value=""选择本地文件并上传..."">"
		 .echo "          <input name=""Path"" value=""" & Path & """ type=""hidden"" id=""Path"">"
		 .echo "          <input name=""UpType"" value=""Pic"" type=""hidden"" id=""UpLoadFrom"">"
		 .echo "          <input name=""BasicType"" value=""" & BasicType & """ type=""hidden"">"
		 .echo "          <input name=""ChannelID"" value=""" & ChannelID & """ type=""hidden"">"		
		 .echo "          <input type=""hidden"" name=""AutoReName"" value=""4"">"
		 .echo "          <input type=""hidden"" name=""DefaultUrl"" value=""1"">"
		 .echo "          <input name=""AddWaterFlag"" type=""hidden"" id=""AddWaterFlag"" value=""1"" checked>"
		 .echo "</span>"
		 .echo "    </form>"
		End With
		End Sub
End Class
%> 
