📄 newsuploadimageok.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %><!--#include file=conn.asp --><!--#include file=../include/config.asp --><!--#include file=chkuser.asp -->
<%
NewsID=Request.QueryString("NewsID")
Savepath=server.MapPath("../uploadfile")
iCount=1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%> <%=ver%> - 上传文章附件</title>
</head>
<body>
<body topmargin="0"><!--#include file=top.asp-->
<div align="center">
<center>
<table border="1" width="750" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=border%>">
<tr>
<td width="100%" height="30" align="center" bgcolor="<%=m_top%>"><b><strong>上
传 结 果</strong></b></td>
</tr> <input type="hidden" name="CopyrightInfo" value="http://www.chinaasp.com">
<%
set FileUp=server.createobject("ChinaASP.UpLoad")
for each f in fileup.Files
smallclassid=fileup.form("smallclassid")
bigclassid=fileup.form("bigclassid")
upload=split(uploadtype,",")
for i=0 to ubound(upload)
if lcase(getFileExtName(f.fileName))=trim(upload(i)) then
uploadsuc=true
exit for
else
uploadsuc=false
end if
next
if lcase(getFileExtName(f.fileName))="asp" or lcase(getFileExtName(f.fileName))="asa" or lcase(getFileExtName(f.fileName))="aspx" then
uploadsuc=false
end if
if f.isempty=false then
if uploadsuc=true then
f.saveas SavePath & "\" & NewsID & "-" & cstr(iCount)&"."& lcase(getFileExtName(f.fileName))
if f.filesize<>0 then
Response.Write "<tr><td bgcolor=#FFFFFF align=center><br>已经保存：" & NewsID & "-" & cstr(iCount)&"."& lcase(getFileExtName(f.fileName)) & "<br></td></tr>"
if lcase(getFileExtName(f.fileName))="bmp" or lcase(getFileExtName(f.fileName))="jpg" or lcase(getFileExtName(f.fileName))="png" or lcase(getFileExtName(f.fileName))="gif" then
set rs=server.createobject("adodb.recordset")
sql="select * from news where newsid="&newsid
rs.open sql,conn,1,3
if not rs.EOF then
rs("picname")=NewsID & "-" & cstr(iCount)&"."&lcase(getFileExtName(f.fileName))
rs.update
end if
rs.close
set rs=nothing
end if
filecontent=fileup.form("filecontent"&cstr(iCount)&"")
set rs=server.createobject("adodb.recordset")
sql="select * from attach where attachname='"&NewsID & "-" & cstr(iCount)&"'"
rs.open sql,conn,1,3
if not rs.EOF then
conn.execute("delete from attach where attachname='"&NewsID & "-" & cstr(iCount)&"'")
end if
rs.addnew
rs("newsid")=newsid
rs("attachcontent")=filecontent
rs("attachtype")=lcase(getFileExtName(f.fileName))
rs("attachname")=NewsID & "-" & cstr(iCount)
rs("filename")=NewsID & "-" & cstr(iCount)&"."&lcase(getFileExtName(f.fileName))
rs.update
rs.close
set rs=nothing
else
Response.Write "<tr><td bgcolor=#FFFFFF align=center height=20>文件大小为0，文件没保存！<br></td></tr>"
end if
else
Response.Write "<tr><Td bgcolor=#FFFFFF align=center height=20><font color=red>文件" & NewsID & "-" & cstr(iCount) & "格式不对！请<a href=javascript:history.go(-1)>重新选择文件</a>上传！</font><br></td></tr>"
end if
else
Response.Write "<tr><Td bgcolor=#FFFFFF align=center height=20><font color=red>" & NewsID & "-" & cstr(iCount) & "没有选择！请<a href=javascript:history.go(-1)>选择文件</a>上传！</font><br></td></tr>"
end if
iCount=iCount+1
next
%>
<tr>
<td width="100%" bgcolor="<%=m_top%>" align="center" height=20>总共用去时间： <%=fileup.UsedTime%>秒！</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=m_top%>" align="center" height=20><%if smallclassid<>"" then%><a href="listnews.asp?smallclassid=<%=smallclassid%>">
<%else%><a href="smallclass.asp?bigclassid=<%=bigclassid%>"><%end if%>继续管理其它文章</a></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
'获得文件的后缀名
function getFileExtName(fileName)
dim pos
pos=instrrev(filename,".")
if pos>0 then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=""
end if
end function
set fileup=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -