📄 up.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "admin/BBSConfig.asp"-->
<!--#include file="INC/Board_Config.asp"-->
<%
userid = request.Cookies(JBBMasterCookies)("userid")
styleid = trim(request.Cookies(JBBMasterCookies)("styleid"))
Folder = trim(request.QueryString("Folder"))
uptype = trim(request.QueryString("uptype"))
if Folder = "" or userid = "" or uptype = "" then
response.End
End if
if uptype = "Board" then
session("upBoardID") = Folder
Board_info Folder
Board_Config = Application(JBBMasterCookies&"Board_Config"&Folder)
if Board_Config(6)=true then styleid = Board_Config(5)
End if
UpFolder = "upload/"+Folder
'response.Write(styleid)
%>
<!--#include file="INC/style.asp"-->
<html>
<head>
<title>上传图片...</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
if (top.location==self.location){
top.location="/"
}
</script>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<form name="form" method="post" action="Upfile.asp?bgcolor=<%=bgcolor%>" enctype="multipart/form-data">
<tr>
<td class="table-dark">
<%
if IsNumeric(userid) then
set rs = Conn.ExeCute("select usergroup from JBB_user where userid="&userid)
if Not rs.Eof then
group = rs(0)
End if
set rs = nothing
End if
if Not(IsNumeric(group)) then group = 6
set rs = Conn.ExeCute("select upcount from JBB_usergroup where groupID = "&group)
if not rs.eof then
up_count = rs("upcount")
End if
set rs = nothing
set conn = nothing
upcount = trim(request.Cookies(""&date()&"")("upCount"))
'response.Write(up_count&":"&upcount)
if upcount="" then upcount = 0
if Cint(upcount) => Cint(up_count) then
response.Write("<font color=""#0000FF"">您今日不可以再上传文件</font>")
response.End()
else
upcount2 = up_count-upcount
End if
Function FolderSub(uFolder)
On Error Resume Next
dim Fname
Fname = uFolder
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder Server.MapPath(Fname)
set FSO = Nothing
End Function
FolderSub(UpFolder)'
%>
<input name="filepath" type="hidden" id="filepath" value="<%=UpFolder%>">
<input type="hidden" name="fname">
<input name="uptype" type="hidden" id="uptype" value="<%=uptype%>">
<input name="SCRIPT_STRING" type="hidden" id="SCRIPT_STRING" value="<%=trim(request.ServerVariables("QUERY_STRING"))%>">
<input name="boardID" type="hidden" id="boardID" value="<%=Folder%>">
<input name="file1" type="file" class="input2" size="20">
<input name="Submit" type="submit" class="input2" value="上传" onclick="fname.value=file1.value,parent.document.forms[0].Submit.disabled=true,
parent.document.forms[0].Submit2.disabled=true;">
您今日还可以上传 <font color="#FF0000">
<%=upcount2%></font> 个文件</td>
</tr></form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -