您现在正在浏览：站长之家 >> 数据库 >> 详细内容

控制弹出窗口---用file access组件技巧实例

时间:2007-12-23 来源:不详作者:迈克DB

if instr(file1,"onload=")<>0 then response.redirect "ever.?lr=你已经建有弹出窗口，如要建立新的弹出窗口，请先撤消原有的窗口　"　　　'假如已有了onload=这一句，表明已经存在弹出式窗口，这时，不能再往里加“onLoad="Window.open('new-window.htm','','width=300,height=250')"”这一句，不然会破坏原有文件。
star=instr(file1,"<body") 5　　'找出插入文件的起始位置，
zcd=len(file)　　　'取出文件的总长度
lr1=left(file,star)　　　
lr2=right(file,zcd-star) '这里，我们把原来的文件以刚才检测出的位置分为了两半，分别存到lr1,和lr2两　个变量中
newlr=lr1&" onLoad="&chr(34)&"window.open('window.htm','','width="&w&",height="&h&"')"&chr(34)&""&lr2　'再往这两个变量中间加入我们要加入的语句，新的变量名为：newlr，高度和宽度是刚才我们存在window.ini文件中的，在文件首部我们把这个文件插进来了。
set ts=fs.createtextfile(""&patha&"index.",true)
ts.writeline(newlr)　　　'再用newlr写回到index.，
ts.close
response.redirect "ever.?lr=已成功的建立了弹出式窗口"　　　'哈哈，大功告成。。。。。。
%>

内容来自dedecms

做到这里的时候，当时阿余笑得。。呵呵。。（雕虫小技，有什么可笑，鼠鼠在旁边骂到，鼠鼠是我一年前南下一千多公里接来的MM呀，阿余可不敢得罪她，赶紧闭口不语，紧锁眉头，做沉思状，唔。。好象还真差点什么，想了好久，终于记起，还没写怎么去掉我加的东东，赶忙啪啪又按起键盘来，我隐约感到鼠鼠在做什么。。。。）
删除这一句的文件名为:delwindow.代码如下：
<%patha=server.MapPath("newwindow1.")
patha=left(patha,len(patha)-14) '第三次出现这两句了，我不用写了吧
set fs= createobject("scripting.filesystemobject")
set ts=fs.opentextfile(""&patha&"index.")　　
file= ts.readall '第二次出现这几句，也不写了
ts.close
file1=lcase(file)
zcd=len(file) '第二次出现这几句，也不写了
if instr(file1,"onload")=0 then response.redirect "ever.?lr=您还没有建立弹出式窗口，<br>不能使用本命令"　　　'判定有没建弹出窗口， instr函数用于检测一个字符是否在另一个字符串中，如有，返回位置　，如无，返回为0 本文来自织梦

star=instr(file1,"onload=")-1　'找出起始位置
endsn=instr(file1,"'"&chr(41)&chr(34)) 3　　'找出结束位置织梦内容管理系统

lr1=left(file,star)
lr2=right(file,zcd-endsn)　　'把文件分为三段，中间一段不要了。
newlr=lr1&lr2　　'把前一段和后一段合并。 copyright dedecms

set fs= createobject("scripting.filesystemobject")
set ts=fs.createtextfile(""&patha&"index.",true)
ts.writeline(newlr)
ts.close
response.redirect "ever.?lr=已成功的删除了弹出式窗口"
%>
最后还有两个用于做提示信息的ever.文件，全文如下：

dedecms.com

<html>
<head>
<title>网站快车提示</title>
</head>
<%lr=request("lr")%>
<body bgcolor="#EDFEF5">
<div align="center">
<center>
<table bordercolorlight="#000000" border="1" cellspacing="0" cellpadding="9" bordercolordark="#FFFFFF" bgcolor="#A4D1E8" width="50%"><tr><td align="center">
<br><%=lr%></p></td></tr></table></center>
</div>
<p align="center"><a href="javascript:history.back()">返回</a></p>
</body>
</html>
内容极其简单，阿余不解释了。