% '***********************************survey begin********************** dim survey_num if session("diary_id")="" then survey_num="update survey_diary set radio_numf=radio_numf+1,sum_numf=sum_numf+1 where time_year='"&year(now())&"' and time_month='"&month(now())&"' and time_day='"&day(now())&"'" my_Conn.Execute(survey_num) else survey_num="update survey_diary set radio_num=radio_num+1,sum_num=sum_num+1 where time_year='"&year(now())&"' and time_month='"&month(now())&"' and time_day='"&day(now())&"'" my_Conn.Execute(survey_num) end if '***********************************survey end********************** %>
2002—2005 All Rights Reserved
by Diarybooks.com 联系我们
|