<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%dim conn,connstr,dbstr
dbstr="data/#data.mdb"
set conn=CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath(dbstr)
conn.open connstr
set rs = server.CreateObject("ADODB.RecordSet")
sql="select * from biaoti"
rs.open sql,conn,1,3
biaoti=rs("biaoti")
rs.close
%>
<%=biaoti%>
<%
if session("yonghu")="" then
Randomize
ranNum=int((90000*rnd)+1000)
session("yonghu") = ranNum
end if
%>
