主题:  如何用数据记录来控制弹出窗口

5D荣誉斑竹
职务：普通成员
等级：2
金币：10.0
发贴：710
注册：2001/10/24 18:34:42
#12002/3/10 0:39:59
小弟在做一个新闻程序，客户要求首页能有个弹出窗口（就是打开首页就弹出新闻窗口），本来弹出个窗口是很easy的，不过如何能在后台控制是否弹出窗口？

我是这么想的：在数据库中建立一个表T_OpenWindow，其中有一个控制字段O_Open，判断如果O_Open这条记录为1时，弹出窗口，否则就不弹出窗口。但是我尝试在前加上if语句，失败了。我不知道怎么分解



风之翅
职务：普通成员
等级：2
金币：10.0
发贴：540
注册：2001/1/31 14:48:59
#22002/3/10 11:03:42
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Session("MM_Username") <> "") then Recordset1__MMColParam = Session("MM_Username")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT adgroup FROM register WHERE user = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>


测试

<% if (Recordset1.Fields.Item("adgroup").value)<>("99") then %>

<% end if %>


我这里是根据表内adgroup的值来判断是否弹出窗口，99是管理员，就不弹出窗口，其他都要弹出。


<%
Recordset1.Close()
%>
如果adgroup=99，红色中间部分就不返回客户端，所以就不弹出窗口。
随便问一下，蓝色部分我用的是JS，我试过用VB，但是不能控制窗口的大小，提示说SUB语句里不能包含括号，真是莫名其妙。。。下面的语句只要加了红色部分就出错了，有朋友知道这是怎么回事吗？