列表框连接数据库问题

sun99413 2003-08-22 11:47:33

这部分是定义变量
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j,ii
dim keyword
dim sql
dim rs
dim updown
dim downdown
dim order_name
ii=0
order_name=Request("Order")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if request("updown")<>"" then
updown="desc"
else
updown=""
end if

select case order_name
case "showname"
order_name="showname"
case "hot"
order_name="hot"
case "dateandtime"
order_name="dateandtime"
case "hits"
order_name="hits"
case "orders"
order_name="orders"
case "size"
order_name="size"
case else
order_name="dateandtime"
updown="desc"
end select
set rs=server.createobject("adodb.recordset")
dim classid,Nclassid
dim classname,Nclassname

这部分是列表框连数据库
<select name="classid" size="1" style="color:#000000;font-size: 10pt;BACKGROUND-COLOR: #cccc99" onChange='javascript:submit()'>
<%
sql="select class,classid from class"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<option value="">Not Record!</option>
<%else%>
<%
do while not rs.eof
%>
<option <%if request("classid")<>"" then%><%if cint(rs("classid"))=cint(request("classid")) then%> selected <%end if%><%end if%>value="<%=rs("classid")%>"><%=rs("class")%></option>

<%
rs.movenext
loop
end if
rs.close
%>
</select>
这部分是要在选择列表框里一个选择就在data部分出现对应的页面
<td><table><tr>
<td width="55%" align=center><font color=#006699>Products>></font></td>
<td width="15%" align="right">Compositor：</td>
<td width="15%" align=center><a href="sort.asp?classid=<%=request("classid")%>&order=showname&updown=desc" title="Compositor as Descended">Date</a></td>
<td width="15%" align=center><a href="sort.asp?classid=<%=request("classid")%>&order=hits&updown=desc" title="Compositor as Descended">selected</a></td>
</tr></table></td>
</tr>
怎么样在网站路径上增加&order=showname去访问呢?

...全文