📄 add.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Config.asp"-->
<!--#include file="tou.asp"-->
<%
session("Admin") = ""
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="yes2.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="650" border="0" align="center" cellpadding="3" cellspacing="0"><form action="SaveUpload.asp" method="post" enctype="multipart/form-data" name="form1">
<tr >
<td width="150" height="25"> <div align="left">
</div></td>
<td width="500"><%
Response.Write " 允许上传的文件类型:<br> "
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 "上传的文件 最大:"&Oksize / 1024&"KB"
%></td>
</tr>
<input type="hidden" name="filetitle" value=默认名称>
<input type="hidden" name="filetype" id="filetype0" value=素材图片>
<input type="hidden" name="filedesc" value=留言附图>
<tr >
<td> <br> </td>
</tr>
<tr >
<td valign="top"><div align="right"> </div></td>
<td><input name="filedata" type="file" id="filedata0" size="35"></td>
</tr>
<tr >
<td> <br> </td>
</tr>
<td> </td>
<td>
<%if ftpkey="1" Then%>
<INPUT type=submit value=提交上传 name="Submit" style="background-color: #F8FFFF; color: #00000E; border-style: dotted; border-width: 1">
<INPUT type=reset value=清除重来 name=B2 style="background-color: #F8FFFF; color: #00000E; border-style: dotted; border-width: 1">
<% else %>
<font color="#000000">站长暂不开放上传</font>
<%end if%>
<a href="index.asp">退出上传</a>
</td>
</tr></form>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -