wframe.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 36 行

ASP
36
字号
<!--#include file="passinc.asp" -->

<%
dim am
set am = server.createobject("easymail.Attachments")
am.Load Session("wem"), Session("tid")
am.RemoveAll
set am = nothing


dim upurl
dim downurl

downurl = "addatt.asp?" & getGRSN()

if trim(request("mode")) = "reply" then
	upurl = "replymail.asp?" & Request.QueryString
elseif trim(request("mode")) = "replyall" then
	upurl = "replymail.asp?" & Request.QueryString
elseif trim(request("mode")) = "post" then
	upurl = "post.asp?" & Request.QueryString
elseif trim(request("mode")) = "editpost" then
	upurl = "editpfmail.asp?" & Request.QueryString
elseif trim(request("mode")) = "forward" then
	upurl = "forwardmail.asp?" & Request.QueryString
else
	upurl = "writemail.asp?" & Request.QueryString
end if
%>

<HTML>
<frameset rows="*, 60" border="0" framespacing="0" name="wf">
  <frame id=f3 name="f3" scrolling="AUTO" noresize src="<%=upurl %>" marginHeight=20>
  <frame id=f4 name="f4" src="<%=downurl %>" marginHeight=10>
</frameset>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?