monthdataadd.asp

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

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

For i = -1 to -48 step - 1
  rs.AddNew
  rs("TermNo")=8
  rs("DataMonth")=Month(DateAdd("m",i,date))
  rs("DataYear")=Year(DateAdd("m",i,date))
  for j = 1 to 31
    tempstr="Data"&j
    Randomize
    rs(tempstr)=Int((30000 - 3000 + 1) * Rnd + 3000)
  Next
  rs.Update
Next
rs.Close
set rs=nothing
%><!-- #include file="cnClose.asp" -->