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

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

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

<td>高：<input type="text" name="h" size="9" style="border: 1 solid #6384C0" value="<%=h%>">象素</td> </tr>
<tr><td valign="top">窗口内容：</td><td colspan="2"><textarea rows="9" name="lr" cols="61" style="border: 1 solid #6384C0"><%=lr%></textarea></td>
</tr><tr><td colspan="3" align="center"><input type="submit" value="查看效果" name="B2"><input type="submit" value="建立弹出窗口" name="B1"><input type="submit" value="撤消弹出窗口" name="B3"></td>
</tr></table><p>窗口内容中的<p>用于表示换行</p>
</form></div>
</body>
</html>
在最前面插入有一个文件newwindow.ini，这个文件是用于记录上一数你输入的参数，第一次使用时，只要在这个文件中填几个空格就可以了。
前面的网页输入的参数提交后由newwindow1.文件来处理，我们一边看这个文件，一边来给大家解释各个文句的作用，
文件名：newwindow.，全文如下：织梦好，好织梦

<%patha=server.MapPath("newwindow1.")
patha=left(patha,len(patha)-14) '**以上这两名用于取得文件所在的路径，以便于以后file access组件建立的file systemobject对象读取文件和建立　文件。
name=request.form("name")
co1=request.form("co1")
co2=request.form("co2")
w=request.form("w")
h=request.form("h")
bg=request.form("bg")
lr=request.form("lr")　'以上这几句不用说了吧，用来读表单提交的数据，
b1=request.form("b1")
b2=request.form("b2")
b3=request.form("b3")　'这里的b1 b2 b3 分别对应三个按钮，假如用户点击b1按扭的话，b1就不为空，我们可由它们的值判定用户到底按了哪一个按钮。
if lr="" then response.redirect "ever.?lr=您没有输入窗口中要显示的内容，<br><br>您预备在弹出的窗口中公布什么呢？"　　　'假如用户没有输入内容的话，显示一个提示。这个提示由ever.文件显示出来,ever.文件的内容在下面单独介绍，单独用一个页面来处理提示信息会使我们的程序简化不少。

织梦内容管理系统

if trim(co1)="" then co1="eeeeff" ' 假如用户没有输入窗口底色，则默认底色为#eeeeff 淡蓝色
if trim(co2)="" then co2="000000" '如用户没有输入文字颜色，则默认文字颜色为#000000黑色
if w="" then w=320　　　　　　　 '如用户没有输入窗口宽，则默认窗口宽为320象素
if h="" then h=200　　　'如用户没有输入窗口高，则默认窗口高为200象素

本文来自织梦

lr=lr " "　　　　　　　'在内容后加上几个空格，以免下面做换行处理时出错
abcc=len(lr)
sclr=""
absn=1
do while absn<abcc
alsa1=mid(lr,absn,1)
if asc(alsa1)=13 then
alsa1="<p>"
absn=absn 1
end if
sclr=sclr alsa1
absn=absn 1
loop
lr=sclr　　　　　　'　以上这一段程序用来把内容中的回车符号转为<p>，同时去掉回车后的换行符，回车是用　asc(alsa1)=13 判定出的。

dedecms.com

inilr="<"&"%"&chr(13)&chr(10)
inilr=inilr&"name111="&chr(34)&name&chr(34)&chr(13)&chr(10)
inilr=inilr&"co1="&chr(34)&co1&chr(34)&chr(13)&chr(10)
inilr=inilr&"co2="&chr(34)&co2&chr(34)&chr(13)&chr(10)
inilr=inilr&"lr="&chr(34)&lr&chr(34)&chr(13)&chr(10)
inilr=inilr&"w="&chr(34)&w&chr(34)&chr(13)&chr(10)
inilr=inilr&"h="&chr(34)&h&chr(34)&chr(13)&chr(10)