asp action问题 本帖最后由 u010191354 于 2013-07-30 16:57:58 编辑 功能要求:按提交按钮。可以随机从数据库中抽选5个人的名字。 情况:现在做出了随机抽选功能。但是按提交或者刷新网页。名单都会刷新。 修改要求:刚进入网页时,名单栏不要显示任何名字,点击“提交”按钮才显示随机抽选结果。如果刷新网页,内容不变。 个人思路是不是要用到FORM ACTION 但是这个我不大懂,所以来请求高人指点。 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim conn,rs set conn = Server.CreateObject("ADODB.connection") set rs = Server.CreateObject("Adodb.Recordset") conn.connectionstring="Provider=Microsoft.Jet.oledb.4.0;Data Source="+server.MapPath("abc.mdb")+";" conn.open Randomize sql="select top 5 * from stu order by rnd(-(id +" & rnd() & "))" rs.open sql,conn,1,3
%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>无标题文档</title> </head>
<body>
<TABLE width="60%" border="0" align="center" cellpadding="2" cellspacing="1"> <TR> <TD width="92%" valign="top"><p>名单: <% for i=1 to 5 if not rs.eof then %> <%=rs("stuname")+" "%> <% end if rs.movenext next rs.close set rs=nothing %> </p> <p> </p></TD>