📄 edithtml.asp
字号:
<%
if session("currentpath")="" or session("yyj_name")="" then
response.redirect "error.asp"
end if
str=request.querystring("file")
if mid(str,1,1)<>"\" then
str="\"&str
end if
url=session("currentpath")&session("zipath")&str
if lcase(mid(str,len(str)-2,3))="gif" or lcase(mid(str,len(str)-2,3))="jpg" or lcase(mid(str,len(str)-2,3))="bmp" then
%>
<html>
<head>
<title>燕缘居个人主页管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Images/STYLE.CSS" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>当前文件:<font color="#0000CC">\<%=session("yyj_name")%><%=session("zipath")%><%=str%> </font>
<BR>图片：<BR>
<img src=member/<%=session("yyj_name")%>/<%=session("zipath")&str%>>
</body>
</html>
<%
elseif lcase(mid(str,len(str)-2,3))="swf" then
%>
<html>
<head>
<title>燕缘居个人主页管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Images/STYLE.CSS" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>当前文件:<font color="#0000CC">\<%=session("yyj_name")%><%=session("zipath")%><%=str%> </font>
<BR>FLASH：<BR>
<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX ><PARAM NAME=SRC VALUE=member/<%=session("yyj_name")%>/<%=session("zipath")&str%>><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT>
</body>
</html>
<%
elseif lcase(mid(str,len(str)-2,3))="css" or lcase(mid(str,len(str)-2,3))="jsp" or lcase(mid(str,len(str)-2,3))="asp" or lcase(mid(str,len(str)-2,3))="php" or lcase(mid(str,len(str)-2,3))="txt" or lcase(mid(str,len(str)-2,3))="cgi" or lcase(mid(str,len(str)-2,3))="htm" or lcase(mid(str,len(str)-1,2))="js" or lcase(mid(str,len(str)-3,4))="html" then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile(url,1,False)
wenzhang=InStream.readall
'do while not InStream.AtEndOfStream
'thisline = InStream.readline
'wenzhang=wenzhang&thisline& vbcrlf 'bug 2002-8-4
'loop
InStream.Close
%>
<html>
<head>
<title>燕缘居个人主页管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Images/STYLE.CSS" type="text/css">
<script language=javascript>
function view(){
it=window.open("member/<%=session("yyj_name")%>/<%=session("zipath")&str%>","view");
it.document.write(form1.con.value);
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>当前文件:<font color="#0000CC">\<%=session("yyj_name")%><%=session("zipath")%><%=str%> </font> <a href="#" onclick="view()"><img src="Images/view.gif" width="11" height="11">
预览</a> 预览不支持外部css，以及图片不再显示!</p>
<form name="form1" method="post" action="editsave.asp">
<p align="center">
<input type="hidden" name="zipath" value="<%=session("zipath")%><%=str%>">
<textarea name="con" cols="88" rows="22"><%=wenzhang%></textarea>
<input type="submit" name="Submit" value="上存至服务器">
<input type="button" name="Submit2" value="关闭窗口" onclick="javascript:window.close()">
</p>
</form>
<p> </p>
</body>
</html>
<%
else
%>
<html>
<head>
<title>燕缘居个人主页管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Images/STYLE.CSS" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>当前文件:<font color="#0000CC">\<%=session("yyj_name")%><%=session("zipath")%><%=str%> </font>
<p>预览失败，不知如何打开文件</p>
<p><input type="button" name="Submit2" value="关闭窗口" onclick="javascript:window.close()"></p>
</body>
</html>
<%
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -