📄 pdt_updpic.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(15)
if Cmd = "Up" then
%>
<!--#include FILE="../inc_upload.asp"-->
<%
set upload=new upload_F
formPath="../kfile/pic/"
iCount=0
NewFileName = Sign & "_IntroPic"
for each formName in upload.file
set file=upload.file(formName)
TmDSuff = mid(file.FileName,InStrRev(file.FileName, ".")+1)
If UCase(TmDSuff) <> "GIF" Then
response.write "上传的文件图片必须是GIF图片 <A HREF=""Pdt_UpdPic.asp?Sign="&Request("Sign")&""">返回</A>"
response.end
End If
if file.FileSize>0 then
newname=NewFileName&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1)
file.SaveAs Server.mappath(formPath&newname)
iCount=iCount+1
else
response.write "未找到文件 <A HREF=""Pdt_UpdPic.asp?Sign="&Request("Sign")&""">返回</A>"
response.end
end if
next
Call ShowErMsgGo("图片上传成功！","Pdt_UpdPic.asp?Sign=" & Sign)
End If
%>
<html>
<head>
<title>上传图片</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
</head>
<body bgcolor="#ccffff">
<br>
<br>
<br>
<br>
<br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<form method="post" action="?Cmd=Up&Sign=<%=Sign%>" enctype="multipart/form-data" name="myform" ID="Form1">
<span class="10pt"> </span>
<input type="file" name="src" size="14" value="浏览" ID="File1">
<input type="submit" value="上传" name="B1" class="txt " IsShowProcessBar="True" ID="Submit1">
</form></td>
</tr>
</table>
<% Call ExitEnd(False) %>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -