28,407
社区成员
发帖
与我相关
我的任务
分享从中的变量如何传到
数据量不小,所以我在<% %>中是从数据库中读出数据赋值到数组变量中,然后再在<script language="vbscript">中写到一个下拉框中,其实就是有点象选省份后另个下拉框显示相应的地市
...全文
请发表友善的回复…
发表回复
wanbb 2003-12-27
- 打赏
- 举报
自己搞定
masterme 2003-12-26
- 打赏
- 举报
<tr>
<td align="right">
域 名：
</td>
<td>
<select name=domain style="background-color:#e8f0ff">
<!--#include file="connect.asp"-->
<%
set db=server.createobject("adodb.recordset")
sql="select distinct yuming from RegistTable"
db.open sql,cnn,1,1
if not db.eof then
%>
<%
i=0
do while not db.eof
%>
<option value="<%=db("yuming")%>" style="background-color:#e8f0ff"><%=db("yuming")%></option>
<%
db.movenext
i=i+1
loop
%>
</select>
</td>
</tr>
<%
end if
db.close
set db=nothing
cnn.close
set cnn=nothing
%>
<td align="right">
域 名：
</td>
<td>
<select name=domain style="background-color:#e8f0ff">
<!--#include file="connect.asp"-->
<%
set db=server.createobject("adodb.recordset")
sql="select distinct yuming from RegistTable"
db.open sql,cnn,1,1
if not db.eof then
%>
<%
i=0
do while not db.eof
%>
<option value="<%=db("yuming")%>" style="background-color:#e8f0ff"><%=db("yuming")%></option>
<%
db.movenext
i=i+1
loop
%>
</select>
</td>
</tr>
<%
end if
db.close
set db=nothing
cnn.close
set cnn=nothing
%>
wanbb 2003-12-26
- 打赏
- 举报
可我是要在一个页面完成的
jichu2003 2003-12-26
- 打赏
- 举报
sxsgssgs(小尚) 说的对：直接传，不用经过vbscript.
wanbb 2003-12-26
- 打赏
- 举报
<% dim u
redim u(9)
u(0)="open"
%>
<script language="vbscript">
function wr(Obj)
//我想在这里将U数组变量写到页面上的一个下拉选择框中
end function
</script>
redim u(9)
u(0)="open"
%>
<script language="vbscript">
function wr(Obj)
//我想在这里将U数组变量写到页面上的一个下拉选择框中
end function
</script>
xiaozihao 2003-12-26
- 打赏
- 举报
<%=Count%>
tianjy 2003-12-26
- 打赏
- 举报
<script language=vbscript>
msgbox "这是你第<%=Count%>次访问该页面。"
</script>
msgbox "这是你第<%=Count%>次访问该页面。"
</script>
sxsgssgs 2003-12-26
- 打赏
- 举报
可以传呀。直接传就行了。
jumpnew929 2003-12-26
- 打赏
- 举报
用Response.Write不是就可以写到客户端数组或者OPTION中了吗
