高分求2个asp实训作业！！！！最简单的那种

2024-11-25 13:33:29

推荐回答（3个）

回答1：

<%set rs_links=server.createobject("adodb.recordset")
sqltext4="select top "&adn&" * from links order by id desc"
rs_links.open sqltext4,conn,1,1
i=0
do while not rs_links.eof
if rs_links("pic")<>"" then
%>

" title="<%=rs_links("note")%>"target="_blank">

" alt="<%=rs_links("name")%>" width="90" height="45">

<%
else
%>

" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%>

<%
end if
rs_links.movenext
i=i+1
if i=10 then exit do
loop
rs_links.close

回答2：

静态：

随机数字

1234567890

动态：

随机数字

<%
Function gen_key(digits)

dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"

randomize
do while len(output) < digits
num = char_array(Int((9 - 0 + 1) * Rnd + 0))
output = output + num
loop
gen_key = output
End Function

response.write "

" & gen_key(10) & "

"
%>

回答3：

www.epar.com.cn/ok.rar
你去下载吧，一个简单的用户登录。
一定能帮的上你。