📄 showupfile.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include FILE="UpLoadClass.asp"-->
<%
if session("flag")=2 then
%>
<%
now_dir=Request.QueryString("tid")
imgxh=CInt(Request.QueryString("xh"))
Cnames=Request.QueryString("names")
Fnames=Request.QueryString("fname")
dd = LoadFile("bilder/"&now_dir&"/info.txt")
ccEND = InStr(dd,"&info=")+6
dd=mid(dd,ccEND)
Dim MyString, MyString2, MyString3, MyString4, rowscount
MyString = Split(dd, "|", -1, 1)
LenOfArray=UBound(MyString)-Lbound(MyString)
infos=MyString(imgxh)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看编辑图片《》| 21365.net上传系统</title>
<link href="FORUM.CSS" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body text="#000000" link="#000000" vlink="#000000" alink="#FF0000" leftmargin="0" topmargin="0">
<table width="450" border="0" cellpadding="3" cellspacing="1" bgcolor="#6699FF">
<tr bgcolor="#99CCFF">
<td colspan="2">【说明】<font color="#FF0000">点击图片可以放大查看！</font></td>
</tr>
<tr align="center" valign="top" bgcolor="#FFFFFF">
<td colspan="2"><a href="bilder/<%=now_dir&"/"&Fnames%>" target="_blank"><img src="bilder/<%=now_dir&"/"&Fnames%>" width="300" border="1"></a></td>
</tr><form action="modimage.asp" method="post" enctype="multipart/form-data" name="form1"">
<tr>
<td width="93" align="right" bgcolor="#eeeeee">图片名称</td>
<td width="342" bgcolor="#FFFFFF">
<input name="mapname" type="text" class="buttonface" id="mapname" value="<%=Cnames%>" size="30">
<input name="mapxh" type="hidden" class="buttonface" id="mapxh" value="<%=CStr(imgxh)%>" size="30">
</td>
</tr>
<tr>
<td width="93" align="right" bgcolor="#eeeeee">选择上传图片</td>
<td width="342" bgcolor="#FFFFFF">
<input name="map" type="file" class="buttonface" id="map" size="16">如果不需要重新上传，则为空
</td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee">图片类型</td>
<td bgcolor="#FFFFFF">
<% ROWids=LoadFile("bilder/config.txt")
ccEND = InStr(ROWids,"&ordner=")
ccEND = ccEND+8
ccCOUNT = mid(ROWids,ccEND)
MyString3 = Split(ccCOUNT, "|", -1, 1)
LenOfArray=UBound(MyString3)-Lbound(MyString3) %>
<input name="mapfl" type="hidden" class="buttonface" id="mapname" value="<%=now_dir%>" size="30">
<!--
<select name="mapflnew" id="mapfl">
<% for i=0 to LenOfArray
product_namexh=trim(MyString3(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>
-->
</td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee">图片说明</td>
<td bgcolor="#FFFFFF"><textarea name="shuoming" cols="40" rows="5" id="shuoming"><%=infos%></textarea></td>
</tr>
<tr align="center">
<td colspan="2" bgcolor="#99CCFF"><input name="Submit" type="submit" class="buttonface" value="【修改文件说明】">
<input name="Submit2" type="button" class="buttonface" onClick="MM_callJS('window.close()')" value="【关闭窗口】"></td>
</tr></form>
<tr>
<td colspan="2" align="center" bgcolor="#FFCC00">版权所有 © 2003-2006
<a href="http://21365.net/" target="_blank">21365.net</a> </td>
</tr>
</table>
</body>
</html>
<%else%>
<%
response.write"<script>alert('请重新登录！');window.parent.close();</script>"
response.end
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -