<%
set dbconn=Server.CreateObject("ADODB.Connection")
dbconn.open connstring
v_strcurrdate = Year(Now) & zeropad(Month(Now)) & zeropad(Day(Now))
v_currdate = CDbl(v_strcurrdate)
'get last updated date from database
sql = "select * from tbl_setting where tzst_name='jingsiyu_updateddate'"
Set rsSetting = server.CreateObject("adodb.recordset")
rsSetting.Open sql, dbconn
If Not (rsSetting.EOF) Then
v_updateddate = CDbl(rsSetting("tzst_value"))
End If
Set rsSetting = Nothing
Set rsSetting = server.CreateObject("adodb.recordset")
'get latest chinese jing si yu from database
sql = "select * from tbl_setting where tzst_name='jingsiyu_latest_msgID'"
Set rsSetting = server.CreateObject("adodb.recordset")
rsSetting.Open sql, dbconn
If Not (rsSetting.EOF) Then
v_latest_msgID = CDbl(rsSetting("tzst_value"))
End If
If v_updateddate < v_currdate Then
'get record from database
sql = " select * from tbl_jingsiyuinfo where tzsi_status=0 order by tzsi_id"
Set rs1 = server.CreateObject("ADODB.Recordset")
rs1.Open sql, dbconn
If Not (rs1.EOF) Then
v_chinesemsg = rs1("tzsi_msgchinese")
If IsNull(rs1("tzsi_msgenglish")) = False And rs1("tzsi_msgenglish") <> "-" And rs1("tzsi_msgenglish") <> "" Then
v_englishmsg = rs1("tzsi_msgenglish")
Else
v_englishmsg = ""
End If
v_id = rs1("tzsi_id")
Else
'if data exists,reuse again jing si yu
Set rs1 = Nothing
sql = " select * from tbl_jingsiyuInfo order by tzsi_used_date"
Set rs1 = server.CreateObject("ADODB.Recordset")
rs1.Open sql, dbconn
If Not (rs1.EOF) Then
v_chinesemsg = rs1("tzsi_msgchinese")
If IsNull(rs1("tzsi_msgenglish")) = False And rs1("tzsi_msgenglish") <> "-" And rs1("tzsi_msgenglish") <> "" Then
v_englishmsg = rs1("tzsi_msgenglish")
Else
v_englishmsg = ""
End If
v_id = rs1("tzsi_id")
Else
End If
End If
Else
v_id = v_latest_msgID
Set rsSetting = Nothing
Set rsSetting = server.CreateObject("adodb.recordset")
sql = "select * from tbl_jingsiyuinfo where tzsi_id=" & v_id
Set rsSetting = server.CreateObject("adodb.recordset")
rsSetting.Open sql, dbconn
If Not (rsSetting.EOF) Then
v_chinesemsg = rsSetting("tzsi_msgchinese")
If IsNull(rsSetting("tzsi_msgenglish")) = False And rsSetting("tzsi_msgenglish") <> "-" And rsSetting("tzsi_msgenglish") <> "" Then
v_englishmsg = rsSetting("tzsi_msgenglish")
Else
v_englishmsg = ""
End If
End If
End If
'get font color from database
Set rsSetting = Nothing
sql = "select * from tbl_setting where tzst_name='jingsiyu_fontcolor'"
Set rsSetting = server.CreateObject("adodb.recordset")
rsSetting.Open sql, dbconn
If Not (rsSetting.EOF) Then
v_fontcolor = rsSetting("tzst_value")
End If
'get font color from database
Set rsSetting = Nothing
sql = "select * from tbl_setting where tzst_name='jingsiyu_chengyan_fontcolor'"
Set rsSetting = server.CreateObject("adodb.recordset")
rsSetting.Open sql, dbconn
If Not (rsSetting.EOF) Then
v_chengyan_fontcolor = rsSetting("tzst_value")
End If
'get image source
If Weekday(Now) = 1 Then
v_img_filter = "jingsiyu_pic_sun"
ElseIf Weekday(Now) = 2 Then
v_img_filter = "jingsiyu_pic_mon"
ElseIf Weekday(Now) = 3 Then
v_img_filter = "jingsiyu_pic_tue"
ElseIf Weekday(Now) = 4 Then
v_img_filter = "jingsiyu_pic_wed"
ElseIf Weekday(Now) = 5 Then
v_img_filter = "jingsiyu_pic_thu"
ElseIf Weekday(Now) = 6 Then
v_img_filter = "jingsiyu_pic_fri"
ElseIf Weekday(Now) = 7 Then
v_img_filter = "jingsiyu_pic_sat"
End If
'get image source from database
Set rsSetting = Nothing
sql = "select * from tbl_setting where tzst_name='" & v_img_filter & "'"
Set rsSetting = CreateObject("adodb.recordset")
rsSetting.Open sql, dbconn
If Not (rsSetting.EOF) Then
v_img_source = rsSetting("tzst_value")
End If
%>
靜思語
