daydataadd.asp

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

<!-- #include file="cnOpen.asp" -->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM DayDataTable",cn,2,3
For i = -1 to -200 step - 1
  rs.AddNew
  rs("TermNo")=8
  rs("DataDay")=Day(DateAdd("d",i,date))
  rs("DataMonth")=Month(DateAdd("d",i,date))
  rs("DataYear")=Year(DateAdd("d",i,date))
  for j = 1 to 48
    tempstr="Data"&j
    Randomize
    rs(tempstr)=Int((1000 - 100 + 1) * Rnd + 100)
  Next
  rs.Update
Next
rs.Close
set rs=nothing
%>
<!-- #include file="cnClose.asp" -->