<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xxddab/#axbcchenxixxz##.asp")
Randomize
exec="select top 3 * from chenxi_d1kf order by Rnd("&Rnd()&"-id)"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
iid=0
do while not rs.eof
%>
" value="<%=replace(rs("code_cx"),chr(10),"")%>" readonly="readonly" onclick="oCopy(this)"/>
<%
rs.movenext
iid=iid+1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
