母.asp include 子.asp

1.母使用asp <% %> 得到從資料庫撈回的值

在function外定義公用變數

Dim ShiftID,ShiftName,WorkStart,WorkEnd,BreakStart,BreakEnd

在一定會run的function中抓到變數值

Dim rs,adoConn,adoCmd

Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.ConnectionString = Application("ERPConnectionString")
adoConn.Open

Set adoCmd = Server.CreateObject("ADODB.Command")
Set adoCmd.ActiveConnection = adoConn
adoCmd.CommandText = "proc_outputSelectionRecordset"
adoCmd.CommandType = adCmdStoredProc
adoCmd.Parameters.Refresh
adoCmd.Parameters(1)= Session("strUserID")
set rs=adoCmd.Execute

WorkStart = DateAdd("n",0,Left(rs("startTime"), 2)& ":" & Right(rs("startTime"), 2) & ":00")

2.母使用使用隱藏欄位 塞值

<input type="hidden" id="WorkStart" name="WorkStart" value="<%=WorkStart%>" class="T1">

3.子使用script 撈出值

msgbox document.all("WorkStart").value & "   " & document.all("WorkEnd").value