fileup.asp

站完全依据SEO技术建立

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%if session("useradmin")="" then
response.write"<script>alert('对不起，您已经退出管理中心，\n\n请返回登录后重试');window.open('index.asp','_self');</script>"
response.end
end if%>
<%if request("action")="view" then%>
<meta http-equiv="refresh" content="1;URL=fileup.asp?action=v">
<%elseif request("action")="v" then%>
企业LOGO：<img src="../photo/logo/<%=session("useradmin")%>.bmp" height=100 width=162 style="border:1px #000000 solid"><br>
<br>
企业介绍图片：<img src="../photo/logo/<%=session("useradmin")%>_pic.bmp" height=150 width=200 style="border:1px #000000 solid">
<%else
if request("up")="" then
response.write"<script>alert('请选择参数');window.close()</script>"
response.end
end if%>
<title>图片上传</title>
<!--#include file="Config.asp"-->
<%=citycss%>

<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<form action="SaveUpload.asp" method="post" enctype="multipart/form-data" name="form1">
<input name="fileup" type="hidden" value="<%=request("up")%>">
<tr class="text">
<td width="20%" height="25"></td>
<td><%
Response.Write "  允许上传的文件类型: "
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
For Each str In OKAr
If Fs.FileExists(Server.MapPath("Images\"& Str &".gif")) Then
Response.Write "<img src='Images/" & str & ".gif' alt='" & str & "文件'> "
Else
Response.Write "<img src='Images/X.gif' alt='" & str & "文件'> "
End If
Next
Set Fs = Nothing
Response.Write "<br>  允许上传的文件最大: "&Oksize / 1024&" KB"
if request("up")="logo" then
Response.Write "<br>  建议LOGO图片尺寸为: 162 * 90"
else
Response.Write "<br>  建议LOGO图片尺寸为: 200 * 150"
end if%></td>
</tr>
<tr>
<td height="25"></td>
<td><input name="filedata" type="file" class="TextBoxT" id="filedata" size="27"></td>
</tr>
<tr>
<td height="25"></td>
<td><input type="submit" name="Submit" value="上传内容"></td>
</tr></form>

<tr><td colspan=2 height=10></td></tr>
<%if request("pic")<>"" then%>
<tr>
<td colspan=2 height=20 align="center">原始图片预览：
<%if request("up")="logo" then%>
<img src="../photo/logo/<%=session("useradmin")%>.bmp" height=90 width=162 style="border:1px #000000 solid">
<%else%>
<img src="../photo/logo/<%=session("useradmin")%>_pic.bmp" height=150 width=200 style="border:1px #000000 solid">
<%end if%>
</td>
</tr>
<%end if%>
</table>
<%end if%>