关于LISTBOX的动态问题

2001-07-27 02:02:45 104 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用C#实现Web服务器导读：　　WWW的工作基于客户机/服务器计算模型，由Web 浏览器(客户机)和Web服务器(服务器)构成，两者之间采用超文本传送协议（HTTP）进行通信，HTTP协议的作用原理包括四个步骤：连接，请求，应答。根据上述HTTP协议的作用原理，本文实现了GET请求的Web服务器程序的方法，通过创建TcpListener类对象，监听端口8080；等待、接受客户机连接到端口8080；创建与s 阅读详情

<select name="listdep" size="1">

<%
sqlstr = "select id,dep_name from dep_lib where dep_flag > 0"
rs.open sqlstr,conn,1,3
i = 0
while NOT rs.EOF
%>
<% If i = 0 then %>
<option value=<%= rs("id") %> selected><%= rs("dep_name") %></option>
<% Else %>
<option value=<%= rs("id") %> ><%= rs("dep_name") %></option>
<% End If %>
<%
i = i + 1
rs.movenext
wend
%>
</select>
这是别人提供的代码，主要是从数据库中提数据，在在LISTBOX中显示。可是这段代码在别人使用功能就能实现在我的98下调不通，谁能告诉我正确的解法？而且我从语法上看不出问题，但也可能时我才疏吧。我还想知道怎么样向数据库INSERT时能把LISTBOX的选中项插入？？
<%
If request("adduser") = "加入用户" then
SQLstr="insert into usr_lib (user_pass,user_name,user_flag,user_memo,dep_id) values ("
SQLstr = SQLstr & "'" & request("passwd") & "'" & ","
SQLstr = SQLstr & "'" & request("username") & "'" & ","
SQLstr = SQLstr & "'" & request("listusr") & "'" & ","
SQLstr = SQLstr & "'" & request("usrmemo") & "'" & ","
SQLstr = SQLstr & "'" & request("listdep") & "'" & ")"
set rsop=Conn.Execute(SQLstr)
%>
我这么写正确吗？SQLstr = SQLstr & "'" & request("listdep") & "'" & ")"
如何定位LIST的选项？？

...全文