uploadimage2.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 101 行

ASP
101 行
字号 
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF
%>
<!--#include file=function.asp -->
<%

NewsID=Request.Form("NewsID")
if NewsID="" then
%>
<script language=javascript>
history.back()
alert("请输入您要上传图片的新闻ID！")
</script>
<%
Response.End
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1

Title=trim(rs("Title"))
image=rs("image")

%>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="copyright" content="网络精英-ChinaNetboy.com">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>

<body>
<p> </p><BR>
<form enctype="multipart/form-data" method="post" action="UploadImage3_upload.asp?NewsID=<%=NewsID%>" name="Upload">
<input type="hidden" name="CopyrightInfo" value="http://www.chinaasp.com">

<table border="0" width="600" align=center>
<tr>
<td width="100%"><b>上传新闻图片：</b></td>
</tr>
<tr>
<td width="100%"><B>新闻标题：</b><%=NewsID%>-<%=title%></td>
</tr>
<tr>
<td width="100%"><hr size=1></td>
</tr>
<tr>
<td width="100%">该新闻需要<input type=text value=<%=image%> disabled size=2>张图片。</td>
</tr>
<tr>
<td width="100%"><b>图片格式为：</b>.gif、jpg、bmp<BR>程序将按照这个顺序检测，如果有检测到图片，就会在下面直接显示文件名，并且用红色的字体表示，如果没有检测到，将按照NewsID-i的格式显示(不显示扩展名)</td>
</tr>
<tr>
<td width="100%"><hr size=1></td>
</tr>
<%
for i=1 to image
if DelectImageFile_Upload(NewsID,i)="" then
Response.Write "<tr><td width=100% ><B>" & NewsID & "-" & i & "：</b><input type=file name=file" & i & " size=50></td></tr>"
else
Response.Write "<tr><td width=100% ><B><font color=red>" &DelectImageFile_Upload(NewsID,i) &  "：</font></b><input type=file name=file" & i & " size=50></td></tr>"
end if
next
%>
<tr>
<td width="100%" align=center><input type=submit value=开始上传图片></td>
</tr>

<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</form>
<p><br><br>
</body>

</html>
<%
rs.Close
set rs=nothing

conn.close
set conn=nothing
%>

uploadimage2.asp - 源码说明

本页面展示了「这是一个学生毕业时做的教务系统」中的 uploadimage2.asp 源码文件，采用 ASP 编程语言编写，共 101 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与教务系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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