admin_upfile.asp

非常好的源码 非常好的源码 非常好的源码

<!--#include file=admin_login_check.asp-->
<%
dim lid,cid,classID
lid=TRim(Request("lid"))
cid=TRim(Request("cid"))
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from ulist WHERE lid=" & lid
			rs.open sql,conn,1,1
			if not (rs.bof and rs.eof)  then 
%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="8">
  <tr>
    <td>  <b>上传管理</b><br/><a href='admin_utitle.asp?cid=<%=cid%>&lid=<%=lid%>'>返回上传分类</a>
    </td>
  </tr>

	  <script>
	  submitflag=false
	  function check_Csk3000_form(Csk3000_frm)
	  {
	  //Csk3000编写
	  if (Csk3000_frm.intro.value==""){
	  	alert("请输入名称！");
		Csk3000_frm.intro.focus();
		return false
	  }
	  if (Csk3000_frm.orderto.value==""){
	  	alert("请输入说明！");
		Csk3000_frm.orderto.focus();
		return false
	  }
	  if (Csk3000_frm.content.value==""){
	  	alert("请输入内容说明！");
		Csk3000_frm.content.focus();
		return false
	  }
	  if (Csk3000_frm.file.value==""){
	  	alert("请选择图片！");
		Csk3000_frm.file.focus();
		return false
	  }
	  if(!submitflag){
		Csk3000_frm.submit();
		Csk3000_frm.Submit.disabled=true
		submitflag=true
		 return true
		}
		else
		{
		alert("请不要重复提交");
		return false;
		}
	  }
	  </script>
	  <tr>
    <td>　
    
     <form action="upload.asp?cid=<%=cid%>&lid=<%=lid%>" method="post" enctype="multipart/form-data" name="form1" onsubmit="return check_Csk3000_form(this)">
        <table width="100%"  border="1" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse;font-family:Verdana, Arial, Helvetica, sans-serif;">
          <tr> 
            <td colspan="3" bgcolor="#F1F1F1" class="title">上传文件</td>
          </tr>
          <tr>
			<td bgcolor="#F1F1F1" class="tar" >大　小 :</td>
            <td bgcolor="#F1F1F1" class="content"><font color="#FF0000">&lt;<%=rs("size")%>K</font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="tar" >格　式 :</td>
            <td bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;"><font color="#FF0000"><%=rs("format")%></font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="tar" >上传目录:</td>
            <td bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;"><font color="#FF0000"><%=rs("upfile")%></font></td>
          </tr>
          <tr> 
            <td bgcolor="#F1F1F1" class="tar">标　题 : </td>
            <td bgcolor="#F1F1F1" style="padding-left:7px; padding-right:3px;line-height:1.5;"><input name="intro" type="text" id="intro" size="30" maxlength="50"></td>
          </tr>
  

  
          <tr> 
            <td bgcolor="#F1F1F1" class="tar"><b>文件说明：</b></td>
            
            <td bgcolor="#F1F1F1" style="padding-left:7px; padding-right:3px;line-height:1.5;">
		<textarea name="content" cols="40" rows="10" id="content">完全免费</textarea></td>
          </tr>

  
          <tr> 
            <td bgcolor="#FFFFFF" class="tar">浏　览 : </td>
            <td bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;"><input type="file" name="filexx"></td>
          </tr>
 <tr> 
            <td bgcolor="#F1F1F1" class="tar">网站地址 </td>
            <td bgcolor="#F1F1F1" style="padding-left:7px; padding-right:3px;line-height:1.5;"><input name="u" type="text" id="intro" size="100" maxlength="50"></td>
          </tr>
          <tr align="center"> 
		  <td height="30" colspan=2>如果文件较大或网络速度太慢，上传过程可能要一段时间，请耐心等待！</td>
          </tr>
          <tr> 
            <td height="40" colspan="2" bgcolor="#F1F1F1" align=center><input type="submit" name="Submit" value="开始上传"></td>
          </tr>
        </table>
      </form>
    
    </td>
  </tr>
</table>
<%
end if
				Rs.close
				set rs=nothing
%>