?? file_upload_ok.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"> </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 + -