功能要求:按提交按钮。可以随机从数据库中抽选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>