📄 file_upload_ok.asp

📁 医药进销存管理系统全代码很详细可惜没有数据库可供参考

💻 ASP

字号:

<!--#include virtual="/manage/include/conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>上传药品图片！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../style.css" rel="stylesheet">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
.style1 {color: #C60001;font-size: 11pt;font-weight:bold}
.style2 {color: #669999}
-->
</style></head>
<body>
<table width="421" height="260" border="0" cellpadding="-2" cellspacing="-2">
  <tr>
    <td width="421" valign="top"><table width="100%" height="83"  border="0" cellpadding="-2" cellspacing="-2">
      <tr>
        <td height="83">&nbsp;</td>
      </tr>
    </table>      
        <table width="83%" height="110"  border="0" align="center" cellpadding="-2" cellspacing="-2">
          <tr>
            <td colspan="2">
	   <%
		on error resume next '设置错误陷阱
		Set objupc = server.CreateObject("ASPUpload.Upload")
		objupc.Guyu()
		objupc.SaveAs("/manage/goods/goodspic/")
		if err then
		end if%>
		<%Set rs_file = Server.CreateObject("ADODB.Recordset")
		  sqlstr = "SELECT * FROM tb_MedicineName where Id="&request.querystring("Id")
		  rs_file.Open sqlstr,conn,1,3
		  rs_file("img")=objupc.filename()
		  rs_file.update
		  rs_file.close
		  set rs_file=nothing
		  Response.Write "<div align='center'>文件上传成功！</div>" 
		%>
		</td>
          </tr>
          <tr>
            <td colspan="2"><div align="center">
                <br>
                <input name="myclose" type="button" class="Style_button_del" id="myclose"
				 value="关闭窗口" onClick="javascrip:window.close();opener.location.reload();">
                </div></td>
          </tr>
        </table>
</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -