📄 editupfil000e.asp
字号:
<%@ language=vbscript %>
<!--#include FILE="UpLoadClass.asp"-->
<html>
<head>
<title><%=inname%>管理自己文档 | WLONG3D文件上传系统wlup3.5（上传数据库）</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="VI60_defaultClientScript" content="VBScript">
<script language="JavaScript" type="text/JavaScript">
<!--
function InsertFlash()
{
var FlashHTML=showModalDialog("adminimgdir000.asp","","dialogWidth:290px;dialogHeight:315px;dialogTop:100;dialogLeft:200;help:0;status:No;");
if (FlashHTML!=null){
//myEditor.pasteHTML(FlashHTML);
//myEditor.textEdit.focus();
//var edtiarea = myEditor.textEdit.document.selection.createRange();
//edtiarea.pasteHTML( FlashHTML );
//myEditor.textEdit.focus();
//edtiarea.select();
}
window.location.reload();
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<link href="FORUM.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#FF0000" topmargin="0">
<table width=760 cellpadding=0 cellspacing=0 border=0 bgcolor=#ffffff align="center">
<tr>
<td width="23%" align="center"><img src="upfile/map/jjlogo-1.jpg" width="100" height="42" align="top"></td>
<td width="77%" align="center"><img src="upfile/map/JJCBAR.GIF" width="468" height="60"></td>
</tr>
</table>
<br>
<table width=760 cellpadding=0 cellspacing=0 border=0 align="center">
<tr align="center" bgcolor="#99CCFF">
<td height="22" colspan="2"><strong><a href="editupfile.asp">管理自己文档</a> |
<a href="editmy.asp" target="_blank">修改个人信息</a> | <a href="LOGIN.ASP">退出上传系统</a></strong><tr>
<td width="30%" valign="top" bgcolor="#FFFFCC">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6699FF">
<tr>
<td align="center" bgcolor="#FFCC00">【上传说明】</td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font style=font-family:wingdings;color=red>v</font>文件类型：<font color="#FF0000">JPG</font><br>
<font style=font-family:wingdings;color=red>v</font>上传限制：<font color="#FF0000"><1024 KB </font><br>
<font style=font-family:wingdings;color=red>v</font>图片名称：<font color="#FF0000">不超过50字</font> </td>
</tr>
<tr>
<td align="center" bgcolor="#99CCFF">【上传新图片】
<!--对上传的文件和图片混合一次性提交 -->
</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFCC">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<form action="upimage.asp" method="post" enctype="multipart/form-data" name="form1"">
<tr align="center">
<tr align="center">
<td colspan="2"> 选择上传图片<br>
<input name="map" type="file" class="buttonface" id="map" size="20">
</td>
</tr>
<tr>
<td width="17%" align="right">名称</td>
<td width="83%"> <input name="mapname" type="text" class="buttonface" id="mapname" size="20" maxlength="50">
</td>
</tr>
<tr>
<td align="right">分类</td>
<td> <%
Dim MyString, MyString2, MyString3, MyString4, rowscount
ROWids=LoadFile("bilder/config.txt")
ccbegin = InStr(ROWids,"&now_dir=")
ccEND = InStr(ROWids,"&ordner=")
now_dir = mid(ROWids,ccbegin+9,ccEND-ccbegin-9)
dirss=Request.QueryString("dirss")
if len(dirss)>0 then
now_dir=dirss
end if
ccEND = ccEND+8
ccCOUNT = mid(ROWids,ccEND)
MyString = Split(ccCOUNT, "|", -1, 1)
LenOfArray=UBound(MyString)-Lbound(MyString)
%> <select name="mapfl" id="mapfl">
<% for i=0 to LenOfArray
product_namexh=trim(MyString(i))
MyString2 = Split(product_namexh, "`", -1, 1)
product_no=MyString2(0)
xh=MyString2(1)
%>
<%if xh=now_dir then%>
<option selected value="<%=xh%>"><%=product_no%></option>
<% else %>
<option value="<%=xh%>"><%=product_no%></option>
<% end if%>
<% next %>
</select>
<input type=button name=Submit value=管理分类 onClick="InsertFlash();return false;">
<input name="userid" type="hidden" id="userid" value="<%=userid%>"></td>
</tr>
<tr>
<td align="right">说明</td>
<td><textarea name="shuoming" cols="22" rows="5" id="shuoming"></textarea></td>
</tr>
<tr align="center">
<td colspan="2"><input name="Submit2" type="submit" class="buttonface" id="Submit2" value="提交说明">
<input name="Submit" type="reset" class="buttonface" value="重新填写"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<td width="70%" align="right" valign="top">
<table width="98%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FF9900">
<tr bgcolor="#FFCC00">
<td colspan="2" align="center">
<table width="100%" border="0" cellspacing="0">
<tr>
<td width="32%" valign="bottom">当前>>><%=showlink%>
<% for i=0 to LenOfArray
product_namexh=trim(MyString(i))
MyString2 = Split(product_namexh, "`", -1, 1)
product_no=MyString2(0)
xh=MyString2(1)
%>
<%if xh<>now_dir then%>
<a href=editupfile.asp?dirss=<%=xh%>><%=product_no%></a>、
<%else%>
<a href=editupfile.asp?dirss=<%=xh%>><font color=blue><b><%=product_no%></b></font></a>、
<%end if%>
<%next%>
</td>
</tr>
</table>
</td>
</tr>
<%
cc = LoadFile("bilder/"&now_dir&"/bilder.txt")
if len(cc)>1 then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<form name="form1" method="post" action="deleteimg.asp">
<input name="now_dir" type="hidden" class="buttonface" id="now_dir" value="<%=now_dir%>" size="30">
<tr>
<%
ccEND = InStr(cc,"&fotos=")+7
ccCOUNT = mid(cc,ccEND)
MyString3 = Split(ccCOUNT, "|", -1, 1)
LenOfArray=UBound(MyString3)-Lbound(MyString3)
jjjj=0
iiii=0
for i=LenOfArray to 0 step -1
jjjj=jjjj+1
iiii=iiii+1
product_namexh=trim(MyString3(i))
MyString4 = Split(product_namexh, "`", -1, 1)
product_no=MyString4(0)
xh=MyString4(1)
%>
<td align="center" width="100"><a href="bilder/<%=now_dir&"/"&xh%>" target="_blank"><img src="bilder/<%=now_dir&"/"&xh%>" width="80" height="80" border="1"></a><br>
<br>
<input type="checkbox" name="mapid" value="<%=i%>" class="buttonface">
【<a href="#" onClick="MM_openBrWindow('showupfile.asp?tid=<%=now_dir%>&xh=<%=i%>&names=<%=server.URLEncode(product_no)%>&fname=<%=xh%>','','scrollbars=yes,width=450,height=550')" title="点击修改文件[<%=now_dir&"/"&xh%>]"><%=product_no%></a>】<br>
<br>
</td>
<%
if jjjj=4 then
response.write "</tr><tr>"
jjjj=0
end if
next
%>
</tr>
<tr align="right"><td><input type="submit" name="Submit" value="删除" class="buttonface"></td></tr>
</form>
</table>
<%else
end if
%>
<!-- <tr>
<td bgcolor="#FFFFFF" align="center" colspan="2">目前没有任何作品！</td>
</tr>
-->
<%
%>
<tr>
<td bgcolor="#FFFFCC" width="10%" align="center">
</td>
<td bgcolor="#FFFFFF" width="90%">【操作说明】<font color="#FF0000">点击图片看大图，点击文件名修改文件介绍，点选相应（可以多选）文件，再按“删除”可以批量删除文件。</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top" colspan="2">
</td>
</tr>
<tr bgcolor="#99CCFF">
<td align="right" colspan="2">
</td>
</tr>
</table>
</td></tr>
<tr align="center">
<td height="22" align="center" colspan="2" bgcolor="#FFCC00">版权所有 © 2005-2006 <a href="http://www.wlong3d.com/" target="_blank">www.21365.net</a>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -