reuploadphoto.asp
来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 60 行
ASP
60 行
<%@ Language=VBScript %>
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<html>
<head>
<title>AddColumnUpdate</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Css/css.css" type="text/css">
</head>
<body>
<script language="javascript">
function formCheck() {
if (document.upload.uploadpic.value=="") {
alert("请选择图片");
document.upload.uploadpic.focus();
return false;
}
return true;
}
</script>
<%
Dim PicID,PicPath,picfiledname,tablename,savepath,idfiledname
PicID = Request("ID")
PicPath = ModifyInput(Request("PicPath"))
picfiledname = ModifyInput(Request("picfiledname"))
idfiledname = ModifyInput(Request("idfiledname"))
tablename = ModifyInput(Request("tablename"))
savepath = Mid(PicPath,Instr(1,PicPath,"/"),InStrRev (PicPath,"/"))
savePath = Replace(savepath,"/","\")
%>
<b>上传图片</b>
<form enctype="MULTIPART/FORM-DATA" method="post" name="upload" action="SaveReUploadPhoto.asp" ID="Form1">
<input value="<%=savePath%>" type="hidden" name="savePath" ID="Hidden1">
<input value="<%=tablename%>" type="hidden" name="tablename" ID="Hidden6">
<input value="<%=PicID%>" type="hidden" name="PicID" ID="Hidden2">
<input value="<%=picfiledname%>" type="hidden" name="picfiledname" ID="Hidden3">
<input value="<%=idfiledname%>" type="hidden" name="idfiledname" ID="Hidden5">
<table width="98%" ID="Table1">
<tr>
<td>选择图片</td><td><input type="file" name="uploadpic" ID="File1"></td>
</tr>
<tr>
</table>
<p>
<input type="submit" name="btnSubmit" value="上传图片" ID="Submit1" onclick="return formCheck();">
</p>
</form>
</body>
</html>
<!--#include virtual="/Include/DBClose.asp"-->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?