admin_uploadselect.asp

庐江二中

<%PageName="admin_upload"%>
<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<%

FilePath=ImgPath
Savepath=server.MapPath(FilePath)

newsid=request("NewsID")
sql="select * from News where newsid=" & newsid
if Request("Time")<>"" then sql="select * from News where UpdateTime='" & Request("Time") &"'"
rs.Open sql,conn,1,1
newsid=rs("newsid")
image=rs("image")
bigclassname=rs("BigClassName")
SmallClassName=rs("SmallClassName")
rs.close

sql="select * From BigClass Where BigClassName='" & bigclassname & "'"
rs.Open sql,conn,1,1
if Session("KEY")="inter" and instr(rs("BigClassMaster"),Session("UserName"))=0 then
%>
<script language=javascript>
history.back()
alert("你无权上传本文章图片！")
</script>
<%
Response.End
end if
rs.close

sql="select * From SmallClass Where SmallClassName='" & SmallClassName & "'"
rs.Open sql,conn,1,1
if (Session("KEY")="input" or Session("KEY")="check") and instr(rs("SmallClassMaster"),Session("UserName"))=0 then
%>
<script language=javascript>
history.back()
alert("你无权上传本文章图片！")
</script>
<%
Response.End
end if
rs.close
%>
<!--#include file="top.asp"--><br>
<table border="1" width="80%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
<table border="1" width="100%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
          <td width="100%" height="20" align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>图 
            片 上 传</b></td>
</tr>

<tr>
<td valign="middle" align="center" height=100>
<%If not IsObjInstalled(ServerObject(9)) Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></td>"
Else%>
<form name="form1" method="post" action="admin_uploadsave.asp" enctype="multipart/form-data">
<input type="hidden" name="act" value="upload">     	
<input type="hidden" name="newsid" value="<%=newsid%>"><input type="hidden" name="image" value="<%=image%>"><input type="hidden" name="filepath" value="<%=filepath%>">	
图片格式及优先调用次序依次为：jpg、gif、png、swf、bmp
<%=space(6)%>
不同类型的图片不能覆盖，请通过其它方法删除原图。
<%=space(6)%>
上传目录：<%=Savepath%>&nbsp;&nbsp;&nbsp;&nbsp;个数：<%=image%>
</td>
</tr>
<%
for i=1 to image
if DelectImageFile_Upload(NewsID,i)="" then
Response.Write "<tr><td width=100% bgcolor=#FFFFFF align=center>待上传图片 " & NewsID & "-" & i & "：<input type=file name=file" & i & " size=50></td></tr>"
else
Response.Write "<tr><td width=100% bgcolor=#FFFFFF align=center>已存在图片 <font color=red>" &DelectImageFile_Upload(NewsID,i) &  "：</font><input type=file name=file" & i & " size=50></td></tr>"
end if
next
%>
<tr align="center" valign="middle">
<td height="24">
<input type="submit" name="Submit" value="提交" Class="bt">
<input type="reset" name="Submit2" value="重执" Class="bt">
</td></form>
<%end if%>
</tr>
</table>

</td>
</tr>
</table>
<%set rs=nothing %>