⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 uploadnow.asp

📁 提供给大家学习交流,图片制作程序.希望大家提出提意见.
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
<title></title>
<style type="text/css">
<!--
.style3 {font-size: 1pt;
	color: #FFFFFF;
}
.ziti {font-family: "宋体";
	font-size: 12px;
	font-weight: bold;
	color: #FFFFFF;
}
.ziti1 {font-size: 12px;
	font-weight: normal;
	color: #000000;
}
.ziti2 {font-family: "宋体";
	font-size: 12px;
	font-weight: bold;
	color: #FFFFFF;
}
.ziti2 {	font-family: "宋体";
	font-size: 12px;
	font-weight: normal;
	color: #000000;
}
.style5 {
	color: #000000;
	font-size: 12px;
}
-->
</style>

</head>

<body>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="180" align="center" valign="top"><table width="775" height="219" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <th width="20" scope="col"> </th>
        <th scope="col"> <table width="735" height="224" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <th height="184" scope="col" valign="top" class=ziti2>
         <table width="500" border="0" cellspacing="1" cellpadding="0" bgcolor="#6699ff" align=center class=ziti2>
        <tr bgcolor=#6699ff>
         <td height=20 width="498" colspan="2">照片上传结果 :
        <tr>
          
          <td width="498" bgcolor="#D0E8FF" height=30 colspan="2">
<%
dim upload,file,formName,formPath,iCount,name
set upload=new upload_5xSoft ''建立上传对象
formPath="uploadimg/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成五个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath(formPath&file.FileName)   ''保存文件
  response.write File.FileName&"  图片上传成功!"
  name=File.FileName
  iCount=iCount+1
  Else
    Response.Write "图片上传失败,可能您填写的图片名称或图片路径不正确!"
	Response.End
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象

%>         </td>
        </tr>
          <form action=uploadnow2.asp method=post>
        <tr bgcolor=#6699ff>
         <td height=20 width="498" colspan="2">填写照片说明 :
        <tr bgcolor=#ff9933>
          <td height=30 bgcolor="#D0E8FF" colspan="2">路 径:
            <input type=text size=15 name=imgurl value="<%=name%>">
&nbsp;<font color="#FF0000">*&nbsp;请勿修改</font>
                <tr bgcolor=#ff9933>
          <td height=30 bgcolor="#D0E8FF" colspan="2">标 题:
            <input type=text size=15 name=name value="作品">        
                <tr bgcolor=#ff9933>
             <td height=60 bgcolor="#D0E8FF" width="498">说 明:&nbsp;
             <td height=60 bgcolor="#D0E8FF" width="498"> <textarea name=say cols=45 rows=3 class=j>该作品是“中国移动杯”齐齐哈尔市第二届青少年雪雕大赛作品,这里是这个作品的说明。</textarea><tr bgcolor=#ff9933>
          <td align=center height=30 bgcolor="#D0E8FF" width="498" colspan="2"><input type=submit name=submit value="完成">  
      </table></th>
          </tr>
          <tr>
            <td height="40"> </td>
          </tr>
        </table></th>
        <th width="20" scope="col"> </th>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -