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

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

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

inilr=inilr&"bglr="&chr(34)&bg&chr(34)&chr(13)&chr(10)&"%"&">"
'以上这段程序用于用为newwindow.ini这个文件的内容，其中：chr(34)为双引号chr(13)为回车,chr(10)为换行符，最后的inilr变量的内容为：
' < %
'name111="用户输入的窗口名称"
'co1="用户输入的窗口底色"
'co2="用户输入的窗口文字颜色"
'lr="经处理后的用户输入的窗口内容"
'w="用户输入的窗口宽度"
'h="用户输入的窗口高度"
'bglr="用户输入的窗口底图"　　% >

dedecms.com

pagelr="<html><title>"&name&"</title><body background='"&bg&"' bgcolor='#"&co1&"' text='#"&co2&"' >"&lr&"</body></html>"
'以上的这一句定义了一个变量，存放了弹出窗口的内容，万事具备，预备把它们写入文件。
set fs= createobject("scripting.filesystemobject")　　　'预备动工了，先建立一个filesystemobject对象
set ts=fs.createtextfile(patha&"window.ini",true) '建立一个newwindow.ini文件，注重前面的变量patha是我们在最前面取得的路径，true参数是作用是当已用这个文件时，用新建的文件去覆盖，
ts.writeline(inilr)'在newwindow.ini文件的中写入变量inilr的值。
ts.close '关闭ts对象
'建立窗口就不象建立前面的文件那么简单了，要根据用户按不同的键做不同的处理。
if b1="建立弹出窗口" then　　　'假如用户点击的是建立窗口
set ts=fs.createtextfile(""&patha&"window.htm",true)　'则建立的文件名为window.htm，
else
set ts=fs.createtextfile(""&patha&"windowtem.htm",true)'否则建立的文件名为windowtem.htm这个临时文件
end if
ts.writeline(pagelr)　　'把pagelr变量的值写入刚才建立的文件中

本文来自织梦

ts.close
if b1="建立弹出窗口" then
response.redirect "createwindow."　　'假如用户点击的是建立窗口，则转向页面createwindow.,之所以不直接写在这里是为了使程序更易读，同时能减少错误，当然也可以用一个定义函数或过程。
end if
if b3="撤消弹出窗口" then
response.redirect "delwindow."　　'假如用户点击的是撤消窗口，则转向页面delwindow.
end if
'假如用户既没有点击建立，也没有点击撤消，肯定是点的预览啦，直接显示下面的内容就可以了。
Response.Write "<body style='text-indent: 30; line-height: 150%' onLoad="&chr(34)&"window.open('windowtem.htm','','width="&w&",height="&h&"')"&chr(34)&" bgcolor='#E0F0F8'>"
Response.Write "看到弹出的窗口了吗？假如满足请返回后点“建立弹出窗口”<br><br><a href='newwindow.'>返回</a>"
%>
好啦，到上面可能好多朋友已经知道了个大概，可能不想继续看下去了，不要急，好戏在后头，请看我是怎么修改首页的，在里面加上和减去 onLoad="Window.open('new-window.htm','','width=300,height=250')"　，好了，首先看　cresaewindow.,　是怎么加内容的，
 织梦内容管理系统
<%patha=server.MapPath("newwindow1.")
patha=left(patha,len(patha)-14) '同样的，用来检测出当前路径
set fs= createobject("scripting.filesystemobject")　　'预备开工了，建立filesystemobject对象
set ts=fs.opentextfile(""&patha&"index.") '打开首页，假设首页的文件名为index.
file= ts.readall '读取index.文件的内容到file内存变量中，readall方法用来读取文件的全部内容，textstream对象还read和readline方法，分别用来以字符串为单位读取和以行为单位读取已打开的文件的内容。
ts.close
file1=lcase(file) '把文件中的字符全转为小写，这样可以避免大小写干扰，减少错误