yeardataadd.asp

来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 19 行

<!-- #include file="cnOpen.asp" -->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM YearDataTable",cn,2,3

For i = -1 to -4 step - 1
  rs.AddNew
  rs("TermNo")=8
  rs("DataYear")=Year(DateAdd("yyyy",i,date))
  for j = 1 to 12
    tempstr="Data"&j
    Randomize
    rs(tempstr)=CLng((300000 - 30000 + 1) * Rnd + 30000)
  Next
  rs.Update
Next
rs.Close
set rs=nothing
%><!-- #include file="cnClose.asp" -->