📄 showmyfile.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include FILE="conn.asp"-->
<!--#include FILE="chklink.asp"-->
<% dim rs,sql,rs1,sql1
dim inname
inname=session("inname")
if inname="" and session("admin")="" then
response.write "<script>alert('对不起!只有正式用户才能查看文件!');window.close();</script>"
response.end
end if
if request("mapid")="" then
Response.write "<script>alert('你还没有选择要查看的存储文件!');window.close();</script>"
response.end
end if
Set rs= Server.CreateObject("ADODB.Recordset")
if request("order")="save" then
if request("mapname")="" then
Response.write "<script>alert('文件名称是必须填写的!');window.close();</script>"
response.end
end if
sql="select * from upmap where mapid ="&request("mapid")
rs.open sql,conn,1,3
rs("mapname")=trim(request.form("mapname"))
rs("mapfl")=trim(request.form("mapfl"))
if request("shuoming")="" then
rs("shuoming")="这家伙很懒，没有文件说明！"
else
rs("shuoming")=trim(request.form("shuoming"))
end if
if request("softwave")="" then
rs("softwave")="这家伙很懒，没有其它资料！"
else
rs("softwave")=trim(request.form("softwave"))
end if
rs.update
rs.close
end if
sql="select * from upmap where mapid ="&request("mapid")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看编辑图片《<%=rs("mapname")%>》| WLONG3D文件上传系统wlup3.5</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">
<% select case Getgo(rs("mapurl"))
case 0 %>
<%=Getmap(rs("mapurl"))%>图片文件<br>
<a href="<%=rs("mapurl")%>" target="_blank"><img src="<%=rs("mapurl")%>" width="300" border="1"></a>
<% case 1 %>
<%=Getmap(rs("mapurl"))%><a href="<%=rs("mapurl")%>" target="_blank">下载文件</a>
<% case 2 %>
<%=Getmap(rs("mapurl"))%><a href="<%=rs("mapurl")%>" target="_blank">浏览文件</a>
<% end select %></td>
</tr><form name="form1" method="post" action="showmyfile.asp?order=save&mapid=<%=rs("mapid")%>">
<tr>
<td width="93" align="right" bgcolor="#eeeeee">文件名称</td>
<td width="342" bgcolor="#FFFFFF">
<input name="mapname" type="text" class="buttonface" id="mapname" value="<%=rs("mapname")%>" size="30">
</td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee">文件类型</td>
<td bgcolor="#FFFFFF"><% Set rs1= Server.CreateObject("ADODB.Recordset")
sql1="select * from mapfl order by flid asc"
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
目前没有文件分类！
<%else%>
<select name="mapfl" class="buttonface">
<%do while not rs1.eof%>
<option value="<%=rs1("mapfl")%>" <% if rs("mapfl")=rs1("mapfl") then %>selected<% end if %>><%=rs1("mapfl")%></option>
<%
rs1.movenext
loop
%>
</select>
<%
end if
rs1.close
set rs1=nothing
%></td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee">文件说明</td>
<td bgcolor="#FFFFFF"><textarea name="shuoming" cols="40" rows="5" id="shuoming"><%=rs("shuoming")%></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#eeeeee">其它资料</td>
<td bgcolor="#FFFFFF"><textarea name="softwave" cols="40" rows="4" id="softwave"><%=rs("softwave")%></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://www.wlong3d.com/" target="_blank">www.wlong3d.com</a> </td>
</tr>
</table>
</body>
</html>
<% end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -